Supprimer le contenu de plusieurs cellule par macro

Bonjour,

je voudrai que vous m'aidiez et je suis sur que j'ai frappé à la bonne porte.

je veux supprimer le contenu des cellules préalablement choisi par msg box qui me demande le numéro de la ligne ensuite le contenu de B(n° de ligne):F(n° de ligne) s’efface.

voici le fichier :

Bonjour

essaie comme ceci :

Private Sub CommandButton3_Click()
Dim x As Integer
On Error Resume Next
x = InputBox("No. ligne à supprimer ?")
If IsNumeric(x) Then
Sheets("REMISE").Range("B" & x & ":f" & x).ClearContents
End If
End Sub

si ok, lors de ta réponse clique sur le v vert à coté du bouton Editer pour cloturer le fil

Crdlt

Merci beaucoup DAN, tu me sauves la vie. reste un petit hic , c'est qaund je choisi dans le combobox une banque autre que BMCE il me met en C le nom de la BMCE par défaut, bizarre non ?

re

c'est qaund je choisi dans le combobox une banque autre que BMCE il me met en C...

Normal...

Dans la Private Sub Bt_Valider_Click() change cette instruction

.Range("C" & insmot).Value = Me.ComboBox1.list

par

.Range("C" & insmot).Value = Me.ComboBox1.value

Ajoute également en début de macro --> Dim insmot as byte

Crdlt

Parfait! Je te remercie de ton aide.