Private Sub CommandButton1_Click()
Dim d As String 'déclare la variable d (Date)
Dim m As String 'déclare la variable m (numéro du Mois)
Dim mois As String 'déclare la variable mois
Dim dest As Range 'déclare la variable dest (DESTination)
ActiveCell.Select 'enlève le focus au bouton
d = Range("B1").Value 'définit la date d
m = Month(d) 'définit le numéro du mois m
Select Case m 'définit le mois en fonction du numéro du mois
Case "1"
mois = "janvier"
Case "2"
mois = "février"
Case "3"
mois = "mars"
Case "4"
mois = "avril"
Case "5"
mois = "mai"
Case "6"
mois = "juin"
Case "7"
mois = "juillet"
Case "8"
mois = "août"
Case "9"
mois = "septembre"
Case "10"
mois = "octobre"
Case "11"
mois = "novembre"
Case "12"
mois = "décembre"
End Select
Set dest = Sheets(mois).Range("A1").Offset(1, Day(d)) 'définit la cellule de destination
Range("B4:B17").Copy dest 'copie la plage B4:B17 et la colle dans la cellule de destination dest
End Sub
m = MonthName(Month(d))
Aarf, oui dans ce cas...Langue Portugais (Bresil) / Clavier USA International, ça renvoit les mois en anglais... d'où le Select Case.
Dim m As Integer
m = Month(Date)
MsgBox Switch(m = 1, "janvier", m = 2, "février", m = 3, "mars")
Dim m As Integer
m = Month(Date)
MsgBox Choose(m, "janvier", "février", "mars")
mois = Format(d, "mmmm")
Re
@ BZH
rivalité !! le vilain vocable
Je lui prefere émulation et souhaite que le Grand Robert partage mon opinion
Set dest = Sheets(mois).Range("A1").Offset(1, Day(d)) 'définit la cellule de destination
Range("c4:c17").Copy
dest.PasteSpecial xlPasteValues