erreur 1004 Résolu

Question

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.

Polux31 · Answer

Bonjour,

L'erreur est là :
 
Dim i As String

i est numérique et non une chaîne de caractères.

;0)

hamidak · Answer

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

Polux31 · Answer

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)

hamidak · Answer

Merci beaucoup Polux31
ça marche très bien

à +

Erreur 1004

4 réponses

Discussions similaires

Newsletters