Bonjour,
J'ai une valeur en A1 et je cherche à faire une boucle qui passe en revue une plage de B1 à B3.
Je voudrais que la boucle tourne de B1 à B3 et que si aucune des 3 cellules n'est = à A1, j'ai un msgbox "pas de correspondance".
Par contre comment traduite tant que B1 n'est as = ? Le <> ne marche pas, et je ne sais pas traduire tant que B1 n'est pas = à A1
J'ai essayé de traduire par
Sub tt()
Dim test As String
Dim Num_Ligne As Long
test = Cells(1, 1) ' A1= A
Num_Ligne = 1
On Error Resume Next
Do Until Cells(Num_Ligne, 2) = test
MsgBox "pb"
Loop
End Sub
Mais ça ne passe pas car je ne sais pas traduire tant que B1=A1, tu boucles en B2 et si B2=A1, msgbox "ok", sinon tu boucles en B3 et si arrivé en b3, ni B1/B2/B3=a1, msgbox "pas de correspondance"
J'ai essayé avec un while/wend, mais dans ce cas, je ne sais pas non plus traduire tant que B1 n'est pas = a A1? Le <> ne marche pas, et je sais traduire des actions style tu rajoutes+1 ou tu mets en couleur la cellule, par contre, je ne sais pas traduire "tu ne fais rien".
Bref, j'ai l'impression d'être une mouche face à une vitre...
Merci d'avance !
J'ai une valeur en A1 et je cherche à faire une boucle qui passe en revue une plage de B1 à B3.
Je voudrais que la boucle tourne de B1 à B3 et que si aucune des 3 cellules n'est = à A1, j'ai un msgbox "pas de correspondance".
Par contre comment traduite tant que B1 n'est as = ? Le <> ne marche pas, et je ne sais pas traduire tant que B1 n'est pas = à A1
J'ai essayé de traduire par
Sub tt()
Dim test As String
Dim Num_Ligne As Long
test = Cells(1, 1) ' A1= A
Num_Ligne = 1
On Error Resume Next
Do Until Cells(Num_Ligne, 2) = test
MsgBox "pb"
Loop
End Sub
Mais ça ne passe pas car je ne sais pas traduire tant que B1=A1, tu boucles en B2 et si B2=A1, msgbox "ok", sinon tu boucles en B3 et si arrivé en b3, ni B1/B2/B3=a1, msgbox "pas de correspondance"
J'ai essayé avec un while/wend, mais dans ce cas, je ne sais pas non plus traduire tant que B1 n'est pas = a A1? Le <> ne marche pas, et je sais traduire des actions style tu rajoutes+1 ou tu mets en couleur la cellule, par contre, je ne sais pas traduire "tu ne fais rien".
Bref, j'ai l'impression d'être une mouche face à une vitre...
Merci d'avance !