CommandButton repetitif

[Prisca]

Bonjour

J'ai un tableau excel dans lequel j'ai inseré un commandbutton afin de supprimer le contenu de la ligne.
Ca donne la macro suivante

Private Sub CommandButton1_Click()
Range("A2:D2").Select
    Selection.ClearContents
   End Sub

J'ai 20 lignes, donc 20 CommandButtons. J'ai rentré une macro pour chaque ligne et commandButton.
Y'a t'il un moyen de grouper ces macros en une seule ?

Merci par avance pour vos suggestions.

 

[Pierrot93]

Re : CommandButton repetitif

Bonjour,
peut être comme ceci, à placer dans le code du bouton, un seul bouton d'ailleurs suffit, se base sur la cellule active :

ActiveCell.EntireRow.ClearContents

bonne journée
@+

 

[Prisca]

Re : CommandButton repetitif

J'avais commencé par ca, mais ca me supprime la ligne entiere, pas seulement le contenu.

Le fait d'effacer le texte en fonction d'où se trouve le curseur peut etre source d'erreur. C'est un doc pour les clients.
On m'a donc demandé de creer un bouton par ligne.
(j'ai déjà un bouton pour Effacer l'ensemble du texte du tableau)

Merci

 

[Pierrot93]

Re : CommandButton repetitif

Re,

J'avais commencé par ca, mais ca me supprime la ligne entiere, pas seulement le contenu.

le code proposé ne supprime pas la ligne mais bien le contenu.... si tu veux limiter à certaines colonnes :

Cells(ActiveCell.Row, 1).Resize(, 5).ClearContents

ici colonnes A à E...

 

[laetitia90]

Re : CommandButton repetitif

bonjour Prisca ,Pierrot93

un exemple basique avec des boutons formulaire

la soluc.. de l'ami Pierrot bien plus simple a mon avis