Discussion :

[RosseAcevedo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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

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

[RosseAcevedo]

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.

[halaster08]

Bonjour,

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)