boucle tant que

[audrey65]

Bonjour,
Je voudrais savoir comment je pourrait faire une boucle tant que, je n'y arrive pas

si j'écrit

If Not IsEmpty(Range("B1")) Then
If Range("e1") = "Câble KO" Then
Range("G1") = 1
End If
End If

ceci fonctionne
Mais je voudrais faire ceci à chaque fois qu'une cellule de B n'est pas vide
donc j'ai essayé ceci mais ça ne fonctionne pas

X= 1

Do while range("BX")<>""
If range("EX")="Câble KO" then
range("GX")=1
End if
loop

X= X+1

Ensuite en faisant comme ceci :
X= 1

Do while range("B" + X)<>""
If range("E" + X)="Câble KO" then
range("G" +X)=1
End if
X= X+1
loop

J'ai un code d'erreur qui s'affiche qui dit

erreur d'exécution '13' :
Incompatibilité de type

 

[phlaurent55]

Re : boucle tant que

Bonjour Audrey

essaie avec ceci:

Do while range("B" & X)<>""
If range("E" & X)="Câble KO" then
range("G" & X)=1
End if
X= X+1
loop

 

[audrey65]

Re : boucle tant que

Merci pour ta réponse ça marche merci beaucoup

 

[audrey65]

Re : boucle tant que

Je souhaite écrire
Si B(x-1)=B(x) alors
h(x) = 1

je vois pas comment faire

 

[audrey65]

Re : boucle tant que

j'ai écris ceci


If Range("B(X-1)") = Range("B(X)") Then
Range("h1") = 1
End If

 

[phlaurent55]

Re : boucle tant que

Re,

c'est toujours le même principe:

If Range("B" & X-1) = Range("B" & X) Then

à+
Philippe

 

[audrey65]

Re : boucle tant que

bonjour
j'ai fait ce que vous avez dit mais j'ai une erreur
la methode range de l'objet global à échoué

 

[audrey65]

Re : boucle tant que

Je n'ai plus d'erreur si j'écris x=2 mais ça ne m'écrit rien dans le colonne H

 

[audrey65]

Re : boucle tant que

J'ai résolu mon problème