Erreur 1004

Résolu
hamidak Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,
j'essai d'alimenter un combobox à partir de données filtrées sur une feuille excel, mais y a toujour l'erreur 1004.

Private Sub UserForm_Initialize()
Dim i As String
For i = 6 To 40
If Cells(i, 2).Hidden = False Then
ComboBox1.AddItem Cells(i, 2)
End If
Next

End Sub




Merci pour votre aide.

4 réponses

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

L'erreur est là :

Dim i As String


i est numérique et non une chaîne de caractères.

;0)
0
hamidak Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Polux31,

j'ai changé "Dim i as string " à

Dim i as integer

mais maintenant le message est


Impossible de lire la propriété Hidden de la classe Range
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Comme le dit le message la propriété Hidden de la classe ne peut pas être lu.
Ce qui veut dire que soit cette propriété n'existe pas, soit elle ne peut pas être modifiable.

La propriété Hidden s'applique sur une ligne complète

Private Sub UserForm_Initialize()
Dim i As Integer
Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets(1)

    For i = 6 To 40
        If ws.Rows(i).Hidden = False Then
            ComboBox1.AddItem ws.Cells(i, 2)
        End If
    Next

End Sub


;0)
0
hamidak Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup Polux31
ça marche très bien

à +
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
De rien.

Merci de mettre le sujet en "Résolu".
0