Erreur qualificateur incorrect code VBA

bonjour,

pourriez vous me dire pourquoi quand je lance ce code il me dit qualificateur incorrect sur la ligne ".ListItems.Add , , TextBox11.Value " je voudrais récupérer la valeurs du textbox11 dans ma premiere colonne de mon listview.

Sub Alimente_listview()

Dim WS As Worksheet

Dim WB As Workbook

Dim Plage As Range

Dim itmX As ListItem

Dim c As Range

Dim LastLig As Long

Dim ListView1

Dim cellule As Integer, Compteur As Integer

Dim TextBox11 As Long

With UserForm1.ListView1

.ListItems.Clear

With .ColumnHeaders

'Titres des colonnes

.Clear

'Ajout des colonnes

.Add , , "N° Commande", 50

.Add , , "Désignation", 200

.Add , , "Conditionnement", 90, lvwColumnCenter

.Add , , "Dosage", 50, lvwColumnCenter

.Add , , "Fournisseur", 70, lvwColumnCenter

.Add , , "Réf Fournisseur", 90, lvwColumnCenter

.Add , , "Quantité", 50, lvwColumnCenter

.Add , , "Prix", 50, lvwColumnCenter

End With

.Font.Size = 8

.Font.Bold = True

.View = lvwReport 'affichage en mode Rapport

.Gridlines = True 'affichage d'un quadrillage

.FullRowSelect = True 'Sélection des lignes comlètes

.LabelEdit = lvwAutomatic

.HotTracking = False

With UserForm1.ListView1

For cellule = 7 To Cells(65535, 7).End(xlUp).Row ' Step 1 'on rajoute 2 car il commence à partir de la ligne 3

If Range("Q" & cellule) = "A COMMANDER" Then

.ListItems.Add , , TextBox11.Value

Compteur = .ListItems.Count

.ListItems(Compteur).ListSubItems.Add , "D" & cellule, Range("D" & cellule)

.ListItems(Compteur).ListSubItems.Add , "B" & cellule, Range("B" & cellule)

.ListItems(Compteur).ListSubItems.Add , "C" & cellule, Range("C" & cellule)

.ListItems(Compteur).ListSubItems.Add , "G" & cellule, Range("G" & cellule)

.ListItems(Compteur).ListSubItems.Add , "H" & cellule, Range("H" & cellule)

.ListItems(Compteur).ListSubItems.Add , "K" & cellule, Range("K" & cellule)

.ListItems(Compteur).ListSubItems.Add , "J" & cellule, Range("J" & cellule)

End If

Next cellule

End With

End With

End Sub

Merci.

Bonjour reglaet, bonjour le forum,

Je vois que ça avance! Tu y es presque!

Le problème vient selon moi que tu as déclaré TextBox11 comme une variable nombre. Essai d'enlever .value derrière!

Deuxième possibilité, tu peux affecter une variable au contenu de ta TextBox et l'utiliser.

Petite remarque, je crois qu'il n'est pas judicieux de déclarer en variable des mots réservés (ici TextBox11) par VBA. Les mots réservés sont ceux qui représentent un objet, une propriété, une méthode, une fonction en vba. Ici le mot Textbox suivit d'un chiffre / nombre est un mot réservé. Tu devrais changer le nom de ta variable pour éviter les problèmes!

PS: pour utiliser les balises code, surligne le texte à mettre à l'intérieur, et clique sur le bouton "Code" ça placera les balises directement au bon endroit!

[ code ] > A placer avant ton code

[ /code ] > A placer après ton code

Bonjour L-Yann

j'ai remplacer le nom de ma" textbox11" par "TextBoxN°COMMANDE" et j'ai enlevé le .value et j'ai déclarer ma variable en STRING mon code rempli ma listview mais ne me rempli rien dans ma 1ere colonne.

Il ne me met pas ma valeur de mon "TextBoxN°COMMANDE"?.

Désolé pour les balises je n'avais pas compris comment ça marché je t'acherai de faire comme il faux la fois prochaine.

