VBA Problème de boucle

Résolu
onra -  
 onra -
Bonjour,

J'essaye de faire un code me permetant de chercher dans une colonne un mot: "Lot1". Et quand il me trouve "Lot1" il copie des cellules de la meme ligne vers une feuille 3.
Le truc, c'est que dans la colonne "Lot", il y a plusieurs lot dans un ordre aléatoire. El il faut ressortir les cellules associés à Lot 1 à chaque fois qu'il tombe dessus.

Mon code marche presque . Il lit bien Lot 1 à chaque fois qu'il passe dessus, mais il ne copie pas les cellules vers ma feuille 3.
Alors a mon avis soit il ne copie pas , soit il n'arrive pas à se décaler vers la première ligne vide... A voir.

Je vous laisse mon code:

Ligne = 2
i = 3
Do Until Worksheets("Bdd").Cells(Ligne, 4).Value = ""
If Worksheets("Bdd").Cells(Ligne, 4).Value = "Lot1" Then
While (Worksheets(3).Cells(i, 1).Value = "")
Worksheets(3).Cells(i, 1) = Worksheets(1).Cells(Ligne, 5)
Worksheets(3).Cells(i, 2) = Worksheets(1).Cells(Ligne, 6)
Wend
Else
End If
Ligne = Ligne + 1
MsgBox (Ligne)
Loop
Columns("A:L").EntireColumn.AutoFit

End Sub

8 réponses

Réponse 1 / 8
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
Quel est le but de While (Worksheets(3).Cells(i, 1).Value = "") ?
0
onra
 
C'est la boucle qui me permet de copier les valeurs des cellules sur la première ligne vide de la feuille 3
0
yg_be Messages postés 24281 Statut Contributeur 1 584 > onra
 
Je propose de supprimer les lignes while et wend
0
onra > yg_be Messages postés 24281 Statut Contributeur
 
Le problème si je fait ca , c qu'il ne cherchera pas la première ligne vide pour copier et copira sur la même ligne que la où il l'a trouver le mot chercher
0
yg_be Messages postés 24281 Statut Contributeur 1 584 > onra
 
tu devrais sans doute donc faire :

While (Worksheets(3).Cells(i, 1).Value = "")
i = i+1
wend
Worksheets(3).Cells(i, 1) = Worksheets(1).Cells(Ligne, 5)
Worksheets(3).Cells(i, 2) = Worksheets(1).Cells(Ligne, 6)
0
onra > yg_be Messages postés 24281 Statut Contributeur
 
J'ai essayé, mais ca ne change rien....

Donc toujours pas de solution

Merci quand meme
0
Réponse 2 / 8
Polux31 Messages postés 7219 Statut Membre 1 204
 
Bonjour,

si tu cherches la première cellule vide ce n'est pas : While (Worksheets(3).Cells(i, 1).Value = "") qu'il faut faire mais
While Worksheets(3).Cells(i, 1).Value <> "" ... ici tu incrémentes bien i à chaque ligne non vide trouvée et tu sors du While à la première cellule vide trouvée.

;o)
0
onra
 
Merci beaucoup, c'est nettement mieux - en tout cas ca me redonne espoir.
Donc avec cette boucle ca me eprmet de copeir sur la première ligne vide.
Mais le problème c'est que c'est une boucle infinie
et au lieu de me copier toutes les lignes qui comporte le Lot 1 ca me copie seulement la première ligne indéfiniment.

Je cherche toujours..............
0
onra > onra
 
je vous remet le code entier, peut être y a t'il certaines erreurs que je n'ai pas vu:

Ligne = 1
i = 1
Do Until Worksheets("Bdd").Cells(Ligne, 4).Value = ""
If Worksheets("Bdd").Cells(Ligne, 4) = "Lot1" Then
While Worksheets(3).Cells(i, 1).Value <> ""
Worksheets(3).Cells(i + 1, 1) = Worksheets(1).Cells(Ligne, 5)
Worksheets(3).Cells(i + 1, 2) = Worksheets(1).Cells(Ligne, 6)
MsgBox ("i" & i)
Wend
i = i + 1
End If
Ligne = Ligne + 1
MsgBox ("ligne" & Ligne)
Loop
Columns("A:L").EntireColumn.AutoFit
0
Réponse 3 / 8
Polux31 Messages postés 7219 Statut Membre 1 204
 
re

Essaies comme ça: 
Ligne = 1 
i = 1 
While Worksheets("Bdd").Cells(Ligne, 4).Value <> "" 
   If Worksheets("Bdd").Cells(Ligne, 4) = "Lot1" Then 
      While Worksheets(3).Cells(i, 1).Value <> "" 
         Worksheets(3).Cells(i + 1, 1) = Worksheets(1).Cells(Ligne, 5) 
         Worksheets(3).Cells(i + 1, 2) = Worksheets(1).Cells(Ligne, 6) 
         'MsgBox ("i" & i)
      i = i + 1
      Wend 
   End If 
Ligne = Ligne + 1 
'MsgBox ("ligne" & Ligne) 
Wend


et dis ce que ça donne...

;o)
0
onra
 
