Listing outils (USF multi colonne)

[le plessis]

Me revoilou avec mon fichier. Avec l'aide des membres de ce forum j'ai pu avancer. Mon nouveau soucis est ceci :
- dans la CB1 : Type outils
- dans la CB2 😀ésignation (jusqu'à là cela fct)
- dans la listbox : CCN (réference). Tout cela en fct du type et désignation évidement. Je pensait utiliser le code que m'a envoyer Atbony, mais la db n'a pas le même format.
Si qqle a une petite idée.
D'avance merci

Le plessis

 

[Dan]

Re : Listing outils (USF multi colonne)

Bonjour,

- CB1 donne "Type" ou "CCN"
- CB2 donne les désignations de la colonne A

Vois le code ci-dessous qui te renverra les donnée correspondantes à ton choix de CB2

Est-cela que tu veux ??

 Private Sub CB2_Change()
'Marco Dan le 02/12/2010
With Me.ListBox1
    .Clear
    .AddItem Sheets("DB").Cells(CB2.ListIndex + 2, 2)
End With
End Sub

Amicalement

 

[le plessis]

Re : Listing outils (USF multi colonne)

Re
C'est exactement cela qu'il me faut.
Un grand merci pour ton code.Je vais pouvoir avancer dans mon projet.
Le plessis


Au dessus des nuages, le ciel est bleu 🙂
St EX

 

[le plessis]

Re : Listing outils (USF multi colonne)

Fausse joie,
lorsque je rajoute une colonne (tournevis), les données CCN ne sont pas les bonnes.
dans ma CB1 je ne désirerais que les types d'outils (pince, tournevis etc etc).
si j'efface ccn en tête de colonne tout est décalé vers la gauche. J'essais d'utiliser la fct "décaler", mais je patine dans la choucroute.
si qqle a une idée.
d'avance merci

 

[YANN-56]

Re : Listing outils (USF multi colonne)

Bonsoir le plessis, Dan, et à ceux qui passeront par ici,

L'utilisation d'une ListView t'apporterait plus de souplesse que ces ListBoxes

Ceci dit just'en passant; car avec ces dernières je ne sais plus faire.

Si tu pratiques un peu les "Listview", je pourrais t'aider.

Amicalement.

Yann

 

[le plessis]

Re : Listing outils (USF multi colonne)

Je ne connais pas mais suis prêt a apprendre ; si cela peut me faciiter les choses.
N'hésite a triturer mon fichier ; de mon côté je vais me sensibiliser avec ces dites view list.
D'avance merci pour ton aide
Le Plessis

 

[YANN-56]

Re : Listing outils (USF multi colonne)

Bonsoir le plessis, et à ceux qui passeront par ici,
(Ce n'est pas une rime riche... Mais j'aime bien!)

Je vais te faire un tout petit exemple.

Ne t'attends pas à y trouver merveille, ce ne sera là que pour t'aiguiller.

A plus tard, car en l'instant je suis pris par ailleurs.

Amicalement.

Yann

 

[abtony]

Re : Listing outils (USF multi colonne)

Bonsoir le fil

yann-56 félicitation pour les 1000.

Mais te fatigue pas, les Listview existent pas sous MAC.

Cordialement

 

[YANN-56]

Re : Listing outils (USF multi colonne)

Bonsoir abtony, à notre ami, et à ceux qui passeront par ici,

Par pudeur je ne vais pas dire le temps que j'ai passé
pour créer un exemple qui restera lettre morte! (Of Course)
Je venais pour le transmettre... Donc pas la peine d'aller plus loin!

Merci de m'avoir signalé cette incompatibilité avec "Mac"' 🙁

Quant aux 1000, comme le disait Emile (Et mille), J'en ai rien à fiche.
(A âme bien née; le temps ne demande pas ......And so on.. ni le nombre de...)

Je n'aurai qu'un seul regret: De n'avoir pas pu aider "le plessis"

Merci à toi pour ton clin d'œil... C'est très sympa! 🙂

Amicalement, et au plaisir de te croiser à nouveau.

Yann

 

[abtony]

Re : Listing outils (USF multi colonne)

Désolé Yann,

je vais préparer une liste des incompatibilités entre excel et mac 2004 et 2011.

Ou la mettre ensuite pour être consultable facilement, je ne sais pas.

Cordialement

Tony

 

[Zon]

Re : Listing outils (USF multi colonne)

Salut,

Vous avez Wmware pour avoir Windows sous Mac...

sinon si tu veux 3 colonnes sur ta listbox

Private Sub CB2_Change()
C = CB1.ListIndex + 2
  With Me.ListBox1
    .Clear
    .ColumnCount = 3 'on définit le nb de colonnes
    .List = Range(Sheets("DB").Cells(CB2.ListIndex + 2, 1), Sheets("DB").Cells(CB2.ListIndex + 2, 3)).Value 
End With
End Sub

A+++


Excel 2004 Mac, Pc Excel 97 XL 2003 et XL 2007