Si target. value = nom de feuille, alors activer cette feuille

[papapaul]

🙄 Bonsoir à tous,
Je crée une feuille liste grace à un USF ou j'ai fait
une sélection de colonne. Dans mes variantes précédentes,
la mise en couleur d'une "adresse" sur la feuille liste me
renvoyer sur la feuille et la cellule d'origine avec la couleur,
au fur et à mesure de mes choix 1 par 1.
C'est bien ce que voulais, grace à XLD j'y suis arrivé.
Maintenant, je voudrais une autre facon de faire.
La feuille liste crée, je mets en couleur 1 ou plusieurs "adresses"
(ca ca marche), si les cellules ne sont pas "adresse",
j'ai un message, (ca marche aussi).
Ce que je n'arrive pas à faire :
Si la target.value est = au nom de la feuille,
dans mon exemple, tjs A1, me renvoyer vers cette feuille et
y mettre les couleurs non plus 1 par 1 mais toutes en même temps
par rapport à l'adresse réelle et en fonction du résultat,
revenir ensuite si besoin en feuille liste
ou les couleurs sont restées pour pouvoir en ajouter ou enlever.
C'est je pense dans thisworkbook : selectionchange
qu'il faut travailler, j'ai super bien avancé grace à vous tous
et même terminées des variantes, mais là je sèche.
J'arrive pas à adapter😱
Merci d'avance et bon progrès sur XLD

 

[Excel_lent]

Re : Si target. value = nom de feuille, alors activer cette feuille

Salut,

Premier élément de réponse :

Juste aprés la ligne de création de la feuille, en ajoutant quelques lignes pour écrire dans celle-ci une macro du style :
Private sub ...
If target ="..." then
end sub
cela pourrait te renvoyer sur l'onglet en question.

Pour la suite je n'ai pas encore cherché (grillades à préparer)
Bon dimanche et @+

 

[papapaul]

Re : Si target. value = nom de feuille, alors activer cette feuille

😉 Bonnes grillades Excel lent,
J'ai un peu modifié le début du code comme ci-dessous,
Je clique A1 ou C1 etc...ca me renvoie bien sur la feuille
mais le bleu des cellules "adresse" ne suit pas ???

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Dim ws As Worksheet
Dim adresse As String, feuille As String
For Each ws In ActiveWorkbook.Sheets
If ws.Name = Target.Value Then
Worksheets(ws.Name).Select
End If
Next ws
If Sh.Name = "Liste" Then

Target.Interior.ColorIndex = 33
adresse = Target.Value: feuille = Range("A1").Value ' Recup des données
Application.EnableEvents = False ' Annuler l'intercepteur d'évènement

If Left(Target.Value, 1) = "$" Then
'Sheets(Range("A1").Value).Select ' Selection de la feuille
'Sheets(feuille).Range(adresse).Select ' Selection de la cellule
Selection.Interior.ColorIndex = 33
Else
Target.Interior.ColorIndex = xlNone
MsgBox "Vous devez cliquer une adresse ! Sinon choisissez une autre feuille ! ", , "Pour mettre un doublon en couleur dans la feuille d'origine."

End If
End If

Application.EnableEvents = True ' Remise en place de l'intercepteur d'évènement
End Sub

Je patauge depuis hier midi 😡 grrrrrr
C'est surement pas si difficile mais je vois pas
Merci à ceux pour qui ca doit être évident.
Bonne journée et bon appétit à tous.