une boucle qui semble mal fonctionner

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion alain90
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

alain90

XLDnaute Junior
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
 
Trier par date Trier par votes
Re : une boucle qui semble mal fonctionner

Bonjour
Peut etre comme ça

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("B60000").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).Off set(1, 0) 'Définit la nouvelle destination
End If
Next
Unload Me
Application.ScreenUpdating = True
Sheets("Recherches").Select

End Sub

A+
 
Vote positif 0 Vote négatif
Re : une boucle qui semble mal fonctionner

Bonjour le forum, GI_GI

déjà merci pour ta réponse
En fait vous avez juste changé la recherche à partir de la colonne a sur la col b
J'avais déjà essayé et ça ne marche pas mieux
D'autres solutions ?
merci d'avance
Alain
 
Vote positif 0 Vote négatif
Re : une boucle qui semble mal fonctionner

Bonjour le forum

J'ai enfin réussi à faire un fichier exemple
Vous verrez une feuille(feuil2) où il se trouve un bouton " RJ .."
En cliquant sur ce bouton apparait un userform où vous choisissez le mois et l'année
Lorsque vous cliquez sur "valider" alors s'effectue la recherche et c'est là qu'est mon problème :
- la boucle semble s’arrêter et retranscrire sur des valeurs mais pas toutes !!!!
Pourquoi ... je cherche mais ne trouve pas
Une aide est-elle possible ?
merci d'avance pour vos réponses

Alain
 

Pièces jointes

Vote positif 0 Vote négatif
Re : une boucle qui semble mal fonctionner

Bonjour Alain90,

il semble que la boucle fonctionne bien, mais que tu colles toujours les données sur la même ligne
la cause:
Set Dest = Sheets("Feuil2").Range("A60000").End(xlUp).Offset(1, 0) 'Définit la nouvelle destination
Cliquez pour agrandir...

En testant avec une variable de ligne, cela parait correct, il y a plein de méthodes discutables...
en voici un exemple, qui au moin montre que ça peut fonctionner:

Code: 
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False 'Fige l'ecran
Sheets("Feuil2").Range("A9:AF60000").Clear 'Efface les données précédentes
 ligne = 9 '#####MODIF#####
Set Dest = Sheets("Feuil2").Range("A" & ligne) '#####MODIF#####
DateDeb = DateSerial(ComboBox2.Value, ComboBox1.Value, 1) 'Date de debut et date de Fin (mois à extraire)
DateFin = DateSerial(ComboBox2.Value, ComboBox1.Value + 1, 1) 'Date de debut et date de Fin (mois à extraire)
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
        ligne = ligne + 1  '#####MODIF#####
        Set Dest = Sheets("Feuil2").Range("A" & ligne)  '#####MODIF#####
    End If
Next
Unload Me
Application.ScreenUpdating = False
    Sheets("Feuil2").Select
End Sub

Cordialement
 
Vote positif 0 Vote négatif
Re : une boucle qui semble mal fonctionner

bonsoir le forum
bonsoir sixair,
un grand merci pour ta réponse
Mais voilà , sur la base réelle ça marche mais il y a des oublis (exemple : je cherche les RJ de janvier 2013 - de visu j'en ai deux - et il n'en sort qu'une)
Je joins le fichier modifier pour respecter la confidentialité avec la macro modifiée comme vous me l'avez indiquée

Je n'y comprend plus rien et j'ai vraiment besoin d'aide - peut-être que la macro n'est pas bonne pour mon fichier ....

Enfin .... merci d'avance pour vos réponses fortement souhaitées

Alain
 

Pièces jointes

Vote positif 0 Vote négatif
Re : une boucle qui semble mal fonctionner

Bonjour le forum

Toujours pas de réponse ? aurai-je été oublié ou ne trouvez-vous pas de solution
Je suis actuellement bloqué sur ce problème .. et je cherche toujours ....mais moi, avec mes faibles connaissances....

De l'aide, s'il vous plait

Avec mes excuses pour cette insistance

merci
 
Vote positif 0 Vote négatif
Re : une boucle qui semble mal fonctionner

Bonsoir le forum
bonsoir Si et GI_GI

je viens d'essayer vos deux fichiers et ça marche
Je vous dis un grand merci pour le souci que vous venez de m’ôter
Encore merci
et merci au forum qui est super
Je considère donc le problème comme résolu
Cordialement

Alain
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
346
Latias
L
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
451
AtTheOne
AtTheOne
cathodique
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
cathodique
A
  • Résolu(e)
XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox
Réponses
3
Affichages
601
Aldonanou
A
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Simplifier un code fonctionnel
Réponses
2
Affichages
541
chaelie2015
chaelie2015
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
vgendron
F
  • Question Question
XL 2010 combobox dépendante les unes aux autres
Réponses
4
Affichages
723
ChTi160
ChTi160
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
fanch55
D
  • Question Question
XL 2013 envoi mail va excel : faire une boucle avec 10 destinataires à chaque envoi
Réponses
5
Affichages
1 K
david54520
D
Electron24
  • Résolu(e)
Microsoft 365 Filtrer un tableau dans une feuille
2
Réponses
20
Affichages
2 K
Electron24
Electron24
J
  • Question Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
994
jabenj
J
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
1 K
sylvanu
sylvanu
Ferbank
  • Question Question
XL 2019 modifier une macro
Réponses
2
Affichages
1 K
Ferbank
Ferbank
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
A
  • Résolu(e)
Microsoft 365 faire une boucle auto pour supprimer les lignes contenant un "I" ou un "D" et copier les lignes qui contiennent un "A" dans une autre feuille excel
2
Réponses
19
Affichages
2 K
Alex55
A
A
  • Résolu(e)
XL 2019 Copier une liste d'un tableau plusieurs fois
Réponses
4
Affichages
1 K
AlexiaC
A
P
  • Question Question
XL 2019 Ajouter une date de fin pour un débit/crédit récurrent via VBA
2
Réponses
19
Affichages
3 K
herve62
herve62
J
  • Résolu(e)
XL 2016 Aide Macro VBA - Reporter valeurs Feuille 1 dans une autre feuille 2 à partir d'une certaine cellule
Réponses
9
Affichages
5 K
jo77
J
Retour