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