VBA Problème de boucle

Résolu/Fermé

onra - 20 juin 2008 à 11:43
onra - 20 juin 2008 à 15:07

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

A voir également:

VBA Problème de boucle
Redmi note 10 redemarre en boucle - Forum Xiaomi
Erreur 1004 vba ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Vba attendre 1 seconde ✓ - Forum VB / VBA

8 réponses

Réponse 1 / 8

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
20 juin 2008 à 12:38

Quel est le but de While (Worksheets(3).Cells(i, 1).Value = "") ?

onra
20 juin 2008 à 13:02

C'est la boucle qui me permet de copier les valeurs des cellules sur la première ligne vide de la feuille 3

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476 > onra
20 juin 2008 à 13:10

Je propose de supprimer les lignes while et wend

onra > yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024
20 juin 2008 à 13:19

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

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476 > onra
20 juin 2008 à 13:24

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)

onra > yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024
20 juin 2008 à 13:53

J'ai essayé, mais ca ne change rien....

Donc toujours pas de solution

Merci quand meme

Réponse 2 / 8

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
20 juin 2008 à 13:57

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)

onra
20 juin 2008 à 14:06

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..............

onra > onra
20 juin 2008 à 14:07

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

Réponse 3 / 8

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
20 juin 2008 à 14:13

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)

onra
20 juin 2008 à 14:27

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

Réponse 4 / 8

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
20 juin 2008 à 14:30

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

onra
20 juin 2008 à 14:42

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.

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

Posez votre question

Réponse 5 / 8

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
20 juin 2008 à 14:41

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

Réponse 6 / 8

onra
20 juin 2008 à 14:43

mais je suis sur ne piste.
Je vous tiens au courant!!!!

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
20 juin 2008 à 14:50

j'ai fait un test et ça marche avec le bout de code ci dessus

;o)

onra > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
20 juin 2008 à 14:57

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

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476 > onra
20 juin 2008 à 14:59

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

Réponse 7 / 8

onra
20 juin 2008 à 14:59

en fait le truc c'est que i ne s'incrémente pas: il reste à i=3

onra
20 juin 2008 à 15:07

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

Réponse 8 / 8

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
20 juin 2008 à 15:04

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.

Discussions similaires

Mon pc s'allume et s'éteint en boucle

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

VBA : Range avec références variables..

programme qui n'affiche pas le mot secret

Discussions similaires

Newsletters