Lancer macro

[Popi14]

Bonjour à tous le forum !

Je suis toujours débutant avec Excel 🙁
Je constate que le forum a été mis à neuf 😉 .



Dans un classeur, je dispose de quatre macros indépendantes qui se lance lorsque j'appuie sur des boutons personnalisés (grâce à votre aide😛 ).

- J'aimerais à partir de la "macro 1" pourvoir lancer la "macro 2" avec une fonction du genre RunMacro si cela existe.

- J'aimerais aussi que la "macro 1" s'éxécute lorsque j'ai dans la case "C2" la valeur 1.


Je vous remercie d'avance pour votre aide,


Bonne journée à tous,

Popi14

 

[flo2002]

Re : Lancer macro

bonjour,

pour ta premiere question, je te conseil tout simplement de mettre tes macros sous une meme sub.

pour la deuxieme

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$E$4" Then Exit Sub
Select Case zz.Value
Case "Juanary": Janvier
Case "February": Février
Case "March": Mars
Case "April": Avril
Case "May": Mai
Case "June": Juin
Case "July": Juillet
Case "August": Août
Case "September": Septembre
Case "October": Octobre
Case "November": Novembre
Case "Décember": Décembre



End Select
End Sub

petit exemple a adapter

sinon peut etre avec
If Sheets("Garde").Range("E4") = "Juanary" Then Save_Rolling_Janvier

ca suffit.
En esperant t'avoir aider.

 

[ERIC S]

Re : Lancer macro

Bonjour

la syntaxe est

call macro2()

sinon pour ta macro1 veux-tu qu'elle se lance par bouton mais ne s'exécute pas si C2 n'est pas égal à 1

dans ce cas

if not range("C2").value=1 then exit sub

ou bien qu'elle selance en automatique quand tu mets 1 dans C2

dans ce cas

ta macro doit être sur la feuille et non dans un module, en

sub private worksheet_change (...)
'pas si plusieurs cellules sélectionnées
if not target.count=1 then exit sub
'si pas en C2
if not target.address=$C$2 then exit sub
'si pas 1
if not target.value = 1 then exit sub
....
end sub

A+

 

[Popi14]

Re : Lancer macro

Re-bonjour,


Je vous remercie pour votre aide 🙂 (très rapide)

Bonne journée,

Popi14

(merci de partager votre savoir😀 )