modification de le valeur d'une cellule

luisf · 16 Avril 2008

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 · 16 Avril 2008

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 · 16 Avril 2008

Re : modification de le valeur d'une cellule

Bonjour

Voilà une autre solution

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

modification de le valeur d'une cellule

luisf

XLDnaute Occasionnel

cbea

XLDnaute Impliqué

gilbert_RGI

XLDnaute Barbatruc

Discussions similaires