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
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
'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