Erreur 1004

Résolu/Fermé

hamidak Messages postés 3 Date d'inscription vendredi 10 janvier 2014 Statut Membre Dernière intervention 10 janvier 2014 - Modifié par pijaku le 10/01/2014 à 12:28
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 10 janv. 2014 à 15:44

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.

A voir également:

Erreur 1004
Erreur 0x80070643 - Guide
Erreur 38 free ✓ - Forum Mobile
Iptv erreur de lecture - Forum TV & Vidéo
Erreur 1004 vba ✓ - Forum VB / VBA
Code erreur f3500-32 ✓ - Forum Bbox Bouygues

4 réponses

Réponse 1 / 4

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
10 janv. 2014 à 12:06

Bonjour,

L'erreur est là :

Dim i As String

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

;0)

Réponse 2 / 4

hamidak Messages postés 3 Date d'inscription vendredi 10 janvier 2014 Statut Membre Dernière intervention 10 janvier 2014
10 janv. 2014 à 12:13

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

Réponse 3 / 4

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
10 janv. 2014 à 12:28

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)

Réponse 4 / 4

hamidak Messages postés 3 Date d'inscription vendredi 10 janvier 2014 Statut Membre Dernière intervention 10 janvier 2014
10 janv. 2014 à 15:24

Merci beaucoup Polux31
ça marche très bien

à +

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
10 janv. 2014 à 15:44

De rien.

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

Discussions similaires

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

MACRO : Problème " Erreur d'exécution '1004' "

Erreur d'éxecution 1004

Erreur vidéo inconnue sur le Freebox Player

Discussions similaires

Newsletters