CODE VBA
BOY
-
Bidouilleu_R Messages postés 1209 Statut Membre -
Bidouilleu_R Messages postés 1209 Statut Membre -
Bonjour,
dans une feuille cellule a1 = AUJOURDHUI()
CELLULE A2 = JOUR DE LA CELLULE A1
31 MACRO CREES 1 MACRO PAR JOUR
JE VOUDRAIS EXERCUTE LA MACRO 1 (AFFICHAGE DE LA JOURNNE 1)SI A2 =1
MACRO 2 SI A2=2 ETC JUSQU A MACRO 31
CA MARCHE MANUELLEMENT QUANT JE CLIQUE SUR UN BOUTON
JE VOUDRAIS QUA OUVERTURE DU CLASSEUR CA EXEUCUTE AUTOMATIQUEMENT L AFFICHAGE DU JOUR 'CELLULE A2)
dans une feuille cellule a1 = AUJOURDHUI()
CELLULE A2 = JOUR DE LA CELLULE A1
31 MACRO CREES 1 MACRO PAR JOUR
JE VOUDRAIS EXERCUTE LA MACRO 1 (AFFICHAGE DE LA JOURNNE 1)SI A2 =1
MACRO 2 SI A2=2 ETC JUSQU A MACRO 31
CA MARCHE MANUELLEMENT QUANT JE CLIQUE SUR UN BOUTON
JE VOUDRAIS QUA OUVERTURE DU CLASSEUR CA EXEUCUTE AUTOMATIQUEMENT L AFFICHAGE DU JOUR 'CELLULE A2)
Configuration: Windows XP Internet Explorer 8.0
2 réponses
-
bonjour,
tu dis :"CA MARCHE MANUELLEMENT QUANT JE CLIQUE SUR UN BOUTON "
donc dans la feuille Thisworbook (double click)
Private Sub Workbook_Open()
'execute la macro qui va bien
MACRO1
End Sub
enregistre et teste
A+-
Bonjour,
tu dis :"CA MARCHE MANUELLEMENT QUANT JE CLIQUE SUR UN BOUTON " sur le bouton du jour
donc dans la feuille Thisworbook (double click)
Private Sub Workbook_Open()
'execute la macro qui va bien
MACRO1 si la date du jour est le 01/06/2009 donc le 1 donc macro1
End Sub le 02/06/2009 ca sera le 2 donc la macro2 etc jusqu'au dernier jour du mois concerne aujourdhui nous somme le 18/06/2009 donc pour l affichage ca doit prendre la macro 18 a l ouverture
-
-
Bonjour patrick,
La question de bob était : "JE VOUDRAIS QUA OUVERTURE DU CLASSEUR CA EXEUCUTE AUTOMATIQUEMENT L AFFICHAGE DU JOUR 'CELLULE A2)"
ce qui s'écrira comme ça
Private Sub Workbook_Open()
'execute la macro qui va bien
MACRO1
End Sub
sub macro1()
range("A2").value=format(Date,"dd/mm/yyyy") ' pour afficher 18/06/2009
' ou
range("A2").value=format(date,"dd") ' pour le numéro du jour seul
end sub
mais pour executer 1 macro différente par jour pendant tout le mois ( pas subtil entre nous mais bon)
je ferai comme ça
Sub macro1()
Dim lejour as integer
Range("A2").Value = Format(Date, "dd") ' le numero du jour en A2
lejour = Format(Date, "dd") ' contient le numéro du jour
Select Case lejour
Case 1
Range("b1").Select ' ou macrojour1 ou suite d'instruction
Case 2
Range("b2").Select ' je selectionne B2 pour montrer que cela fait qqchose de différent
.....
Case 18
Range("b18").Select ' pareil ici
End Select
End Sub
Est-ce que cela répond à la question?
A+
