[VBA-E] Sélectionner toutes les dates relatives à un mois choisit
Bonjour,
Je bute sur un point et j’aimerai savoir comment je peux faire par une inputbox ou autre, qui permettrai de sélectionner des dates (par exemple sélectionner du : 01/01/06 au : 31/01/06) afin de sélectionner toutes les dates comprises dans la sélection (ce tableau gère mes comptes) afin de copier cette sélection dans une autre feuille, qui me permettrait ainsi par la suite de calculer mes montants HT et TVA du mois concerné .
Donc le point où je bute est cette sélection de dates !
Dans l’espoir que quelqu’un puisse me sortir de ce problème .
Bien cordialement.
[VBA-E] Sélectionner toutes les dates correspondantes à un mois choisit
Bonjour c'est encore moi,
J'ai créé une InputBox me permettant de choisir un mois .
Je bute sur un point : j’aimerai savoir comment je peux faire pour sélectionner toutes les dates comprises dans la sélection (ce tableau gère mes comptes) afin de copier cette sélection dans une autre feuille, qui me permettrait ainsi par la suite de calculer mes montants HT et TVA du mois concerné .
Donc le point où je bute : est cette sélection de dates par rapport au mois choisit dans l'inputbox !
Je pense à un truc comme : Sélectionner les lignes visibles puis copier coller
ou bien une boucle du genre : par rapport à la sélection de l'ensemble du tableau : départ de la recherche sur la cellule "A8"
si le mois correspond au mois choisit dans l'inputbox, alors copier cette ligne sur autre feuille, sinon passer à la cellule "A9"
Ensuite passer à la cellule "A9" avec les mêmes opérations
Et ainsi de suite jusqu'à la dernière cellule du tableau non vide
Et là je ne sais pas comment faire !
d'avance merci pour votre aide.
[VBA-E] Sélectionner toutes les dates relatives à un mois choisit
Bon voilà où j'en suis , j'ai bien avancé, mais j'ai un souci :
En testant le déroulement de la macro avec F8, lorsque je rentre par exemple : mai-2007 Eh bien dans ma "feuil2" les dates correspondant à : mai 2006 sont copier ?????
_____________________________________________________________
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| Sub TotalHtTvaCopiePourTravail()
Dim LeMois As Variant
Dim Cell As Range
Dim BonMois As Date
'Insertion d'une boite de message pour choisir le mois
LeMois = InputBox("Saisir le mois recherché", "SAISIE DU MOIS", "mois-aaaa")
'On suppose que la date a été saisie sous une autre forme (ex. juin 06)...
'... mais on cherche juin-06 -> On doit formater la date
BonMois = CVar(Format(CDate(LeMois), "mmmm-yyyy")) ' donne "mois-année"
Do While Not IsDate(BonMois)
LeMois = InputBox("Mauvaise saisie du mois" & Chr(10) & _
"Re-Saisir le mois" & Chr(10) & _
"Par exemple : mai-2006", "SAISIE DU MOIS", "mois-aaaa")
Loop
'Sélection du tableau actif
Sheets("Feuil1").Select
Range("A7").Select
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(6, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
'Tri des dates valeurs en ordre décroissant
Selection.Sort Key1:=Range("A8"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Plage = Range("A8", Range("A8").EntireColumn.Find(What:="*", _
SearchDirection:=xlPrevious)).Select
For Each Cell In Selection 'Pour chaque cellule de la sélection
If Month(Cell) = Month(BonMois) Then 'Si le mois = le mois cherché, alors
'Copier les lignes correspondantes dans "Feuil2"
Cell.EntireRow.Copy Sheets("Feuil2").Cells(Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1, 1)
End If
Next Cell 'Recherche sur les cellules suivantes
Application.CutCopyMode = False 'Annule mode copie
End Sub |
____________________________________________________________
[VBA-E] Sélectionner toutes les dates relatives à un mois choisit
Bonsoir,
Merci pour la réponse
Je réponds un peu tard, mais j'ai pas eu trop le temps ces jours-ci .
J'ai testé :
Code:
If Month(Cell) = Month(BonMois) and Year(Cell) = Year(BonneAnnée) then
Mais là , je n'ai aucune copie de lignes dans la feuille2
Je cherche pourquoi, mais je trouve pas
Dans l'espoir de votre réponse !
merci d'avance
[VBA-E] Sélectionner toutes les dates relatives à un mois choisit
Bonsoir Michel,
Super, ton code me permets de faire exactement ce que je voulais faire...
Ca MARCHE !
Je te dis un grand merci .
Bien cordialement .
Fifi.