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

XL 2010 Simplifier une macro

  • Initiateur de la discussion Initiateur de la discussion fablog
  • 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 !

fablog

XLDnaute Occasionnel
Bonjour, est-il possible de simplifier cette macro par laquelle j'écris "Cliquez ici" dans plusieurs cases ayant une liste déroulante?


VB:
Range("E5:G5").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("E7").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("E9").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("J3:p3").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("J5:p5").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("J7:p7").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("J9:p9").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("U163:W163").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("U164:W164").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("U165:W165").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("U166:W166").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("Y163").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("Y164").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("Y165").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("Y166").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("AG163").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("AG164").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("AG165").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

Merci par avance!
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…