Listbox avec ligne déja intérger + bouton annuler selection

[Fugy]

Bonjour ! voir meme bonsoir !

Il me faudrait SVP une listbox avec :

- Listbox n°2 comprenant déja des lignes (feuille MODELE, MODELE2 ...)

- un bouton annuler la dernière saisi de la listbox 2

- un autre effacement complet

voila, ! j'ai mis une fichier joint pour explications !!

merci !!

 

[Compte Supprimé 979]

Re : Listbox avec ligne déja intérger + bouton annuler selection

Bonsoir,

Moi j'voudrais un double café crème et l'addition s'vous plait 😀

Plus sérieusement, sur ce forum, on veux bien aider, mais de là à tout faire ... Je ne vois vraiment pas l'intérêt 😕

Cultiver son savoir, est une chose importante ...
Mais ce n'est pas en donnant tout à faire aux autres.

Désolé ....

 

[Fugy]

Re : Listbox avec ligne déja intérger + bouton annuler selection

.... ben j'ai cherché mais je sais vraiment pas comment arriver a tout comprendre. Je cherche sur les forums, et sur l'aide Excel mais franchement je sais pas comment vous faites !!

tans pis ....

 

[Compte Supprimé 979]

Re : Listbox avec ligne déja intérger + bouton annuler selection

Ne t'en fait pas 😉

Il y'a bien une bonne âme qui va pouvoir t'aider, enfin je l'espère pour toi ...

 

[Fugy]

Re : Listbox avec ligne déja intérger + bouton annuler selection

pas de bonne ame ??!!....

Ben en fat j'ai un petit soucis la, je n'arrive pas à faire l'enregistremement :
J'aimerai rajouter à la formule
voici le code : "myarray(tmp) = ListBox2.List(i) " des feuilles prédéfinis. j'ai essayé myarray(tmp) = ListBox2.List(i) + Sheets ("Feuil1") + Sheets ("Feuil2") ... mais ce la ne marche pas...

Voici le code en entier

Dim wb As Workbook
Dim i As Integer, tmp As Byte
Dim myarray() As Variant
Set wb = ActiveWorkbook
With ListBox2
For i = 0 To .ListCount - 1
If .Selected(i) = False Then
ReDim Preserve myarray(tmp)
myarray(tmp) = ListBox2.List(i)
tmp = tmp + 1
End If
Next
End With
wb.Worksheets(myarray).Copy
Application.Dialogs(xlDialogSaveAs).Show
Unload UserForm1


Si une bonne ame avait une idée ... Merci !!!

 

[papapaul]

Re : Listbox avec ligne déja intérger + bouton annuler selection

Salut tout le monde,
Complétement d'accord Bruno
mais pour une fois que je peux aider quelqu'un

Alors Fugy, j'ai pas très bien compris ton problème
mais voilà :
Tu veux enlever des lignes dans la listbox2 ?

Tu mets ce code.

Public Sub ListBox2_dblClick(ByVal cancel As MSForms.ReturnBoolean)
'Supprime les items erronés de la listbox2
ListBox2.RemoveItem (ListBox2.ListIndex)
End Sub

Si tu veux la vider,
tu ajoute un bouton sur l'usf et tu mets

listbox2.clear

Enfin je crois.

Bon courage à tous et bonne journée à tous.🙄

 

[Fugy]

Re : Listbox avec ligne déja intérger + bouton annuler selection

salut papapaul !! merci pour le coup de main mais je me suis mal expliqué je crois.

Je souhaite que la valeur myarray(tmp) soit égale au contenu de la listbox2 + des feuilles prédéfinis dans le classeur Excel.
Cela me permettra de faire un enregistrer sous des feuilles choisis par rapport à la listbox2 (feuilles choisi par rapport à la listbox2 + feuilles qui y seront tout le temps sans être dans la listbox2 mais dans le code VBA comme Feuil1...=

J'avais essayé cela mais cela ne fonctionner pas :
myarray(tmp) = ListBox2.List(i) + Sheets. ("Feuil1")

Voila ...

 

[Fugy]

Re : Listbox avec ligne déja intérger + bouton annuler selection

Y'a personne pour m'aidé ?? j'arrive vraiment pas la .... j'y ai passé l'après midi mais la, y'a vraiment un shuchi...