Fonction Find avec Array

Version imprimable

Bonjour le forum,

J'ai deux Arrays
Code:

1 2 3 4 5 6 7 TabQuoi = Array("TOTAL D C", "PICKING", "KITTING", "RECEPTION", _ "ABSENTS", "DIVERS", "CP", "RTT", "1/2 RTT", "Heures de picking", _ "Nombre de lignes facturées", "Lignes facturées / heure / personne") TabVariable = Array(TotalDC, Picking, Kitting, Reception, _ Absents, Divers, CP, RTT, DemiRTT, HeuresPicking, NbLignesFacturees, Index)
J'aimerais monter une fonction find qui irait chercher chaque valeur de TabQuoi dans la feuille active et affecter le numéro de ligne de la recherche respectivement à chaque Variable de TabVariable. Et j'avoue que je coince...
Je sais faire un find pour chaque valeur, mais j'aimerais simplifier ce code.

Merci d'avance.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim i As Byte
Dim TabQuoi, TabVariable
Dim c As Range, plage As Range
 
Set plage = ActiveSheet.Range("A1:E200") 'à adapter
 
For i = 0 To 11
    Set c = plage.Find(TabQuoi(i), LookIn:=xlValue, lookat:=xlWhole)
        If Not c Is Nothing Then TabVariable(i) = c.Row
    Set c = Nothing
Next i
 
'Utilisation de TabVariable

19/10/2009, 11h31
neiluj26

Ah c'est pour ça que je ne suis pas un membre chevronné. Merci, je vais tester!
Est-ce qu'on peut calculer le nombre de valeurs dans un array d'ailleurs?
19/10/2009, 11h36
mercatog

Citation:

membre chevronné

ce ne sont que des apparences, je t'assure
par contre, la question n'est pas claire

Citation:

Est-ce qu'on peut calculer le nombre de valeurs dans un array d'ailleurs?
19/10/2009, 11h44
neiluj26

En fait, je me lance peut-être dans quelque chose trop difficile pour moi pour le moment, mais le nombre de valeurs dans chacun des Tab peut-être amené à varier...

Dans ton code, tu fais aller i de 0 à 11 parce qu'il y a 12 valeurs dans mon TabVariable, non? J'aimerais détecter qu'un utilisateur encore moins doué que moi n'en a pas rajouté...
19/10/2009, 11h47
mercatog

Plus de précision

Edit:

Code:

Ubound(Tablo)

donne l'indice du dernier élément

Code:

Lbound(Tablo)

donne l'indice du premier élément
Par défaut, le premier élément a l'indice 0
Tu peux le changer par Option base au début de module

Code:

Ubound(Tablo)+1

donne le nombre d'éléments du tableau Tablo

en règle générale le nombre d'éléments est donné par

Code:

Ubound(Tablo)-Lbound(Tablo)+1

Merci.

J'ai testé, et j'ai un "L'indice n'appartient pas à la sélection" sur:

Code:

1
2
 
Set c = Plage.Find(TabQuoi(i), LookIn:=xlValue, lookat:=xlWhole)

que je ne comprends pas (forcément).

Voilà mon code entier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim TabQuoi, TabVariable, Quoi, Variable
Dim c As Range, Plage As Range
TabQuoi = Array("TOTAL  D C", "PICKING", "KITTING", "RECEPTION", _
"ABSENTS", "DIVERS", "CP", "RTT", "1/2 RTT", "Heures de picking", "Nombre de lignes facturées", "Lignes facturées / heure / personne")
TabVariable = Array(TotalDC, Picking, Kitting, Reception, _
Absents, Divers, CP, RTT, DemiRTT, HeuresPicking, NbLignesFacturees, Index)
 
Set Plage = ActiveSheet.UsedRange
For i = 0 To UBound(TabVariable)
    Set c = Plage.Find(TabQuoi(i), LookIn:=xlValue, lookat:=xlWhole)
        If Not c Is Nothing Then TabVariable(i) = c.Row
    Set c = Nothing
Next i

C'est quoi

Code:

1
2
TabVariable = Array(TotalDC, Picking, Kitting, Reception, _
Absents, Divers, CP, RTT, DemiRTT, HeuresPicking, NbLignesFacturees, Index)

?
Teste ceci

Code:

1
2
3
4
5
6
7
8
Dim TabQuoi, TabVariable, Quoi, Variable
Dim c As Range, Plage As Range
TabQuoi = Array("TOTAL  D C", "PICKING", "KITTING", "RECEPTION", _
"ABSENTS", "DIVERS", "CP", "RTT", "1/2 RTT", "Heures de picking", "Nombre de lignes facturées", "Lignes facturées / heure / personne")
TabVariable = Array(TotalDC, Picking, Kitting, Reception, _
Absents, Divers, CP, RTT, DemiRTT, HeuresPicking, NbLignesFacturees, Index)
 
msgbox UBound(TabVariable)

19/10/2009, 14h37
neiluj26

Le nom de mes différentes variables. J'aimerais que la macro cherche la ligne où se trouve "TOTAL DC", affecte ce numéro de ligne à la variable TotalDC, puis cherche la ligne où se trouve "Picking", et affecte ce numéro de ligne à la variable Picking... et ainsi de suite.
19/10/2009, 14h53
mercatog
Citation:

Array(arglist)
L'argument arglist est une liste de valeurs délimitée par des virgules attribuées aux éléments du tableau contenu dans la variable de type Variant. Si aucun argument n'est spécifié, un tableau de longueur nulle est créé.

Tu ne peux pas passer ainsi (à ma connaissance)

essaie ceci
Code:

1 2 3 4 5 6 7 8 Dim a As Integer, b As Integer Dim tabl tabl = Array(a, b) tabl(0) = 14 tabl(1) = 25 MsgBox a & "..............." & tabl(0)