Discussion :

[neiluj26]

Bonjour le forum,

J'ai deux Arrays

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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?

[mercatog]

membre chevronné

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

Est-ce qu'on peut calculer le nombre de valeurs dans un array d'ailleurs?

[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é...

[mercatog]

Edit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ubound(Tablo)

donne l'indice du dernier élément

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Ubound(Tablo)-Lbound(Tablo)+1

[neiluj26]

Merci.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

que je ne comprends pas (forcément).

Voilà mon code entier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

C'est quoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

?
Teste ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[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.

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)