Récupération Contenu cellule pour listbox

[keepcool183]

Bonjour à tous ,

Ca fait un bon bout de temps que je n'est pas posté de sujet .

Voilà je me jette à l'eau.

Je récupère la sélection de ma listbox dans UNE seule cellule.

Maintenant je voudrais faire l'inverse càd cocher les éléments présents dans ma cellule dans la listbox.

J'ai fait un petit fichier exemple qui est beaucoup plus parlant .


Merci à ceux qui me liront

 

[RENAUDER]

Re : Récupération Contenu cellule pour listbox

Bonjour,
Je n'ai rien compris.
Dans ta ListBox, tu as 4 items.
Tu veux cocher les élements présents dans ta cellule mais quelle cellule ?

 

[keepcool183]

Re : Récupération Contenu cellule pour listbox

Bonjour Renauder,

Je me suis exprimé trop vite je pense.

Ce que je voudrais c'est qu'à l'initialisation de l'USF toutes les valeurs en B1 soient cochés dans ma listbox.

Alors que là tout ce que j'arrive à faire c'est en cocher une seule.

J'espère que c'est plus clair

 

[mromain]

Re : Récupération Contenu cellule pour listbox

bonjour keepcool183, Renauder

voici le sub modifiée :

Private Sub UserForm_Initialize()
On Error Resume Next
tabStr = Split(Range("B1").Value, Chr(10))
For i = 0 To ListBox1.ListCount - 1 'boucle sur les éléments de la listbox
    aCocher = False
    For j = LBound(tabStr) To UBound(tabStr)
        If ListBox1.List(i) = tabStr(j) Then aCocher = True
    Next j
    ListBox1.Selected(i) = aCocher 'déselectionne tous les éléments
Next i
End Sub

a+

 

[gfortin9]

Re : Récupération Contenu cellule pour listbox

Allô!

Erreur de ma part 8- (((

GFortin

 

[keepcool183]

Re : Récupération Contenu cellule pour listbox

Re,

Merci mromain c'est exactement ce que je cherchais à faire sauf que j'ai encore du mal avec les tableau

Euh Gfortin9 pas bien compris ton message

 

[tora]

Re : Récupération Contenu cellule pour listbox

Re,

Merci mromain c'est exactement ce que je cherchais à faire sauf que j'ai encore du mal avec les tableau

Euh Gfortin9 pas bien compris ton message

slt,

voila ma version ...

@+

PS : petite misa à jour de dernière minute ...
oh et le B1 d'entrée d'USF aussi ...

 

[keepcool183]

Re : Récupération Contenu cellule pour listbox

Re,

Merci je suis preneur

Jolie bout de code

 

[tora]

Re : Récupération Contenu cellule pour listbox

Re,

Merci je suis preneur

Jolie bout de code

sankiou, je prends également