Effacer cellules sélectionné avec bouton dans userform
p
bonjour
j ai un bouton dans un userform j ai réussi a effacer les cellules d une ligne avec ce bouton mais je trouve pas la solution pour effacer seulement certaine cellules de cette ligne je voudrais effacer sur la ligne que les cellules des colonnes B a H
ci joint le bout de programme que j ai fais également l'userform dans fichier joint
Merci pour votre d aide
Private Sub CommandButton7_Click()
If MsgBox("Etes-vous certain de vouloir EFFACER ?", vbYesNo, "Demande de confirmation") = vbYes Then
Dim L As Long
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
L = Me.ComboBox1.ListIndex + 2
Ws.Rows(L).Clear
Sheets("costume").Rows(L).ClearContents
End If
End Sub
bonjour,
Remplacer par :
Range(Cells(L,2),Cells(L,7)).ClearContentsA+
p
merci beaucoup galopin01
c est exactement ce que je voulais