[...] Array - Trouver lignes 2 et 3 grâce à la ligne 1

[JulienBoul]

Bonjour à tous,

J'ai un tableau excel sur ce format:

Je cherche a créer un script du type

Code : Tout sélectionner

$ref_mag = InputBox ("Entrez la référence du magasin", "saisissez votre référence ici", "")
;code manquant
ClipPut ($Mail1 & " " &Mail2)
 

Malheureusement, je n'ai jamais utilisé les array, et dans le forum il y a plus de 1000 réponses si on effectue la recherche

• Pouvez vous m'aider à coder mon tableau?
  J'ai un peu plus d'une centaine de lignes, et il en contiendra maximum 200.
  J'ai parfois des cellules vides dans la partie appellation.
  Je ne souhaite pas supprimer de colonnes (hormis la région éventuellement) car plus tard, je compte développer mon script afin qu'il puisse prendre l'Appellation, le préfixe ou la ville dans l'inputbox.

• Pouvez vous m'aider à effectuer la recherche?
  Je souhaite entrer le Préfixe dans l'inputbox et qu'il me retourne le Mail1 et le Mail2 dans mon clipboard afin d'aller le coller directement dans mon mail

Dois je passer par les variables du style

Code : Tout sélectionner

$suffixe_001 = Mail1& " " &Mail2

Dernière chose, ne serait il pas judicieux de créer le tableau pour les suffixes 001, 002, 003... même si aujourd'hui ils sont inutilisés de manière à faciliter la mise à jour si ces suffixes sont un jour utilisés? Dans ce cas l'idéal serait de faire apparaître une MsgBox du style "ce suffixe n'est pas utilisé".

Pour faire simple, aujourd'hui, on utilise un tableur excel, on recherche le suffixe, et on copie les 2 colonnes sur la ligne correspondant au suffixe puis on les colle dans notre mail. Pensez vous que la façon dont j'envisage coder est la bonne?
Ce qui est bien dans mon script, c'est qu'il serait autonome, très rapide, et serait très simple d'utilisation pour l'utilisateur (utilisation de HotKeySet pour lancer l'inputbox).
D'avance merci de votre retour.

[mikell]

Il faut lire le fichier Excel de départ dans une array
Tu devrais poster un modèle/exemple de ce fichier sinon ça n'avancera pas

[walkson]

Bonjour,
Je n'ai pas tout compris mais je me lance quand même...
Le chemin Excel est à adapter.

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>


             $path = @ScriptDir & "\AA.xlsx";chemin excel
             $lire = 1;feuil 1
             Global $oExcel = ObjCreate("Excel.Application")
             If @error Then Exit
             $oExcel.WorkBooks.Open($path, Default, Default, Default, Default, Default)
             $oExcel.ActiveWorkbook.Sheets($lire).Select();sélection Feuil1
              $oExcel.Activesheet.cells(1,1).Select;sélection A1
             $NBrows = $oExcel.ActiveCell.CurrentRegion.Rows.Count
             $NBcolumn = $oExcel.ActiveCell.CurrentRegion.columns.Count
             ConsoleWrite(">>" & $NBcolumn & ">>" & $NBrows & @CR);vérif
             Local $Array[$NBrows][$NBcolumn];création de l'array
             For $i = 0 To $NBcolumn - 1;boucle les colonnes
                 For $j = 0 To $NBrows - 1;boucle les lignes
                     $Array[$j][$i] = $oExcel.Activesheet.cells($j + 1,$i + 1).Value;on remplit l'array
                     ;A noter que l'array commence à 0 et excel à 1
                 Next
             Next
             $oExcel.WorkBooks.close
             _ArrayDisplay($Array);vérif
             $rech = InputBox("Recherche","entrez vos données")
             If @error Then Exit
             $rep = _ArraySearch($Array,$rech,0,0,0,1,1,1);ligne trouvée sur deuxième colonne (1) l'array commence à 0
             Local $Result
             For $i = 0 To $NBcolumn - 1 ;boucle sur colonne
                 $Result &= $Array[$rep][$i] & @TAB
             Next
             MsgBox(0,"",$Result)
 

Si vous beuguez , pensez à fermer Excel qui tournera en arrière plan.
Aussi, mieux vaut utiliser les variables pour envoyer un mail plutôt que faire des copié-collé
En espérant faire avancer votre problème...

[overflow]

pourquoi passer par une application externe ?
le vba d excel peut faire cette manip normalement