CommandButton repetitif

Prisca · 12 Novembre 2014

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

Code:

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 · 12 Novembre 2014

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 :

Code:

ActiveCell.EntireRow.ClearContents

bonne journée
@+

Prisca · 12 Novembre 2014

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 · 12 Novembre 2014

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 :

Code:

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

ici colonnes A à E...

laetitia90 · 12 Novembre 2014

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

CommandButton repetitif

Prisca

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Prisca

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

Pièces jointes

Discussions similaires