Excel / macro à modifier /
Résolu/Fermé
benji71
Messages postés
738
Date d'inscription
samedi 22 mars 2008
Statut
Membre
Dernière intervention
4 janvier 2015
-
21 sept. 2011 à 23:30
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 21 sept. 2011 à 23:49
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 21 sept. 2011 à 23:49
A voir également:
- Excel / macro à modifier /
- Modifier liste déroulante excel - Guide
- Comment modifier un pdf - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Aller à la ligne excel - Guide
- Formule excel - Guide
2 réponses
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 210
21 sept. 2011 à 23:36
21 sept. 2011 à 23:36
Bonsoir,
essaie avec :
eric
essaie avec :
Sub imprimer() Dim nmois As Long, mois As Long, année As Long, m As Long, saisie As String, savDate As Date saisie = InputBox("Nombre de mois à imprimer ?", "Nombre de mois", 4) If IsNumeric(saisie) Then nmois = CLng(saisie) If nmois > 12 Then nmois = 12 savDate = [E16] mois = Month([E16]) année = Year([E16]) For m = 1 To nmois 'MsgBox ("impression de " & Format([A20], "mmm/yyyy")) Worksheets("SAEC - G.prév.").PrintOut copies:=2 mois = mois Mod 12 + 1 année = année - (mois = 1) [E16] = DateValue("01/" & mois & "/" & année) Next m [E16] = savDate Else MsgBox ("Saisie non conforme") End If End Sub
eric
benji71
Messages postés
738
Date d'inscription
samedi 22 mars 2008
Statut
Membre
Dernière intervention
4 janvier 2015
23
21 sept. 2011 à 23:39
21 sept. 2011 à 23:39
quand c'est le papa d'une macro qui répond alors...on ne peut être mieux servi...
un tt grand merci...j'essai ça demain au bureau...car à la maison pas d'imprimante...
merci mr eriiic
berni//
un tt grand merci...j'essai ça demain au bureau...car à la maison pas d'imprimante...
merci mr eriiic
berni//
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 210
21 sept. 2011 à 23:49
21 sept. 2011 à 23:49
Ah, je suis arrivé pile-poil ;-)
a+
eric
a+
eric