usf 4 boutons, 1 listbox avec noms des feuilles

[papapaul]

J'ai pondu le petit truc ci-joint en m'inspirant du remarquable travail
de Thierry et en bricolant plein d'autres petit bout de code.
Un pro me dira surement que c'est plein de truc inutiles ou mal écrits.
Mais chez moi, ca marche, je vais l'améliorer progressivement, je débute.
Ce n'est en fait qu'une toute partie d'un gros travail que j'essaye de
monter depuis plusieurs semaines, mais en attendant, si ca peut
en aider quelques-uns, ce sera tant mieux.
J'assaye de joindre mon fichier, c'est la première fois, esperons
que j'y arrive.

Salut à tous
🙂

 

[papapaul]

Re : usf 4 boutons, 1 listbox avec noms des feuilles

J'ai pas de reponse à ce post ?
Me dites pas que ca marche pas mon fichier. 🙁
Chez moi c'est bon,
Et meme, j'ouvre un autre fichier, j'execute la macro 1 de usf_test et
ca fonctionne aussi SAUF le bouton lister qui me creer bien ma liste toute seule dans un troisieme fichier comme je le veux, MAIS
laisse l'onglet "liste des feuilles" et vide en plus dans le deuxieme classeur
que j'ai ouvert.
Probleme d'ecriture peut-etre, je comprends pas.
Si quelqu'un a constater ca aussi, ce serait sympa de m'aider la-dessus
et aussi me dire comment "allégé" mes différents codes.
Je sais qu'il y a des trucs en trop ou un peu faux mais pour l'instant
j'ai pas trop le temps de regarder, je continue d'autres trucs avec des
usf avec des cases a cocher, je vous dirais quand ce sera prêt.
Cordialement à tous
🙂

 

[Hervé]

Re : usf 4 boutons, 1 listbox avec noms des feuilles

bonjour 🙂


j'ai modifier ta macro pour liste :

Private Sub CommandButton1_Click()
Dim j As Byte
Dim i As Byte

'lister
Workbooks.Add 'crée un nouveau classeur
ActiveSheet.Name = "liste des feuilles" 'nomme l'onglet 1 du nouveau classeur
'j = 1'inutile
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = False Then
Cells(j + 5, 1) = .List(i, 0) ': Cells(j, 5) = .List(i, 1)
.Selected(i) = False
j = j + 1
End If
Next
End With
'Application.DisplayAlerts = False

Unload UserForm1
End Sub

en mettant en commentaire les éléments inutiles.

displayalerts permet de ne pas afficher les messages envoyer par excel, il s'utilise comme ceci :

Application.DisplayAlerts = False
'ton traitement
Application.DisplayAlerts = true

ta listbox ne contient qu'une colonne me semble-t'il, donc Cells(j, 5) = .List(i, 1) est inutile.

tu utilises une selection multiple etendu pour ta listbox (fmMultiSelectExtended), on utilise plus souvent une simple sélection multiple, plus souple.

en espérant t'avoir été utile.

salut

 

[papapaul]

Re : usf 4 boutons, 1 listbox avec noms des feuilles

Merci beaucoup Hervé de te pencher sur mon problème
Je prends bien note de ce que tu m'indique mais j'ai peut-être
mal expliquer mon cas. Alors voila j'explique pour tout le monde.
Dans mes vrais fichiers, ma listbox aura au moins 3 colonnes, c'est pour ca
que j'ai besoin de j=1 et que je laisse ma listbox en extended
Ensuite, quand je copie la liste de la listbox dans un autre classeur,
c'est exprès que je fais "liste des feuilles".delete, je ne voudrais pas
que cette nouvelle feuille apparaisse dans le fichier d'origine mais
seulement toute seule dans l'autre classeur pour la remettre en forme
comme il me plaira selon ma selection.
Ca marche trés bien dans mon petit fichier ci-dessous usf testv2

J'ai étoffé ma ma v1 :

Mes vrais fichiers ont en moyenne 70 feuilles, je demande une
sélection voulue vers la listbox2
J'ai mis un msg pour éviter les doublons.

Tout va bien sur mon fichier test.
Je le laisse ouvert, j'ouvre un de mes vrais, et j'utilise la macro
d'ouverture du fichier test : tout semble bien pour enregistrer et imprimer
mais pour la liste de mon transfert :il créée bien ma liste toute seule dans
un nouveau classeur
mais me laisse une feuille"liste de feuilles" vierge dans le vrai .
probleme d'ecriture avec thisworbook.worksheets("liste des feuilles").delete
ou autre chose😕 je cherche, je cherche

Autre petit souci, si je vais trop vite et que je clique sur un bouton
alors que j'ai rien transferer, ca m'est arrivé lol🙄 vlan patatra,
shooté que je suis. Ce serait bien que j'arrive à mettre un msg
genre "Attention, aucune sélection" pour revenir à mon usf sous
chacun de mes boutons pour revenir à mon usf mais ca devient compliqué
pour mon petit niveau.

Bon tout ca c'est du un peu beaucoup du bricolage mais
c'est en bricolant qu'on apprends, pas grave si certains penseront
que je suis pas doué. Je joins quand même mon usf testv2
Il y a des erreurs, mais comme ca fonctionne presque tres bien
ca devrait en aider quelques-uns
Merci à tout ceux qui répondrons et aux autres aussi.

😛 Quel bavard je suis , au bouleau 😉