Discussion :

[ouskel'n'or]

Mon pb est simple, quand je lance cette macro, j'ai "l'indice n'appartient pas à la sélection" quand Cel.column = 12 (!)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Dim Tableau
Dim Cel As Range
Dim Plage As Range
Tableau = Array("JAN", "FEV", "MAR", "AVR", "MAI", "JUN", "JUL", "AOU", "SEP", "OCT", "NOV", "DEC")
Worksheets("Feuil1").Range("A1:L1").Value = Tableau
Set Plage = Range("A1:L1")
For Each Cel In Plage
    Debug.Print Cel.Column
    ComboBox1.AddItem Tableau(Cel.Column)
Next
Set Plage = Nothing
End Sub

Comme je n'ai jamais eu ce type de pb avec cette syntaxe, je suis un peu "emprunté"
Une explication ?
Par avance, merci.

[cwain]

Je pense que c'est que ton tableau, il va de 0 à 11
et donc quand tu appeles Tableau(Cel.column) où column=12, il n'aime pas
Tu vois ce que je veux dire ?
En fait Tableau(11)="DEC"
Tableau(12) doesn't exist
Affiches les variables locales et tu verras, en cours d'exécution, tes variables pour Tableau(0) à Tableau(11)

[marsupilami34]

Bonjour,

Je ne sais pas si ca peut t'aider mais avec ce code là

Code :

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

1
2
3
4
5
 
For Each Cel In Plage
    Debug.Print Cel.Column
    MsgBox (Tableau(Cel.Column))
Next

Le premier message qu'il m'affiche c'est FEV et pas JANV. Peut être une erreur dans le début de la boucle non ?

[cwain]

Le problème se résoud si tu mets :

Code :

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

Tableau(Cel.Column-1)

au lieu de [CODE]

Code :

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

Tableau(Cel.Column)

[ouskel'n'or]

Je suis c... Je suis c... Je suis c...
habituellement, je remplis toujours mon tableau ainsi

Code :

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

Tableau = Array("", "JAN", "FEV", "MAR", "AVR", "MAI", "JUN", "JUL", "AOU", "SEP", "OCT", "NOV", "DEC")

comme ça l'indice de mon tableau correspond au N° de colonne, mais, pour faire plaisir à bbil, j'avais supprimé la première valeur
Merci pour ton oeil de lynx cwain

[cwain]

Héhéhé, de rien ! J'aurai été le premier à plonger dedans !

[illight]

Je suis c... Je suis c... Je suis c...

Mais non mais non t'es juste différent..