W
wafaekam
Guest
Bonjour,
Je souhaite en cliquant sur un bouton de mon userform, parcourir la colonne "I" verifier si la valeur égale la valeur du textbox4 et puis si la valeur de la colonne B est différente de textbox21 me vider les cellules des colonnes H, I et J. Etant donné que je suis pas experte en vba et après plusieurs recherches j'arrive pas à comprendre pourquoi le code utilisé ci-dessous ne fonctionne pas.
Merci bien pour votre aide mais je suis vraiment bloquée la dessus.
Je sollicite ainsi votre aide.
Merci d'avance.
Private Sub CommandButton7_Click()
Set sh1 = Sheets("planning")
For i = 3 To sh1.Cells(Rows.Count, "I").End(xlUp).Row
If sh1.Range("I" & i) = TextBox4.Value And sh1.Range("I" & i).Offset(0, -7) <> TextBox21.Value Then
sh1.Range("I" & i).Value = ""
sh1.Range("I" & i).Offset(0, 1).Value = ""
sh1.Range("I" & i).Offset(0, -1).Value = ""
End If
Next i
MsgBox ("Fichier actualisé")
End Sub
Je souhaite en cliquant sur un bouton de mon userform, parcourir la colonne "I" verifier si la valeur égale la valeur du textbox4 et puis si la valeur de la colonne B est différente de textbox21 me vider les cellules des colonnes H, I et J. Etant donné que je suis pas experte en vba et après plusieurs recherches j'arrive pas à comprendre pourquoi le code utilisé ci-dessous ne fonctionne pas.
Merci bien pour votre aide mais je suis vraiment bloquée la dessus.
Je sollicite ainsi votre aide.
Merci d'avance.
Private Sub CommandButton7_Click()
Set sh1 = Sheets("planning")
For i = 3 To sh1.Cells(Rows.Count, "I").End(xlUp).Row
If sh1.Range("I" & i) = TextBox4.Value And sh1.Range("I" & i).Offset(0, -7) <> TextBox21.Value Then
sh1.Range("I" & i).Value = ""
sh1.Range("I" & i).Offset(0, 1).Value = ""
sh1.Range("I" & i).Offset(0, -1).Value = ""
End If
Next i
MsgBox ("Fichier actualisé")
End Sub