[VBA-E]problème de récupération de variables et d'event

Bonjour,

j'aimerais savoir comment, en double cliquant sur la cellule d'une feuilleA, afficher la feuille 2 et être placé sur la cellule active correspondant aux références de la cellule sur laquelle j'ai double cliquer sur la feuille A.

en gros, si je double clique sur la cellule A2 de la feuilleA, j'aimerais directement avoir à l'écran la cellule A2 de la feuilleB activée.

je ne sais pas sur quel évenement placer le code. je suis encore un peu débutant et tous ces évèments me paraissent me paraissent plus ou moins simples (en l'occurence plutot moins)

J'ai du mal à récupérer les variables de la feuille A qui me permettent d'obtenir les références de cellule sur laquelle je veux me placer feuille B.

si vous avez une solution, merci pour le coup de pouce :)

zenix ;)

Tu peux essayer ça : Je suppose que tu es dans la feuil1 et que tu veux passer dans feuil2

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim adresse If Target.address = Range("A2").Address Then 'test de la cellule Adresse = ActiveCell.Address Worksheets("Feuil2").select Range(Adresse).select endif End Sub

---

Tu places ce code dans la feuille de code de ta feuille de calcul Feuil1 -> Outils -> Macro -> Editeur VB -> Sélection de la feuille (2 clicks)

A+

Je ne comprends pas pourquoi il est nécessaire de tester la valeur de la cellule avec ton exemple avec A2. ça ne fonctionne pas. mais ça j'ai tenter d'avancer un peu. j'en suis là

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' je suis dans la feuille worksheets("Q01") et je veux aller dans la même cellule ' mais dans la feuille worksheets("V01") Dim adresse adresse = ActiveCell.Address MsgBox adresse Worksheets("V01").Select Range(adresse).Select   End Sub

---

Et lors du débogage, ça me mets en jaune la dernière partie, à savoir Range(adresse).select


j'ai bien mis le code sur la feuille Q01, donc la première

merci pour votre aide

Ah, ben, elle m'aura fait chercher, celle-là...

Et pourtant, je sais qu'il faut instancier la feuille de destination si on met le code dans une feuille.

Voici donc le résultat de mes essais:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, _ Cancel As Boolean) Dim wksDest As Worksheet Set wksDest = Sheets("sheet2") wksDest.Activate wksDest.Range(Target.Address).Select End Sub

---

Testé et validé!

J'avais aussi testé et validé mon code qui fonctionne parfaitement avec la version 97 d'Office :cry:
Je ne comprends pas quel problème il pose. As-tu fait un copier/coller du code ?
As-tu essayé dans un nouveau classeur avec le code tel qu'il est ?
Mais si le code d'Alain te convient... Simplement, sans instancier la feuille, le mien fonctionne aussi.

Bonne chance

Edit

Citation:

---

Envoyé par tu

Je ne comprends pas pourquoi il est nécessaire de tester la valeur de la cellule

---

Je ne teste pas la valeur de la cellule, je me contente de noter son adresse afin de l'utiliser pour me placer dessus dans la feuil2 ;)

Citation:

---

Envoyé par ouskel'n'or

J'avais aussi testé et validé mon code qui fonctionne parfaitement avec la version 97 d'Office :cry:

---

As-tu essayé d'appeler plusieurs fois la fonction?

C'était le problème que j'avais. Marchait la première fois et se plantait après.

Pour info, tests réalisés sous Excel 97 aussi.

Merci à tous ! special thanks to alainTech

Vous êtes trop fort ;)