Combobox.value error 13 [RESOLU]

[herve62]

Bonjour
Encore un truc tout bête je pense mais c'est toujours comme ça
J'ai repris une sub qui tourne dans un autre prog j'ai fait du copier/coller pour le code
et changé le nom de mes objets et là ça plante sur L= CB1.value ,
normalement si je choisis "batiment2" > L=5 ?
mais là erreur 13

 

[LaCeline]

Bonjour,

Ne serait ce pas : L = Me.CB1.ListIndex + 1

laceline

 

[herve62]

Non , déjà le Me ne fait rien sinon le code était :

Private Sub cboFamille_Change()

    Dim Plage As Range
    Dim i As Long
    Dim Lmax As Long
    Dim L As Long

    If cboFamille.ListIndex >= 0 Then

        L = cboFamille.Value

        With Sheets("Produits")

            Lmax = .Cells(L, 2).End(xlDown).Row
            If Lmax = .Cells(L, 1).End(xlDown).Row Then Lmax = L
            Set Plage = .Range(.Cells(L, 2), .Cells(Lmax, 4))

        End With

 

[JM27]

bonsoir


Dim L As String

 

[LaCeline]

Bonjour,
Dim L As Long et L = cboFamille.Value c'est incohérent.
Car, un pas-à-pas (F8) sur ma machine donne la valeur à L "Batiment x"

JM27 propose la string, mais L est utilisé plus loin comme no de ligne : .Cells(L, 2)....

laceline

 

[herve62]

Dim L As Long et L = cboFamille.Value c'est incohérent.
Car, un pas-à-pas (F8) sur ma machine donne la valeur à L "Batiment x"

Alors pourquoi moi j'ai comme sur les images sachant que le 63 provient de mon choix Jardin dans la box( captures faites dans le fichier qui fonctionne bien sûr !!!)
??? qui s'initialise dans la sub avec le With CB1 et la "plage" juste définie avant

 

[ChTi160]

Bonsoir
Bonsoir le Fil ,Le Forum
Voilà ce que j'ai modifie dans la procédure .

Private Sub CB1_Change()
    Dim Plage As Range
    Dim i As Long
    Dim Lmax As Long
    Dim L As Long
With CB1
   If .ListIndex >= 0 Then
    L = .List(.ListIndex, 1) 'On récupére la Ligne source
    Else
      Exit Sub 'On quitte
   End If
End With
        With Sheets("base")
            Lmax = .Cells(L, 2).End(xlDown).Row
            If Lmax = .Cells(L, 1).End(xlDown).Row Then Lmax = L
            Set Plage = .Range(.Cells(L, 2), .Cells(Lmax, 4))
        End With
        With LB1
            .Clear
            'une boucle afin de pouvoir mettre les quantités à 0
            For i = 1 To Plage.Rows.Count
                .AddItem    ' Plage(i, 1).Value
                .List(.ListCount - 1, 0) = Plage(i, 1).Value
                .List(.ListCount - 1, 1) = Plage(i, 2).Value
                .List(.ListCount - 1, 2) = Plage(i, 3).Value
                .List(.ListCount - 1, 3) = 0    'Plage(i, 4).Value
                .List(.ListCount - 1, 4) = 0
            Next i
        End With
End Sub

Bonne fin de Soirée
Amicalement
jean marie

 

[herve62]

Bonsoir
J'aimerai bien comprendre la différence donc je mets le fichier d'origine d'ou j'ai recopié le code
Mettez un point d'arrêt à L= Cbofamille.value et vous verrez que selon le choix de la combo cela renvoie bien le N° de ligne
Pourquoi ce prog fonctionne et pas besoin de modif comme le préconise CHTI

 

[ChTi160]

Re
j'ai cherché un peu et je me suis rappelé que l'on peut référencer la colonne a prendre en Compte à renvoyer.
Propriété "BoundColumn" du Control ComboBox .
1 tu Renvoies la colonne Texte et 2 la Colonne des Lignes .
ton ComboBox était sur "BoundColumn" = 2
Bonne fin de Soirée
Amicalement
jean marie

 

[herve62]

Eh oui Chti !
T'as mieux vu que moi , car j'y avais pensé aux propriétés mais pas remarqué
faut aussi mettre le séparateur de champs ";0 pts" bon ici c'est pas top encore à corriger
Enfin j'ai pigé et SUR qu'il y avait une raison explicable à ce Pb sans triturer le code