Bonjour,
Je souhaite identifier dans un fichier (et faire un copier-coller sur une autre feuille), toutes les lignes dont la date appartient au mois selectionné dans une liste déroulante.
Le seul moyen que j'ai trouvé pour l'instant de pouvoir avoir un mois en toute lettre dans la liste déroulante, c'est de transformer les mois en chiffre, sinon Excel refuse de me les exploiter.
Voici donc comment je fais :
Je ne vous met qu'un extrait, le reste étant un basique copier-coller
Et voici la macro cherchermois
N'y a -t-il pas une solution moins lourde pour obtenir le même résultat ? Excel ne peut vraiment pas identifier le mois et chercher toutes les dates appartenant à ce mois ?
Merci d'avance pour votre aide.
Très cordialement,
Evilson
Je souhaite identifier dans un fichier (et faire un copier-coller sur une autre feuille), toutes les lignes dont la date appartient au mois selectionné dans une liste déroulante.
Le seul moyen que j'ai trouvé pour l'instant de pouvoir avoir un mois en toute lettre dans la liste déroulante, c'est de transformer les mois en chiffre, sinon Excel refuse de me les exploiter.
Voici donc comment je fais :
Code:
Call cherchermois(moislettre)
Do Until a = 253
mois = DatePart("m", (Sheets("Données").Cells(a, 2)))
If mois = moislettre Then
Je ne vous met qu'un extrait, le reste étant un basique copier-coller
Et voici la macro cherchermois
Code:
Sub cherchermois(ByRef moislettre As Integer)
Sheets("Indicateur").Activate
If Range("D2") = "Janvier" Then
moislettre = 1
GoTo ok
End If
If Range("D2") = "Février" Then
moislettre = 2
GoTo ok
End If
If Range("D2") = "Mars" Then
moislettre = 3
GoTo ok
End If
If Range("D2") = "Avril" Then
moislettre = 4
GoTo ok
End If
If Range("D2") = "Mai" Then
moislettre = 5
GoTo ok
End If
If Range("D2") = "Juin" Then
moislettre = 6
GoTo ok
End If
If Range("D2") = "Juillet" Then
moislettre = 7
GoTo ok
End If
If Range("D2") = "Août" Then
moislettre = 8
GoTo ok
End If
If Range("D2") = "Septembre" Then
moislettre = 9
GoTo ok
End If
If Range("D2") = "Octobre" Then
moislettre = 10
GoTo ok
End If
If Range("D2") = "Novembre" Then
moislettre = 11
GoTo ok
End If
If Range("D2") = "Décembre" Then
moislettre = 12
GoTo ok
End If
ok:
End Sub
N'y a -t-il pas une solution moins lourde pour obtenir le même résultat ? Excel ne peut vraiment pas identifier le mois et chercher toutes les dates appartenant à ce mois ?
Merci d'avance pour votre aide.
Très cordialement,
Evilson