Une macro pour effacer

[JB_H]

Bonjour le Forum,
J'ai dans mes feuilles un userform avec un bouton qui me permet d'effacer les données de mes cellules pour une ligne données. J'ai rediger ma macro ainsi :

Private Sub CommandButton1_Click()
Rows(Me.ComboBox1.ListIndex + 5).EntireRow.ClearContents
End Sub

Le soucis est qu'elle efface toutes les données de la ligne et je souhaiterais conserver celles qui se trouvent dans 2 de mes colonnes (elles contiennes des formules). Qui pourrait me dire comment rédiger une macro qui fonctionne selon ce que je souhaite.
Merci et bon dimanche.

 

[galopin01]

Bonjour,
A vue de nez et sans essais...

Private Sub CommandButton1_Click()
Dim i%
i = Me.ComboBox1.ListIndex + 5
Range('A' & i & ':H' & i).ClearContents
End Sub

Remplacer le H par ta dernière colonne...
Ok ?

 

[JB_H]

Bonjour Galopin, le Forum,
Je te remercie pour ta précieuse aide. Ta macro réalise exactement ce que je souhaitais.
Encore merci et bon dimanche.