modification de le valeur d'une cellule

[luisf]

bonjour

je voudrais créer une boucle du genre:

Private Sub CommandButton4_Click()
For i = 8 To 99999999999#
If Range(g, i).Value = "X" Then
Range(f, i).Value = ""
End If
Next i
End Sub

je m'explique.
j'ai créer un userform qui me permet de remplir un tableau sur des controles réaliser. lorsque j'ai un controle qui n'est pas bon j'ai la case F8 qui est cocher lorsque mon controle est repris je dois cocher la case G8 pour sa je le fais directement sur la feuille excel et ensuite je met un bouton qui validera la modification c'est à dire qui suprimera le X de la case F8

mon probleme dans le code est range(g,i)? enfi je crois cr je ne sais pas si ce code fpeut fonctionner

 

[cbea]

Re : modification de le valeur d'une cellule

Bonjour luisf,

Si j'ai bien compris, voici une solution :

Private Sub CommandButton4_Click()
For i = 8 To 99999999999#
If Range([COLOR="Red"]"g" &[/COLOR] i).Value = "X" Then
Range([COLOR="red"]"f" &[/COLOR] i).Value = ""
End If
Next i
End Sub

 

[gilbert_RGI]

Re : modification de le valeur d'une cellule

Bonjour

Voilà une autre solution 😕

'Private Sub CommandButton4_Click()
For i = 8 To Range("G65536").End(xlUp).Row
If Cells(i, 7).Value = "X" Then
Cells(i, 6).Value = ""
End If
Next i
End Sub

Salutations

RGI