Discussion :

[Mat63]

Bonjour,

Je souhaite parcourir un tableau pour récupérer le numéro de ligne d'un article disponible dans ma base de donnée avec ce morceau de code que j'ai réalisé

Sub positionLigne()

Dim positionLigne As Byte
positionLigne = Columns("A").Find("", Range("A1"), xlValues).Row

Dim position As Byte
position = 0
While Range(position, 1).Value <> 34 And Range(position, 3).Value <> "WST2 2R" And position < positionLigne
position = position + 1
Wend
MsgBox position

End Sub

J'ai une erreur dans ma boucle while mais je ne sais pas trop comment la résoudre. Je ne sais pas où elle est. Je pense que le soucis viens de ma manière d'obtenir la valeur de ma cellule car je ne suis pas de m'y prendre de la bonne manière.

[unparia]

Bonjour

Je pense que le soucis viens de ma manière d'obtenir la valeur de ma cellule

Il n'est pas possible de travailler efficacement sans comprendre le sens de ce que l'on écrit.
Où, dans le code que tu montres, penses-tu extraire la moindre valeur de cellule ? (cela m'intéresse ...)

[Mat63]

Dim positionLigne As Byte
positionLigne = Columns("A").Find("", Range("A1"), xlValues).Row
MsgBox positionLigne

Dim position As Byte
position = 0

Dim numeroNomenclature As Byte
numeroNomenclature = 0

Dim numeroLu As Byte
numeroLu = 0

Dim positionTemporaire As Byte
positionTemporaire = 2

numeroLu = Cells(positionTemporaire, 2)

While numeroLu <> 34
positionTemporaire = positionTemporaire + 1
numeroLu = Cells(positionTemporaire, 2)
Wend

MsgBox positionTemporaire

End Sub

De cette façon ça fonctionne. Je vais essayer de réussir à lui faire comparer en plus une chaine de caractère.

Edit :

Je n'ai pas réussi à faire fonctionner correctement l'exemple ci-dessus avec une 2ème condition sur la boucle While.

Du coup je suis parti sur une boucle For.

Sub positionLigne()

Dim positionLigne As Byte
positionLigne = Columns("A").Find("", Range("A1"), xlValues).Row

Dim position As Byte
position = 0

Dim numeroNomenclature As Byte
numeroNomenclature = 0

Dim numeroLu As Byte
numeroLu = 0

Dim positionTemporaire As Byte
positionTemporaire = 2

numeroLu = Cells(positionTemporaire, 2)

Dim typeTorche As String
typeTorche = Cells(positionTemporaire, 4)

For i = 0 To 134
numeroLu = Cells(positionTemporaire, 2)
typeTorche = Cells(positionTemporaire, 4)
If numeroLu = 4 And typeTorche = "WST2 2R" Then
Exit For
Else
positionTemporaire = positionTemporaire + 1
End If
Next

MsgBox positionTemporaire

End Sub

De cette façon ça semble fonctionner.
Ceci dit j'aimerais bien faire une boucle qui tourne jusqu'à ce qu'un booléen passe de false à true soit car le code à trouver la ligne soit parce qu'il est arrivé à la dernière ligne vide (en comparant avec la valeur de positionLigne trouvé au début).

Pour i = 0
Si ... et ... alors (i = 1 on sort donc de la boucle)
Sinon si ... et ... (on va voir la cellule suivante i reste à 0)
Sinon (i = 1 car il n'y a plus de donnée plus loin, évite la boucle infini et renvoie un message pour dire qu'il n'a rien trouvé)