Discussion :

[labview65]

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

si j'écrit

Code :

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

1
2
3
4
5
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

Code :

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

1
2
3
4
5
6
7
8
9
X= 1
 
Do while range("BX")<>""
      If range("EX")="Câble KO" then
      range("GX")=1
      End if
loop
 
X= X+1

[BenoitM]

Code :

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

1
2
3
4
5
6
7
8
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

[labview65]

J'ai essayé votre code mais j'ai un code d'erreur

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

Edit
ça fonctionne si je met

Code :

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

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

Maintenant Je souhaite écrire

Code :

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

1
2
Si B(x-1)=B(x) alors
h(x) = 1

je vois pas comment faire

j'ai écris ceci

Code :

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

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

Mais code d'erreur 1004

Comment dois-je faire ?

[AlainTech]

Bonjour,

Pourquoi changes-tu de manière d'écrire alors que tu as un exemple qui fonctionne?

Fonctionne:

Code :

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

Range("B" & X)

Ne fonctionne pas:

Code :

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

Range("B(X)")