Plage de cellules nommées avec formats différents déclenche un bug de listbox
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 :
Citation:
Impossible de définir la propriété colonne. Index de table de propriété non valide
Code:
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.
