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

coupler des macros

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

Olyxier

XLDnaute Occasionnel
Bonsoir à vous tous
Voici un problemes que je trouve complexe et au quel je ne trouve pas de soluce

Macros 1
Range("C2:C5").Select
Selection.ClearContents
Range("D2").Select
ActiveCell.FormulaR1C1 = "11"
Range("D3").Select
ActiveCell.FormulaR1C1 = "11"
Range("D4").Select
ActiveCell.FormulaR1C1 = "11"
Range("D5").Select
ActiveCell.FormulaR1C1 = "11"
Range("D6").Select
ActiveCell.FormulaR1C1 = "1"
Range("C6").Select
Macro 2
Range("C3:C5").Select
Selection.ClearContents
Range("D3").Select
ActiveCell.FormulaR1C1 = "11"
Range("D4").Select
ActiveCell.FormulaR1C1 = "11"
Range("D5").Select
ActiveCell.FormulaR1C1 = "11"
Range("D6").Select
ActiveCell.FormulaR1C1 = "2"
Range("C6").Select
Macros 3
Range("C4:C5").Select
Selection.ClearContents
Range("D4").Select
ActiveCell.FormulaR1C1 = "11"
Range("D5").Select
ActiveCell.FormulaR1C1 = "11"
Range("D6").Select
ActiveCell.FormulaR1C1 = "3"
Range("C6").Select
Macro 4
Range("C5").Select
Selection.ClearContents
Range("D5").Select
ActiveCell.FormulaR1C1 = "11"
Range("D6").Select
ActiveCell.FormulaR1C1 = "4"
Range("C6").Select
Macro 5
Range("C1:C5").Select
Selection.ClearContents
Range("O36").Select

voilà donc 5 macros.. et il possible d'avoir le meme resultas mais en une seule macro ou formule car je dois le faire sur 20 colonnes ce qui ferais 100 macros
enorme 😕
cela est t'il possible
merci à vous et bonne soirée
 
Re : coupler des macros

Bonsoir,

Ton pb manque d'explications là...

Je suppose que les macros ne doivent pas être exécutées sur la même feuille ? Merci des précisions.

sinon
Range("C2 : C5").ClearContents
Range("D2 : D5").FormulaR1C1 = "11"

A te lire

Edition : Oups Pascal je t'avais pas vu.
 
Re : coupler des macros

Merci de m'aider
donc je vais etre un peu plus claire
prenons cinq cellules A.B.C.D.E. ces cinq cellules accueil un nombre de 1 à 5
mais le problemes est que je peus avoir que 3 cellules qui ont des chiffres valide dans ce cas la cellules A auras un 3 la cellule B un 5 et la C un 1
Puis comme une macros gere tous elle me met un 1 dans D et E et moi je veus enlever les deux un qui n'existe pas en réaliter et comme il n'y as plus rien dans les cellules D et Eje met un 11 à cote de ces cellules puis dans une cellules en dessous des deux 11 je mets un 3 car il y a 3 chiffres valide donc pour le moment je clic sur un bouton si il n'y a qu'une valeur valide la macros une s'execute
si il y a deux valeurs valide la macros 2 s'execute
si il y a trois valeurs valide la macros 3 s'execute
si il y a quatre valeurs valide la macros 4 s'execute
si il y a pas de valeurs valide la macros 5 s'execute
j'ai donc un bouton par macros et cela pour 20 colonnes de 5 cellules
cela serais bien de simplifier
merci a vous
 
Re : coupler des macros

Re,

😱 ben là c'est que j'ai encore rien compris à ce que tu fais 😕
Tu peux relire en t'imaginant ce que je dois deviner dans ton message ??
A moins que Pascal ou carcharodon-carcharias ait mieux compris que moi...
Place plutôt un fichier avec les explications.

A te lire
 
- 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
17
Affichages
1 K
M
  • Question Question
Réponses
3
Affichages
806
Mr.Adrien
M
L
Réponses
9
Affichages
1 K
Réponses
9
Affichages
1 K
J
  • Question Question
Microsoft 365 Formules
Réponses
2
Affichages
784
J
G
Réponses
7
Affichages
1 K
gfgghbhg
G
J
Réponses
22
Affichages
3 K
jui42
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…