OVH Cloud OVH Cloud

recopie incrémentée

3 réponses
Avatar
news
Bonsoir,

Comment fait-ont pour faire apparaître toutes les options dans icône?
Je n'arrive pas a faire une liste des jours de la semaine.
Merci de vos réponses
Amicalement Francis

3 réponses

Avatar
Patrick Fredin
Bonjour,

Ce n'est pas très clair tout cela. Peux-tu donner plus de détails ?


--
Patrick

"news" wrote in message news:41b73133$
Bonsoir,

Comment fait-ont pour faire apparaître toutes les options dans icône?
Je n'arrive pas a faire une liste des jours de la semaine.
Merci de vos réponses
Amicalement Francis






Avatar
news
Bonjour,

J'aimerais faire une feuille pour chaque mois de l'année, avec une colonne,
numéro du jour une avec les différents jours du mois. ex: 1 du mois
mercredi.
Dans la colonne des jours, le bouton recopie incrémentée ne me pas toutes
les options comme indiqué dans l'aide.
Si je fait glissé le bouton vers le bas le texte mercredi se recopie dans
chaque ligne au lieu d'une série.Le problème et le même pour les chiffres.
Amicalement Francis
Avatar
AV
A tester sur un classeur vierge :

Sub zzzz()
Application.ScreenUpdating = False
x = InputBox("Quelle année(millésime) ?")
If x = "" Then Exit Sub
For i = 1 To 12
Sheets.Add.Name = _
"M" & Format(DateSerial(x, i, 1), "mmmm")
For j = 1 To Day(DateAdd("d", -1, DateSerial(x, i + 1, 1)))
Cells(j, "A") = Format(DateSerial(x, i, j), "dd")
Cells(j, "B") = Format(DateSerial(x, i, j), "dddd")
Next
Next
End Sub

AV