modification de le valeur d'une cellule

luisf

XLDnaute Occasionnel
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

XLDnaute Impliqué
Re : modification de le valeur d'une cellule

Bonjour luisf,

Si j'ai bien compris, voici une solution :

Code:
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

XLDnaute Barbatruc
Re : modification de le valeur d'une cellule

Bonjour

Voilà une autre solution :confused:

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

Discussions similaires

Réponses
4
Affichages
203

Statistiques des forums

Discussions
312 149
Messages
2 085 773
Membres
102 971
dernier inscrit
Mathieu49