Ca m'enmerde de te dire ca, mais.... c'est pas encore ca.
Quand je test ta boucle ca me copie indéfiniement la première ligne comportent le lot1 de la feuille 1 vers la feuille 3.

Alors le premier probleme , c'est que c'est une boucle infinie

Je vais donc aussi essayé de réespliquer ce dont j'ai besoin

J'ai une feuille1 avec un tableau dont une colonne comporte une série de lot
Par exemple: Lot1
Lot2
Lot5
Lot8
Lot1
Lot3
A ces cellule sont associées d'autre cellules avec certaines valeurs définissant ces lots

Mon but est de trier ce tableau, en prenant toutes les valeurs associées à un lot (lot1 par exemple) pour les copier lignes par ligne dans un aure tableau feuille3

Voila pour les explications....


Maintenant, je comprend vraiement pas pourquoi cette boucle ne fonctionne pas
0
Réponse 4 / 8
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
et ceci ?

Ligne = 1
i = 1
While Worksheets("Bdd").Cells(Ligne, 4).Value <> ""
If Worksheets("Bdd").Cells(Ligne, 4) = "Lot1" Then
Worksheets(3).Cells(i + 1, 1) = Worksheets(1).Cells(Ligne, 5)
Worksheets(3).Cells(i + 1, 2) = Worksheets(1).Cells(Ligne, 6)
'MsgBox ("i" & i)
i = i + 1
End If
Ligne = Ligne + 1
'MsgBox ("ligne" & Ligne)
Wend
0
onra
 
Oui je suis d'accord ca serait plus simple, mais pour mon tableau ce n'est pas possible.
La petite boucle while au mileu me permet de chercher la première ligne vide du tableau de la feuille 3 et c'est indispensable.
En fait elle a un peu la meme fonction que la première boucle while, qui engendre l'action demandée tant que le code ne rencontre pas une cellule vide.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
Polux31 Messages postés 7219 Statut Membre 1 204
 
re 

Ligne = 1 
i = 1 
While Worksheets("Bdd").Cells(Ligne, 4).Value <> "" 
   If Worksheets("Bdd").Cells(Ligne, 4) = "Lot1" Then 
      While Worksheets(3).Cells(i, 1).Value <> "" 
         i = i + 1
      wend
         Worksheets(3).Cells(i + 1, 1) = Worksheets(1).Cells(Ligne, 5) 
         Worksheets(3).Cells(i + 1, 2) = Worksheets(1).Cells(Ligne, 6) 
         'MsgBox ("i" & i)
   End If 
Ligne = Ligne + 1 
'MsgBox ("ligne" & Ligne) 
Wend


pitete comme ça
0
Réponse 6 / 8
onra
 
mais je suis sur ne piste.
Je vous tiens au courant!!!!
0
Polux31 Messages postés 7219 Statut Membre 1 204
 
j'ai fait un test et ça marche avec le bout de code ci dessus

;o)
0
onra > Polux31 Messages postés 7219 Statut Membre
 
Oui, ca marche...ou presque.
Ca me copie bien tout comme il faut: a chaque fois qu'il passe sur lot 1 il copie ls cellules associées.
Le problème c'est que ca copie toujours sur la meme ligne.

En tout cas merci, pour ton aide, c'est cool
0
yg_be Messages postés 24281 Statut Contributeur 1 584 > onra
 
Ligne = 1
i = 1
While Worksheets("Bdd").Cells(Ligne, 4).Value <> ""
If Worksheets("Bdd").Cells(Ligne, 4) = "Lot1" Then
While Worksheets(3).Cells(i, 1).Value <> ""
i = i + 1
wend
Worksheets(3).Cells(i + 1, 1) = Worksheets(1).Cells(Ligne, 5)
Worksheets(3).Cells(i + 1, 2) = Worksheets(1).Cells(Ligne, 6)
'MsgBox ("i" & i)
i=i+1
End If
Ligne = Ligne + 1
'MsgBox ("ligne" & Ligne)
Wend
0
Réponse 7 / 8
onra
 
en fait le truc c'est que i ne s'incrémente pas: il reste à i=3
0
onra
 
Ca y est!!!! enfin Merci à vous deux le dernier code est le bon.

Je vous remercie beaucoup pour votre aide. Je vais pouvoir avancer un peu....

Certainement à bientôt pour plein d'autre questions que j'aurais à vous poser.

Et bon Week End à vous
0
Réponse 8 / 8
Polux31 Messages postés 7219 Statut Membre 1 204
 
ok j'ai compris, tu copies sur la ligne vide trouvée + 1 :
Worksheets(3).Cells(i + 1, 1) = Worksheets(1).Cells(Ligne, 5)

est-ce normal ?

Si oui, alors rajoute après :
ligne = ligne + 1
i = 1

;o)

EDIT: il ne faut pas que tu ais des lignes vides dans worksheets(3) à partir de la première ligne renseignée jusqu'à la dernière ligne rensignée.
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Mon pc s'allume et s'éteint en boucle
Jack -
Daniel -

16 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Mon ordinateur s'allume et s'eteint en boucle
mhmd_elmrni -
BiGaMeRz10 -

10 réponses
VBA excel : résoudre problème de capacité.
Juan Pedro -
Kunzi -

9 réponses