VBA - Boucle avec for - Elle s’arrête à la ligne 15...... pourquoi?

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion adumaine
  • 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

adumaine

XLDnaute Nouveau
Bonjour à tous,

Je viens vers vous car j'ai un problème avec une boucle de recherche. (elle s’arrête à la ligne 15... )

Le but est de comparer 3 éléments de 2 feuilles excell.
Une fois les 3 conditions ok => Copier certaines cellules du fichier 1 dans le fichier B

Le code:
ub Bouton2_Clic()

'variables lignes correspondantes
Dim ISuividebut As Integer
Dim ISuivifin As Integer
Dim IZQSCdebut As Integer
Dim IZQSCfin As Integer

'Sheets("SUIVI_FAI_A350-1000").Unprotect

'Activation feuille SUIVI_FAI_A350-1000
Worksheets("SUIVI_FAI_A350-1000").Activate

'recherche dernière line de l'extract SUIVI_FAI_A350-1000
ISuivifin = Worksheets("SUIVI_FAI_A350-1000").Range("A3").End(xlDown).Row

'Activation feuille MAJ_ZQSC
Worksheets("MAJ_ZQSC").Activate

'recherche dernière line de l'extract MAJ_ZQSC
IZQSCfin = Worksheets("MAJ_ZQSC").Range("A2").End(xlDown).Row

'boucle de recherche
For ISuividebut = 3 To ISuivifin
For IZQSCdebut = 2 To IZQSCfin

'Recherche du PN suivi dans ZQSC
If Worksheets("SUIVI_FAI_A350-1000").Range("A" & ISuividebut) = Worksheets("MAJ_ZQSC").Range("A" & IZQSCdebut) Then

'Recherche de l'indice suivi dans ZQSC
ElseIf Worksheets("SUIVI_FAI_A350-1000").Range("C" & ISuividebut) = Worksheets("MAJ_ZQSC").Range("G" & IZQSCdebut) Then

'Recherche DU FOURNISSEUR suivi dans ZQSC
ElseIf Worksheets("SUIVI_FAI_A350-1000").Range("M" & ISuividebut) = Worksheets("MAJ_ZQSC").Range("D" & IZQSCdebut) Then

