Activer une adresse d'une autre feuille avec 1 click sur une autre

[papapaul]

😱 Bonjour le Forum

Pour bien finir mon projet en cours, vous l'avez surement
déja vu, j'ai un souci d'adresses.
Quand je change de feuille, je trouve pas l'écriture
que activerait bien mes cellules en $D$9 ou $E$5 par exemple.
Voir mon petit fichier.

Autre problème plus génant ou je coince complètement.
La feuille1 est régulièrement écrasée par une autre
Alors le code de la feuille ci-dessous disparait.😕
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
........
.......
End Sub
Comment faire en sorte que ce code se mette automatiquement
a la création ou l'écrasement de la feuille Liste ??

J'espère que ma question est bien posée.
Merci d'avance et bon dimanche à tous les forumeurs.

 

[Bebere]

Re : Activer une adresse d'une autre feuille avec 1 click sur une autre

bonjour Papapaul
goto reference
à bientôt

 

[wilfried_42]

Re : Activer une adresse d'une autre feuille avec 1 click sur une autre

Bonjour papapaul

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim add As String, feuille As String
add = Target.Value: feuille = Range("A1").Value [COLOR="green"] ' Recup des données[/COLOR]
Application.EnableEvents = False [COLOR="Green"]' Annuler l'intercepteur d'évennement[/COLOR]
If Target.Value <> "" Then
    Sheets(Range("A1").Value).Select [COLOR="green"]' Selection de la feuille[/COLOR]
    Sheets(feuille).Range(add).Select [COLOR="green"]' Selection de la cellule[/COLOR]
End If
Application.EnableEvents = True [COLOR="green"]' Remise en place de l'intercepteur devennement[/COLOR]
End Sub

Edit : Bonjour Bebere, Oups Collision

 

[papapaul]

Re : Activer une adresse d'une autre feuille avec 1 click sur une autre

🙂 Salut bébère, salut Wilfried
Merci vous 2, la méthode de bébère que j'ai regarder en premier
tenais compte de la value de l'activecell (pas à tout à fait ca)
Je veux adapter tout ca au projet que j'ai en cours(vous l'avez surement vu)
J'y crée une feuille liste dont le nom de la feuille
en A1 n'est pas toujours le même et donc la cellule ou je veux
aller en cliquant non plus.
La solution de Wilfried convient donc mieux.
Reste un problème, dans mon fameux projet, la feuille liste et
crée une première fois puis écrasée à chaque nouvelle recherche.
J'ai donc essayé de mettre le code dans thisworbook mais
evidemment c'est pas concluant.😕
Comment faire pour que ce code qui marche trés bien se remette
automatiquement dans le code feuille liste quand elle est
crée ou écrasée.
Vous avez peut-être une idée ?
En tout cas milles mercis et bon dimanche
Grand beau temps en Normandie😛

 

[wilfried_42]

Re : Activer une adresse d'une autre feuille avec 1 click sur une autre

re:

je ne sais pas si j'ai tout compris, mais c'est aussi ce qui fait l'interet de ce forum, "dans plusieurs tete il y a plus que dans une seule" lol

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim add As String, feuille As String
if sh.name = [COLOR="Red"]"Liste"[/COLOR] then [COLOR="Green"]'Teste si c'est la bonne feuille[/COLOR]
add = Sh.Target.Value: feuille = Sh.Range("A1").Value  ' Recup des données
Application.EnableEvents = False ' Annuler l'intercepteur d'évennement
If Target.Value <> "" Then
    Sheets(Range("A1").Value).Select ' Selection de la feuille
    Sheets(feuille).Range(add).Select ' Selection de la cellule
End If
Application.EnableEvents = True ' Remise en place de l'intercepteur devennement
exit sub [COLOR="green"]' Sort de la procedure une fois le travail terminé[/COLOR]
end if [COLOR="green"]' Fin du traitement de la feuille[/COLOR]
End Sub

Normalement, meme s'il y a des mise à jour dela feuille 'Liste' (nom que j'ai donné en rouge, cela devrait faire l'affaire

(si j'ai tout compris)

 

[papapaul]

Re : Activer une adresse d'une autre feuille avec 1 click sur une autre

🙂 Re Wilfried,
Je pense que tu as a compris.
Mais..., la feuille Liste n'est pas mise à jour.
Elle est carrément recrée.
Voir mon fichier joint, ce sera plus concret.
Restera le problème des sélections multicolonnes
que bébère m'a aider à commencer mais
c'est encore plus complqué.
Merci à toi, vive XLD

 

[wilfried_42]

Re : Activer une adresse d'une autre feuille avec 1 click sur une autre

re:

je crois que tu as loupé quelque chose au vu de ton code..........

je remets le code testé et ok (en fonction de ce que j'ai compris) 😱

[COLOR="Red"]Private Sub [COLOR="Blue"]Workbook_[/COLOR]SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)[/COLOR]
Dim adresse As String, feuille As String
If Sh.Name = "Liste" Then
adresse = Target.Value: feuille = Range("A1").Value  ' Recup des données
Application.EnableEvents = False ' Annuler l'intercepteur d'évennement
If Target.Value <> "" Then
    Sheets(Range("A1").Value).Select ' Selection de la feuille
    Sheets(feuille).Range(adresse).Select ' Selection de la cellule
End If
Application.EnableEvents = True ' Remise en place de l'intercepteur devennement
End If
End Sub

Tu as utilisé le sub --> Worksheet_selectionchange, il nest pas adapté dans un module workbook

le code se trouvant maintenant dans workbook, il ne sera pas touché lors de la suppression de la feuille liste

ton fichier en retour

 

[papapaul]

Re : Activer une adresse d'une autre feuille avec 1 click sur une autre

🙂 Re Wilfried, le forum.
Comme d'hab, je me suis un peu précipité.
Ton code est tout simplement merveilleux je trouve.
J'aurais jamais trouvé. Merci, merci,.......😱
Je joins donc la version améliorée ou demeure
un probleme encore plus complexe que
j'explique sur la feuille Donald.
Mon usine à gaz est donc presque terminée,😛
c'est déjà pas si mal je pense.
Merci d'avance à ceux qui pourraient m'aider
à régler mon dernier problème.
Bonne soirée à tous et vive XLD😉