clik sur onglet qui change selection de listbox1

[papapaul]

Bonsoir Forum
Pas pensable, j'y arrive plus. A l'ouverture,
Je clique sur un onglet, l'usf apparaît avec le nom des
feuilles en listbox1 et les colonnes en listbox2.
Sur cette liste, je choisis un nom,
ca m'active bien la feuille voulue.
Je ferme l'usf et si je clique un autre onglet.
Je veux que la listbox1 selectionne bien le nom de ce dernier
et evidemment que la listbox2 corresponde.
Ca doit pas être sorcier mais je patauge
comme un imbécile.
La correspondance marche bien
mais c'est pas avec la bonne feuille.
Je voudrais aussi qu'on puisse changer de feuille et donc
le contenu des listes sans être obligé de fermer l'usf.
Plus j'essaye, plus je m'enfonce.
Faut faire quelquechose dans thisworkbook mais
je suis paumé.
Merci à ceux qui ont la solution, j'en peux plus.
Bonsoir à tous

 

[pierrejean]

Re : clik sur onglet qui change selection de listbox1

bonjour papapaul

veux-tu tester cette version ?

 

[papapaul]

Re : clik sur onglet qui change selection de listbox1


Bonjour le forum, Pierrejean, milles mercis
Je viens de regarder, aprés la création de la feuille liste,
chez moi y a toujours le petit problème qui fait que
l'usf étant masqué il faut cliqué plusieurs fois sur les onglets
pour que les listes se mettent bien en relation avec
la feuille active. Je patauge la dessus depuis
des heures et des heures mais c'est pas trop gênant.
Faut seulement bien faire attention que l'item feuille de la liste
coresponde bien à la feuille active.
Dans listbox1 click, J'ai réactivé
.Range(Cells(2, 1), Cells(Range("a65536").End(xlUp).Row, Range("IV1").End(xlToLeft).Column)).Interior.ColorIndex = -4142
pour mettre à blanc la nouvelle feuille que je veux travailler.
Pour fignolé, pour la mise en couleur à partir de la feuille liste
j'ai ajouté une petite msg à la fin de :
Private Sub Workbook_SheetSelectionChange
Else
If Target.Value = "" Then
MsgBox "Vous devez cliquer une adresse "
End If
C'est pas l'idéal :faudrait que je trouve la bonne écriture
qui dise If Target.Value <> address Then
pour obligé le clique sur une cellule au format $x$x.
J'ai pas encore trouvé.
Je me complique singlièrement la vie mais parti comme je suis,
je continue à essayer de comprendre surtout cette histoire
de la listbox1, y a un problème de concordance avec les codes de
thisworbook et les modules mais c'est peut-être trop tordue mon affaire.
Pour le reste, le plus simple, si vous voulez tester.
Vous copiez une feuille dans ce classeur et normalement
ca doit marcher, enfin j'espère.
Je reprends mon courage et bonne journée à tous.