Bonjour le forum
Bonjour à tous,
Avec l'aide de Gareth (encore merci) j'ai arrangé une macro qui recherche ( ici les RJ) à partir d'un mois et d'une année, sélectionnée dans un userform, activé (feuille "sommaire") par le bouton "lister les RJ d'un mois", dans une liste (feuille "Liste")
Mon problème est que la boucle sur les dates fonctionne mal, elle semble s’arrêter lorsqu'elle a trouvé une date et n'affiche (feuille "recherches") que cette donnée
Je n'arrive pas à envoyer le fichier même zippé (il me répond fichier non valide)
Aussi je vous joint le texte de la macro en vous signalant, si cela est important, que dans la colonne J j'ai de nombreuses plages vides comme la colonne A; la seule colonne toujours remplie est la colonne B
Private Sub CommandButton1_Click()
'valider
Application.ScreenUpdating = False 'Fige l'ecran
Sheets("Recherches").Range("A6:AF60000").Clear 'Efface les données précédentes
Set Dest = Sheets("Recherches").Range("A6") 'Définit la destination
'Date de debut et date de Fin (mois à extraire)
DateDeb = DateSerial(ComboBox2.Value, ComboBox1.Value, 1)
'Date de debut et date de Fin (mois à extraire)
DateFin = DateSerial(ComboBox2.Value, ComboBox1.Value + 1, 1)
For Each x In Sheets("Liste").Range("J6:J" & Sheets("Liste").Range("A60000").End(xlUp).Row) 'Boucle sur les dates
If x.Value >= DateDeb And x.Value < DateFin Then 'Si la date correspond au mois recherché
x.Offset(0, -9).Resize(1, 32).Copy Dest
Set Dest = Sheets("Recherches").Range("A60000").End(xlUp).Offset(1, 0) 'Définit la nouvelle destination
End If
Next
Unload Me
Application.ScreenUpdating = True
Sheets("Recherches").Select
End Sub
Pouvez-vous m'aider, moi je ne trouve pas ?
Merci d'avance pour votre réponse
Alain
Bonjour à tous,
Avec l'aide de Gareth (encore merci) j'ai arrangé une macro qui recherche ( ici les RJ) à partir d'un mois et d'une année, sélectionnée dans un userform, activé (feuille "sommaire") par le bouton "lister les RJ d'un mois", dans une liste (feuille "Liste")
Mon problème est que la boucle sur les dates fonctionne mal, elle semble s’arrêter lorsqu'elle a trouvé une date et n'affiche (feuille "recherches") que cette donnée
Je n'arrive pas à envoyer le fichier même zippé (il me répond fichier non valide)
Aussi je vous joint le texte de la macro en vous signalant, si cela est important, que dans la colonne J j'ai de nombreuses plages vides comme la colonne A; la seule colonne toujours remplie est la colonne B
Private Sub CommandButton1_Click()
'valider
Application.ScreenUpdating = False 'Fige l'ecran
Sheets("Recherches").Range("A6:AF60000").Clear 'Efface les données précédentes
Set Dest = Sheets("Recherches").Range("A6") 'Définit la destination
'Date de debut et date de Fin (mois à extraire)
DateDeb = DateSerial(ComboBox2.Value, ComboBox1.Value, 1)
'Date de debut et date de Fin (mois à extraire)
DateFin = DateSerial(ComboBox2.Value, ComboBox1.Value + 1, 1)
For Each x In Sheets("Liste").Range("J6:J" & Sheets("Liste").Range("A60000").End(xlUp).Row) 'Boucle sur les dates
If x.Value >= DateDeb And x.Value < DateFin Then 'Si la date correspond au mois recherché
x.Offset(0, -9).Resize(1, 32).Copy Dest
Set Dest = Sheets("Recherches").Range("A60000").End(xlUp).Offset(1, 0) 'Définit la nouvelle destination
End If
Next
Unload Me
Application.ScreenUpdating = True
Sheets("Recherches").Select
End Sub
Pouvez-vous m'aider, moi je ne trouve pas ?
Merci d'avance pour votre réponse
Alain