Je voit mal ce qui peut se passer, met moi ton nouveau fichier en PJ, je regarde rapidement!

Je n'arrive pas à avoir un fichier de moins de 1mo meme compressé j'arrive à 2.16mo je ne sais pas ce qu'il me prend autant de mo.

Quand je declare la variable Dim TextBoxN°COMMANDE As Long il me met que des 0 dans la premiere colonne et quand je déclare en String il me mets rien dans la premiere colonne mais dans ces 2 cas de figures je n'ai pas d'erreur de code....

Quand je rajoute .value la il me met erreur qualificateur incorrect.

VBA n'arrive donc pas à récupérer la valeur..

La Textbox est dans le même userform que la listview?

Si oui, ne la déclare pas,

dans le cas contraire il faut que tu précise le nom du userform sur lequel est placé ta textbox!

PS: Evite egalement les symboles dans tes nom de variables ° est a proscrire

Excat je ne récupér pas la valeur de mon textbox est ce que ce ne serait pas parceque je recupère plusieurs lignes dans ma listview?

Le textbox est bien dans le même userform que la listview.

J'ai essayer de ne pas le déclarer mais il me met variable non définie.

Pour le nom de ma variable je l'ai renommer" TextBoxNCOMMANDE"

je te remet mon code :

Sub Alimente_listview()
Dim WS As Worksheet
Dim WB As Workbook
Dim Plage As Range
Dim itmX As ListItem
Dim c As Range
Dim LastLig As Long
  Dim ListView1
 Dim cellule As Integer, Compteur As Integer
  Dim TextBoxNCOMMANDE As String

  With UserForm1.ListView1

    .ListItems.Clear
        With .ColumnHeaders
        'Titres des colonnes
            .Clear
            'Ajout des colonnes
            .Add , , "N° Commande", 50
            .Add , , "Désignation", 200
            .Add , , "Conditionnement", 90, lvwColumnCenter
            .Add , , "Dosage", 50, lvwColumnCenter
            .Add , , "Fournisseur", 70, lvwColumnCenter
            .Add , , "Réf Fournisseur", 90, lvwColumnCenter
            .Add , , "Quantité", 50, lvwColumnCenter
            .Add , , "Prix", 50, lvwColumnCenter

        End With
    .Font.Size = 8
    .Font.Bold = True
    .View = lvwReport 'affichage en mode Rapport
    .Gridlines = True 'affichage d'un quadrillage
    .FullRowSelect = True 'Sélection des lignes comlètes
    .LabelEdit = lvwAutomatic
    .HotTracking = False

    With UserForm1.ListView1

        For cellule = 7 To Cells(65535, 7).End(xlUp).Row    ' Step 1 'on rajoute 2 car il commence à partir de la ligne 3

                If Range("Q" & cellule) = "A COMMANDER" Then

                    .ListItems.Add , , TextBoxNCOMMANDE
                    '.ListItems.Add , "Q" & cellule, Range("Q" & cellule)
                    Compteur = .ListItems.Count
                    .ListItems(Compteur).ListSubItems.Add , "D" & cellule, Range("D" & cellule)
                    .ListItems(Compteur).ListSubItems.Add , "B" & cellule, Range("B" & cellule)
                    .ListItems(Compteur).ListSubItems.Add , "C" & cellule, Range("C" & cellule)
                    .ListItems(Compteur).ListSubItems.Add , "G" & cellule, Range("G" & cellule)
                    .ListItems(Compteur).ListSubItems.Add , "H" & cellule, Range("H" & cellule)
                    .ListItems(Compteur).ListSubItems.Add , "K" & cellule, Range("K" & cellule)
                    .ListItems(Compteur).ListSubItems.Add , "J" & cellule, Range("J" & cellule)

                End If

        Next cellule

    End With
    End With
End Sub

L-Yann j'y suis arrivé merci encore de ton aide en fait ce code je l'avait dans un module et j'appelai le module quand je click sur mon bouton dans mon userform et donc j'ai déplacé mon code directement dans le bouton de mon userform et ça fonctionne parfaitement.

Pourquoi?.....

Merci et bonne journée.