[RESOLU] Lors de l'activation de la macro If "Janvier" lancer macro 1 sinon macro 2

S

Softmama

XLDnaute Accro

• 1 Juin 2011

• #2

Re : VBA: Lors de l'activation de la macro If "Janvier" lancer macro 1 sinon macro 2

Bonjour,

VB:

If Month(Now) = 1 Then Call macro1 else call macro2 '1 pour janvier

 

Vote positif 0 Vote négatif

S

sim

XLDnaute Occasionnel

• 1 Juin 2011

• #3

Re : VBA: Lors de l'activation de la macro If "Janvier" lancer macro 1 sinon macro 2

Bonjour Softmama,

(votre pseudo me fait toujours autant rire 🙂)

Super merci beaucoup!!

Sim

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Juin 2011

• #4

Re : VBA: Lors de l'activation de la macro If "Janvier" lancer macro 1 sinon macro 2

Re, bonjour Softmama

une autre solution, en supposant tes macros nommées macro1, macro2, etc...

Code:

Application.Run "Macro" & Month(Date)

bon après midi
@+

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 1 Juin 2011

• #5

Re : VBA: Lors de l'activation de la macro If "Janvier" lancer macro 1 sinon macro 2

Salut sim et le forum
Je n'ai que le sujet pour répondre, donc, juste des idées.

Code:

Select Case Month(Date)
    Case 1
        Call macro1
    Case 2
        Call macro2
    'etc...
End Select

Une macro est un code avec une méthode de lancement. Mais ce n'est utile que si son lancement peut venir de différent point. Sinon, autant inclure le code dans le select case.

Now : utile quand on travaille avec l'heure.
Date : date la date du système quand on n'a pas besoin d'avoir l'heure.
A+

 

Vote positif 0 Vote négatif

S

sim

XLDnaute Occasionnel

• 1 Juin 2011

• #6

Re : VBA: Lors de l'activation de la macro If "Janvier" lancer macro 1 sinon macro 2

Re Pierrot,

Oui ca aurait ete nikel aussi mais je n'ai que deux macro Macro 1 pour janvier, et Macro 2 pour le reste de l'annee

Mais merci quand meme 🙂!!!

Sim

 

Vote positif 0 Vote négatif

S

sim

XLDnaute Occasionnel

• 1 Juin 2011

• #7

Re : VBA: Lors de l'activation de la macro If "Janvier" lancer macro 1 sinon macro 2

Bonjour Gorfael,

Juste pour l'histoire,

Grace a un bouton ("methode de lancement")

Je copie une plage de cellule avec titre en janvier
et apres de fevrier a decembre je colle la meme plage de cellule sous la derniere cellule active et sans les titres

deux action 2 macro 2 periodes de temps differente, il doit certainement il y avoir des technique plus simple et plus efficace mais je fais avec ce que j'ai (cad pas grand chose..autant vous dire que heureusement que vous etes la!! 🙂

Merci beaucoup pour ces precisions

🙂

Sim

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 3 Juin 2011

• #8

Re : [RESOLU] Lors de l'activation de la macro If "Janvier" lancer macro 1 sinon macr

Bonjour Simon,🙂

Puisque j'ai 5 minutes, peut-être quelque chose comme ça:

Code:

Sub LaMacro()
    Dim plgSource As Range, plgDestination As Range
    'Copier la source avec l'entête
    Set plgSource = Sheets("Feuil1").Range("A1:K1000")

    If Month(Date) = 1 Then
        'Janvier
        Set Destination = Sheets("Feuil2").Range("A1")
    Else
        'Autres mois ---> prochaine ligne vide
        Set Destination = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp)(1)
        'Ne pas inclure l'entête de la plage plgSource
        Set plgSource = plgSource.Offset(1).Resize(plgSource.Rows.Count - 1)
    End If
    plgSource.Copy plgDestination
End Sub

A+

 

Vote positif 0 Vote négatif

S

sim

XLDnaute Occasionnel

• 3 Juin 2011

• #9

Re : [RESOLU] Lors de l'activation de la macro If "Janvier" lancer macro 1 sinon macr

Bonjour Hasco 🙂,

Je reconnait bien la la pate de l'artiste, pourquoi quand je lis tes codes ca a toujours l'air aussi simple???!!!

Merci beaucoup 🙂!!

Sim

 

Vote positif 0 Vote négatif