Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

CommandButton repetitif

  • Initiateur de la discussion Initiateur de la discussion Prisca
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Prisca

XLDnaute Nouveau
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.
 
Dernière édition:
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
@+
 
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
 
Dernière édition:
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...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
959
Réponses
10
Affichages
759
Réponses
3
Affichages
854
Réponses
8
Affichages
1 K
Réponses
4
Affichages
932
M
  • Question Question
Réponses
17
Affichages
2 K
D
Réponses
4
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…