Boucles imbriquées : ne prend toujours que la même valeur... Fermé

Question

Hello à tous !
Cela fait longtemps que je planche sur des boucles imbriquées, si vous arrivez à me dégager de là ce serait top !

Mon fichier trouve les correspondances de texte entre deux onglets différents : dès que les 5 premiers caractères de ma cellule sont trouvés dans un autre onglet avec une grosse base de données, alors il y met à côté les infos complémentaires de l'autre onglet.
Toutefois au sein même de cette boucle, je souhaite en faire une nouvelle (cf boucle x en en dessous), et c'est là que je bloque : je cherche à ce qu'il prenne à chaque fois une valeur différence selon x (donc z+ 0 puis z+1 puis z+2 et z+3), mais finalement il ne me resort toujours QUE z+3, je n'arrive pas à incrémenter le x au sein de la boucle z déjà existante...Auriez-vous des idées ?

Ci dessous la partie du code :

For i = 11 To 27 Step 4 'lignes à remplir
For y = 1 To 14 Step 2 'colonnes à remplir
For Z = 5 To 300 'lignes pour chercher la correspondance

If Left(Worksheets("Grille soirée").Cells(i, y).Value, 5) = Left(Worksheets("Grille soirée").Cells(i + 4, y).Value, 5) And Worksheets("Grille soirée").Cells(i, y).Value <> "" Then
Worksheets("Grille soirée").Cells(i, y).Interior.Color = 65535
Worksheets("Grille soirée").Cells(i + 4, y).Interior.Color = 65535
End If

If Worksheets("Grille soirée").Cells(6, y).Value > 1 And Left(UCase(sansAccent(Worksheets("Grille soirée").Cells(i, y).Value)), 8) Like Left(UCase(sansAccent(Worksheets("Données TV Matrice").Range("E" & Z).Value)), 8) Then

For x = 0 To 3
Worksheets("Grille soirée").Cells(i, y).Offset(-1, 0).Value = Worksheets("Données TV Matrice").Range("C" & Z + x).Value
Next x

End If

Next Z
Next y
Next i

f894009 · Answer

Bonjour,

mais finalement il ne me resort toujours QUE z+3
Ben vu le code de cette boucle x=0 to 3, c'est normal, vous ecrivez toujours la meme cellule
Que voulez vous que cela fasse en realite?

Marion · Answer

Oui vous avez raison, le problème vient peut-être de là ! J'ai essayé d'y incrémenter un x quelque part, mais je bloque...

f894009 · Answer

Bonjour,

Vous pouvez mettre un fichier avec des données non confidentielles mais cohérente?
Et surtout écrire vos cellules x pour voir ce que vous voulez en final
Faites le pour deux exemples de suite pour voir l'empilage

Marion_3555 · Answer

Oui ce sera plus simple ! Voilà j'ai refait un fichier propre (le lien : https://wetransfer.com/downloads/3751fc0c5dbac917b9d6f373901a2a2720210206073942/049581)

Vous avez un premier onglet "FINAL" avec ma macro actuelle, qui réitère le même texte pour les colonnes 1 et 2.

Et je cherche donc à ajouter ou modifier le code pour pouvoir avoir ce que j'ai mis dans l'onglet "FINAL SOUHAITE".

En sachant que j'imaginais que le "x" d'incrémentation pouvait se trouver dans l'onglet "Données" car j'y ai mis un compteur pour voir combien d'occurence du même texte on peut avoir... (car cela pourra changer)

J'espère que cela vous aide mieux à comprendre ?

Merci de prendre le temps de m'aider là dessus :)

f894009 · Answer

Bonjour,

Je recupere le fichier et regarde la chose

Pourquoi n'y a t-il pas votre code?

Dans votre code y a: Grille soirée en nom de feuille correspond Final je suppose

Boucles imbriquées : ne prend toujours que la même valeur...

5 réponses

Discussions similaires