'Si vrai ecriture des infos
Worksheets("SUIVI_FAI_A350-1000").Range("N" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("B" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("E" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("H" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("O" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("F" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("F" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("I" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("G" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("J" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("L" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("K" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("AI" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("M" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("D" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("R" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("P" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("S" & IZQSCdebut).Value

Exit For

'Next IZQSCdebut
'End If
'Else
'Next IZQSCdebut
'End If
'Else
'Next
End If
Next IZQSCdebut
Next
End Sub


En espérant que vous puissiez m'aider..
Je reste disponible pour toutes vos interrogations
Cordialement
adumaine
 
Trier par date Trier par votes
Re : VBA - Boucle avec for - Elle s’arrête à la ligne 15...... pourquoi?

Bonjour ,

Sans le fichier , pas certain,

Mais cela ne correspondrait pas à une info vide dans la colonne A de cette ligne 16 je crois :

Ici l'équation qui donne la dernière ligne , en fait la premiere ligne vide de la colonne A

'recherche dernière line de l'extract MAJ_ZQSC
IZQSCfin = Worksheets("MAJ_ZQSC").Range("A2").End(xlDown).Row
 
Vote positif 0 Vote négatif
Re : VBA - Boucle avec for - Elle s’arrête à la ligne 15...... pourquoi?

Bonjour à tous,

Peut-être ceci :
'recherche dernière line de l'extract SUIVI_FAI_A350-1000
ISuivifin = Worksheets("SUIVI_FAI_A350-1000").Range("A3").End(xlUp).Row

et

'recherche dernière line de l'extract MAJ_ZQSC
IZQSCfin = Worksheets("MAJ_ZQSC").Range("A2").End(xlUp).Row


bonne journée
 
Vote positif 0 Vote négatif
Re : VBA - Boucle avec for - Elle s’arrête à la ligne 15...... pourquoi?

Merci à tous les 2 pour vos retours très rapide.

camarchepas ==> La colonne A des 2 feuilles est tjrs renseigné.
JBARBE => Je test est reviens vers vous.

Merci
Anthonyd
 
Vote positif 0 Vote négatif
Re : VBA - Boucle avec for - Elle s’arrête à la ligne 15...... pourquoi?

et la modification devrait plutot être :

ISuivifin = Worksheets("SUIVI_FAI_A350-1000").Range("A" & rows.count).End(xlUp).Row

et

'recherche dernière line de l'extract MAJ_ZQSC
IZQSCfin = Worksheets("MAJ_ZQSC").Range("A" & rows.count).End(xlUp).Row
 
Vote positif 0 Vote négatif
Re : VBA - Boucle avec for - Elle s’arrête à la ligne 15...... pourquoi?

Ca fonctionne !!
Merci pour votre aide!!


sub Bouton2_Clic()

'variables lignes correspondantes
Dim ISuividebut As Integer
Dim ISuivifin As Integer
Dim IZQSCdebut As Integer
Dim IZQSCfin As Integer

'Sheets("SUIVI_FAI_A350-1000").Unprotect

'Activation feuille SUIVI_FAI_A350-1000
Worksheets("SUIVI_FAI_A350-1000").Activate

'recherche dernière line de l'extract SUIVI_FAI_A350-1000
ISuivifin = Worksheets("SUIVI_FAI_A350-1000").Range("A3").End(xlDown).Row

'Activation feuille MAJ_ZQSC
Worksheets("MAJ_ZQSC").Activate

'recherche dernière line de l'extract MAJ_ZQSC
IZQSCfin = Worksheets("MAJ_ZQSC").Range("A2").End(xlDown).Row

'boucle de recherche
For ISuividebut = 3 To ISuivifin
For IZQSCdebut = 2 To IZQSCfin

'Recherche du PN suivi dans ZQSC
If Worksheets("SUIVI_FAI_A350-1000").Range("A" & ISuividebut) = Worksheets("MAJ_ZQSC").Range("A" & IZQSCdebut) Then

'Recherche de l'indice suivi dans ZQSC
if Worksheets("SUIVI_FAI_A350-1000").Range("C" & ISuividebut) = Worksheets("MAJ_ZQSC").Range("G" & IZQSCdebut) Then

'Recherche DU FOURNISSEUR suivi dans ZQSC
If Worksheets("SUIVI_FAI_A350-1000").Range("M" & ISuividebut) = Worksheets("MAJ_ZQSC").Range("D" & IZQSCdebut) Then

'Si vrai ecriture des infos
Worksheets("SUIVI_FAI_A350-1000").Range("N" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("B" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("E" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("H" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("O" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("F" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("F" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("I" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("G" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("J" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("L" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("K" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("AI" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("M" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("D" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("R" & IZQSCdebut).Value
Worksheets("SUIVI_FAI_A350-1000").Range("P" & ISuividebut).Value = Worksheets("MAJ_ZQSC").Range("S" & IZQSCdebut).Value

exit for
end if
end if
endif

Next IZQSCdebut
Next ISuividebut
End Sub


Bonne journée
Anthonyd
 
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

S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
691
Dranreb
Dranreb
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
177
kiki29
kiki29
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
1 K
fanch55
fanch55
Nicolas JACQUIN
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
311
thunder23
thunder23
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
503
tnion
T
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
233
escudo
E
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
855
Dranreb
Dranreb
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
536
spike29
S
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
461
Oneida
Oneida
klin89
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
488
patricktoulon
patricktoulon
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
KTM
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
106
KTM
KTM
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
347
patricktoulon
patricktoulon
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
505
MBEPID
M
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
487
telemarrk
T
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
GClaire
G
FRYS
  • Question Question
Microsoft 365 Retrouver les dépendants de cellules nommées
Réponses
6
Affichages
489
crocrocro
C
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
345
Latias
L
Retour