Liste combobox venat d'une plage donnée

bonjour le forum,

If Déb_Lot = 202 Or Déb_Lot = 203 Then
   If Déb_Code > 4 Then Str_Type_Produit = Sheets("Déroulants").Range("D6:D20")
      End If
additem   Str_Type_Produit 

j'ai écrit ce code qui bug sur la plage dont je veux ajouter la liste à ma combobox, lorsque je mets une seule cellule ça fonctionne, mais pas plusieurs cellules d'une plage.

comment contourner ce problème s'il vous plait.

merci d'avance.

Pedro.

Bonjour,

Voici 2 façons d'écrire ce bout de code ...

Je parle de son écriture > pas de son résultat ...

If Déb_Lot = 202 Or Déb_Lot = 203 Then
   If Déb_Code > 4 Then 
        Str_Type_Produit = Sheets("Déroulants").Range("D6:D20")
   End If
additem   Str_Type_Produit 

If Déb_Lot = 202 Or Déb_Lot = 203 Then
   If Déb_Code > 4 Then Str_Type_Produit = Sheets("Déroulants").Range("D6:D20")
additem   Str_Type_Produit 

ric

Bonjour,

Pas spécialiste de la chose, j'essaierai cependant un truc comme :

If Déb_Lot = 202 Or Déb_Lot = 203 Then
        If Déb_Code > 4 Then ComboBox1.List = Worksheets("Déroulants").Range("D6:D20").Value
    End If

Cdlt.

Bonjour …

On ne doit pas écrire, sans se poser de question, la ligne entière : additem Str_Type_Produit *.

D’ailleurs, c’est quoi Str_Type_Produit ?

On peut essayer d’interpréter le texte fourni et donner sa version mais sera-t-elle celle attendue ?

Mon interprétation : liste déroulante et additem me dirigent vers l’initialisation de la liste nommée Str_Type_Produit, donc à proposer, sachant qu’une liste se doit d’avoir au moins 2 items** :

If Déb_Lot = 202 Or Déb_Lot = 203 And déb_code > 4 Then
    Str_Type_Produit.List = Sheets("Déroulants").Range("D6:D20").Value
End If

J’aurais pu donner (la déclaration des variables ayant été faite), avec Additem :

If Déb_Lot = 202 Or Déb_Lot = 203 And déb_code > 4 Then
    For Each R In Sheets("Déroulants").Range("D6:D20")
        Str_Type_Produit.AddItem R
    Next
End If

* le minimum de travail personnel est de savoir quand utiliser Additem, non ?

** pour une liste, .List ne convient pas toujours avec un seul item !

Oups, Jean-Eric, je n’avais pas rafraîchi. Cela me donne quand même l’occasion de te saluer.

Re,

Pas de souci Ordonc !...

Sinon, de mémoire, il faut privilégier .List à .Additem, car ce dernier est très lent.

Cdlt.

bonjour à tous,

grand merci pour votre aide....très instructives.

je vous remercie sincèrement.

Pedro.