For-next loop anidé, conditionné avec if

Bonjour,

Je débute avec excel vba et j'ai besoin de beaucoup d'aide svp.

J'ai initialement un livre de 3 feuilles. Mais qui va grandir au four et à mesure.

feuil1 = "Listes" : contienne 106 arrays 2D avec row(27) avec des codes à 3 lettres comme entêtes et range("a1:db47") pour les arrays, nommés par colonnes
feuil2 = "MENU" : l'endroit où je détermine le code à chercher
feuil3 = "1" : feuille où je dois imprimer mes arrays

feuil4 = "2"
feuil5 = "3"...

Avec un code à 3 lettres trouvé en "MENU" je dois balayer les entêtes de la feuille "Listes" row(27) afin d'imprimer sur la feuille respective "1" ou "2" ou "3"... etc... l'array qui corresponde.

J'ai essayé ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub prueba()   Dim i As Integer Dim example, example2 As Range Dim cel As Variant Dim cherche As String   Set example = Sheets("Listes").Rows(27) Set example2 = Sheets("Listes").Range("b28:db47")   cel = Left(ActiveCell, 3) cherche = ActiveCell.Offset(0, -2).Value   For i = 2 To 106 If example.Columns(i) = cel Then Sheets(cherche).Range("d6:d25").Value = example2.Columns(i).Value End If Next   End Sub

---

Qu'est-ce qui ne va pas, svp?
Merci.
Rose

Bonjour
C'est quoi, "anidé" ? une francisation de "anidado" ?

Je n'ai par ailleurs personnellement pas vraiment tout compris de ton exposé.

Citation:

---

Envoyé par unparia

Bonjour
C'est quoi, "anidé" ? une francisation de "anidado" ?

Je n'ai par ailleurs personnellement pas vraiment tout compris de ton exposé.

---

Oh, je m'excuse pour le mauvais français.
J'ai voulu dire un cycle for à l'intérieur d'un autre. Oui, en espagnol c'est «anidado»
Merci.

Bonjour,

Merci d'utiliser la balise code (bouton #) c'est beaucoup plus lisible

Citation:

---

Envoyé par RosseAcevedo

Qu'est-ce qui ne va pas, svp?

---

Normalement c'est plutôt à toi de nous le dire:
Tu as un message d'erreur ? si oui lequel sur quel ligne ?
Si non tu obtiens un résultat ? lequel ? en quoi est il différent de ce que tu attendais ?

Pourrais-tu illustrer par exemple ce que tu cherches a faire (éventuellement avec des captures d'écran), j'ai un peu de mal à suivre ton explication.

Code:

---

1 2	cel = Left(ActiveCell, 3) cherche = ActiveCell.Offset(0, -2).Value

---

Es-tu sûr qu'utiliser la cellule active soit une bonne idée ? Es-tu sur qu'au moment de l'exécution ces variables ont bien les valeurs que tu attends ? (fait les afficher ou lance ta macro en pas à pas (F8) pour vérifier)