Macro - Reference relative entre 2 feuilles

[gourdin]

Bonjour

Par macro évènemntielle, je n'arrive pas à utiliser des référence relatives entre 2 feuilles

Exemple :

avec une macro evenementielle, je souhaite par exemple :

- en cliquant sur la celulle B50 d'une feuille me rendre à la cellule B50 d'une autre feuille.
- en cliquant sur B60 aller à B60 de l'autre feuille
etc..

Merci

 

[Compte Supprimé 979]

Re : Macro - Reference relative entre 2 feuilles

Salut Gourdin,

As-tu essayé

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Sheets("Feuil2").Select
  Sheets("Feuil2").Range(Target.Address).Select
End Sub

A+

 

[gourdin]

Re : Macro - Reference relative entre 2 feuilles

Merci ça fonctionne.

Et si je souhaite décaler par exemple d'une ligne et d'une colonne quel est le code ?

Exemple :

Clic sur B50 renvoie C51 de l'autre feuille
Clic sur B60 renvoie C61 autre feuille

etc..

Merci

 

[Compte Supprimé 979]

Re : Macro - Reference relative entre 2 feuilles

Re,

Dans ce cas là, avec Target, tu utilises : Offset(Row, Column)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Sheets("Feuil2").Select
  Sheets("Feuil2").Range(Target.Offset(1, 1).Address).Select
End Sub

A+

 

[ERIC S]

Re : Macro - Reference relative entre 2 feuilles

Bonjour

peut-être avec

Annulé - trop rapide Bruno

 

[gourdin]

Re : Macro - Reference relative entre 2 feuilles

Merci beaucoup.

C'est parfait.

Bonsoir

 

[gourdin]

Re : Macro - Reference relative entre 2 feuilles

Bonjour,

Toujours en références relatives, je souhaite maintenant en cliquant sur une cellule d'une page selectionner une Plage de cellules d'une autre page

Exemple :

Clic sur B10 selectionne plage C10 à D11 de l'autre feuille
Clic sur B20 selectionne plage C20 à D21 de l'autre feuille

etc.

Merci

 

[Compte Supprimé 979]

Re : Macro - Reference relative entre 2 feuilles

Re,

Tu en as encore des comme ça 🙄😀

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Sheets("Feuil2").Select
  Sheets("Feuil2").Range(Target.Offset(0, 1).Address, Target.Offset(1, 2).Address).Select
End Sub

A+

 

[gourdin]

Re : Macro - Reference relative entre 2 feuilles

Merci Bruno

T'inquietes pas 😀😀😀

Je vais arreter là pour aujourd'hui 😀😀