Bonjour forum
Voila j'ai un code dans un userform pour effacer le contenu de cellule
J'aimerai avoir votre avis car les cellule ne s'effaces pas peut etre ai je une erreur de syntaxe ou sur le format de ma textbox?
Voici mon code:
Private Sub CommandButton2_Click()
Dim rep As Integer, Boucle As Integer
rep = MsgBox("Confirmation de vos données?", vbOKCancel)
If rep = 1 Then
For Boucle = 5 To Cells(5, 11).End(xlDown).Row Step 1
If Cells(Boucle, 11).Value = UserForm12.TextBox1 Then
Cells(Boucle, 12).ClearContents
Cells(Boucle, 13).ClearContents
Cells(Boucle, 14).ClearContents
Cells(Boucle, 15).ClearContents
Cells(Boucle, 16).ClearContents
Cells(Boucle, 17).ClearContents
Cells(Boucle, 18).ClearContents
Cells(Boucle, 19).ClearContents
Cells(Boucle, 20).ClearContents
Cells(Boucle, 21).ClearContents
End If
Next
End If
End Sub
Merci d'avance
Voila j'ai un code dans un userform pour effacer le contenu de cellule
J'aimerai avoir votre avis car les cellule ne s'effaces pas peut etre ai je une erreur de syntaxe ou sur le format de ma textbox?
Voici mon code:
Private Sub CommandButton2_Click()
Dim rep As Integer, Boucle As Integer
rep = MsgBox("Confirmation de vos données?", vbOKCancel)
If rep = 1 Then
For Boucle = 5 To Cells(5, 11).End(xlDown).Row Step 1
If Cells(Boucle, 11).Value = UserForm12.TextBox1 Then
Cells(Boucle, 12).ClearContents
Cells(Boucle, 13).ClearContents
Cells(Boucle, 14).ClearContents
Cells(Boucle, 15).ClearContents
Cells(Boucle, 16).ClearContents
Cells(Boucle, 17).ClearContents
Cells(Boucle, 18).ClearContents
Cells(Boucle, 19).ClearContents
Cells(Boucle, 20).ClearContents
Cells(Boucle, 21).ClearContents
End If
Next
End If
End Sub
Merci d'avance