Discussion :

[comme de bien entendu]

Bonjour,

J'utilise un formulaire pour afficher différentes listes de cellules provenant de cellules nommées différentes.
Hors une des cellules nommées que j'utilise contient des cellules de formats
différents.
Lorsque je passe cette cellule nommée en paramètre, ma listbox déclenche une erreur :

Impossible de définir la propriété colonne. Index de table de propriété non valide

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
21
22
23
24
25
26
27
28
29
30
Sub Afficher(cellule_nommee As String)
Dim tableau()
Dim cpt As Integer
Dim test1 As String
On Error GoTo Gest_Erreur
' je stock la cellule pour ensuite mettre à jour les données sur validation...
AfficherListeASelectionner.Type_MNT = cellule_nommee
 
cpt = 0
With Worksheets("Bordereau de prix")
AfficherListeASelectionner.TestList.Clear
For i = .Range(cellule_nommee).Row To .Range(cellule_nommee).End(xlDown).Row
 
          ' Si on est dans le cadre d une ligne d article
        If .Range("A" & i) <> "" Then
 
            AfficherListeASelectionner.TestList.AddItem
            AfficherListeASelectionner.TestList.Column(0, cpt) = .Range("E" & i)
                                    End If
    cpt = cpt + 1
Next i
End With
 
AfficherListeASelectionner.Show
fin_proc:
Exit Sub
Gest_Erreur:
MsgBox Error$
GoTo fin_proc
End Sub

J'ai testé plusieurs fois, dés que j'ai une cellule nommée avec des lignes de formats différents ca déclenche le bug.
Merci de vos idées sur le sujet.

[Docmarti]

La ligne cpt = cpt + 1 est mal placée et la valeur de cpt peut devenir trop grande.

La valeur de cpt dans ton code doit toujours être égale à la valeur de AfficherListeASelectionner.TestList.ListCount-1Essaie avec ceci:

Code :

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

AfficherListeASelectionner.TestList.Column(0, AfficherListeASelectionner.TestList.ListCount - 1) = .Range("E" & i)

[comme de bien entendu]

Bonne réponse.
J'ai aussi trouvé ce matin mais j'ai mis du temps.
Merci.