Membre de méthode ou de données introuvable

Résolu/Fermé
sofyen31 Messages postés 76 Date d'inscription lundi 29 décembre 2008 Statut Membre Dernière intervention 24 juillet 2021 - 22 sept. 2018 à 15:14
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 22 sept. 2018 à 15:58
Bonjour,
Quand je cherche a utiliser ma manipulation ce message s'affiche :

Erreur de compilation :
Membre de méthode ou de données introuvable

voici mon code :

Sub userform_initialize()
ProgramList.Clear

Dim myCell As Range
Dim rngItems As Range


' Get the row where to paste program to get the number of programs
ProgramRow = Sheets("Saved Programs").Range("B" & Rows.Count).End(xlUp).Row + 1

If Sheets("Saved Programs").Range("A1") = "" Then ProgramRow = 1

Set rngItems = Sheets("Saved Programs").Range("A1:A" & ProgramRow)

With Me.ProgramList

For Each myCell In rngItems.Cells
If Trim(myCell) <> "" Then
.AddItem myCell.Value
End If
Next myCell
End With

End Sub

Bien cordialement

2 réponses

fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
22 sept. 2018 à 15:55
Bonjour
as tu essayé sans le with?

For Each myCell In rngItems.Cells 
    If Trim(myCell) <> "" Then ProgramList.AddItem myCell.Value 
Next myCell 
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
22 sept. 2018 à 15:58
Bonjour,

merci d'utiliser la balise Code (icône <>) pour qu'il reste indenté et plus lisible.
Préciser la ligne en erreur.
eric
0