Code VBA permettant d'effacer des lignes

Bonsoir à tous,

J'aimerai dans le fichier ci-joint créer un bouton qui permettrait d'effacer les valeurs renseignées dan le tableau. Ex :

Avec le bouton "configuration des tiroirs" je remplis les cellules C7:I7 et N7. Admettons que je me sois trompé dans la sélection des données, existe t-il un moyen de créer un bouton qui permettrait d'effacer les valeurs ?

Merci d'avance.

Encore une fois j'ai fini par trouver la solution. je joins le code pour tout ceux à qui ce serait utile ;)

Code pour le bouton contrôle ActiveX :

Private Sub CommandButton4_Click() 'Effacer Ligne
Module_1.Effac_ligne 'lance la procédure "Effac_ligne" du module "B_Feuilles"

End Sub

Et le code à insérer dans le module :

Public Sub Effac_ligne() 'Bouton "Effacer Ligne"

If MsgBox("Voulez-vous supprimer la ligne active ?", vbYesNo, "Confirmation") = vbYes Then

        Cells(ActiveCell.Row, 3).ClearContents 'efface le contenu Nombre
        Cells(ActiveCell.Row, 4).ClearContents 'efface le contenu Modèle
        Cells(ActiveCell.Row, 5).ClearContents 'efface le contenu Hauteur
        Cells(ActiveCell.Row, 6).ClearContents 'efface le contenu Type
        Cells(ActiveCell.Row, 7).ClearContents 'efface le contenu Prof
        Cells(ActiveCell.Row, 8).ClearContents 'efface le contenu Poids
        Cells(ActiveCell.Row, 9).ClearContents 'efface le contenu Couleur
        Cells(ActiveCell.Row, 14).ClearContents 'efface le contenu Fournisseur

 Else

    End If

End Sub

Bonjour

S'il n'y a pas de Else autant ne pas le mettre.

Ensuite pour des cellules qui se suivent :

Cells(Activecell.Row,3).Resize (1,7)=""

@ bientôt

LouReeD

Bonjour LouReeD,

Merci pour le conseil et le coup de pouce ;)

Bonne journée.

Par la même occasion LouReeD, saurait comment faire pour que :

Lorsque je clique sur le bouton "Effacer les données portes", je souhaiterai que si je supprime les données de la ligne 7 de la page 2 alors il me supprime également les données des cellules C6:F6, K6, N6 de la feuille "Calculs".

Et ainsi de suite : si je supprime les données de la ligne 8 de la page 2 alors il me supprime également les données des cellules C7:F7, K7, N7 de la feuille "Calculs" ...

Merci d'avance ;)

Bonsoir,

en somme la ligne feuil2 est égale à la ligne de la feuille en cours -1 :

LigneFeuil2 = Activecell.Row - 1
With Feuil2
    .Cells(LigneFeuil2,3).Resize(1,4) =""
    .Cells(LigneFeuil2,12) = ""
    .Cells(LigneFeuil2,14) = ""
End With

ou un truc qui s'en rapproche...

@ bientôt

LouReeD