CODE VBA
Fermé
BOY
-
15 juin 2009 à 22:35
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 18 juin 2009 à 09:32
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 18 juin 2009 à 09:32
A voir également:
- CODE VBA
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code activation windows 10 - Guide
- Code gta 4 ps4 - Guide
2 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
293
16 juin 2009 à 08:54
16 juin 2009 à 08:54
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+
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+
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
293
18 juin 2009 à 09:32
18 juin 2009 à 09:32
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+
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+
17 juin 2009 à 21:51
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