Discussion :

[JeffB69]

J'ai eu beau chercher, mais je n'ai pas trouvé comment connaître la sélection en cours dans une Feuille qui n'est pas la Feuille Active (ActiveSheet).
Plus précisément, j'ai besoin d'une Fonction identique à la Fonction Selection mais applicable sur n'importe quelle Feuille (alors que Selection ne s'applique qu'à la Feuille Active)

Bien sûr, on peut rendre active (temporairement) la Feuille qui m'intéresse et utiliser Selection, mais ce n'est pas ce que je recherche.

Excel conserve l'information de la sélection des cellules d'une Feuille, même lorsque celle-ci n'est pas active ; puisque lorsque l'on resélectionne une Feuille, les Cellules continuent à être sélectionnées. Le problème c'est de connaître cette Sélection en VBA !

Merci d'avance pour vos trouvailles.

[SfJ5Rpw8]

Bonjour,

et quel est le but ? sélection ne sert qu'as sélectionner une cellule mais cela reste de l'affichage...

pour travailler avec les données ou format de ta cellule tu n'as pas besoin de la sélectionner ..!

de même c'est rarement utile d'utiliser ActiveSheet ....

Et pour bien te former, les cours et tutoriels pour apprendre Excel : https://excel.developpez.com/cours/

Cordialement.

[Docmarti]

J'ai eu beau chercher, mais je n'ai pas trouvé comment connaître la sélection en cours dans une Feuille qui n'est pas la Feuille Active (ActiveSheet).
Plus précisément, j'ai besoin d'une Fonction identique à la Fonction Selection mais applicable sur n'importe quelle Feuille (alors que Selection ne s'applique qu'à la Feuille Active)

Bien sûr, on peut rendre active (temporairement) la Feuille qui m'intéresse et utiliser Selection, mais ce n'est pas ce que je recherche.

Il n'y a pas d'autre façon que d'activer la feuille, ce qui ne veut pas dire nécessairement la rendre visible cependant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub tt2()
 
 Set f1 = Feuil1
 Set f2 = Feuil2
 
 f1.Visible = False
 f2.Visible = False
 
 f1.Activate
 Range("a1:a10").Activate
 Debug.Print Selection.Parent.Name, Selection.Address, ActiveCell.Address
 
 f2.Activate
 Range("B1:C20").Activate
 Range("b5").Activate
 Debug.Print Selection.Parent.Name, Selection.Address, ActiveCell.Address
 
End Sub

[JeffB69]

Je vous remercie pour votre solution.

J'ai étudié la Sub, et effectivement je confirme que cela fonctionne.

F1.Active rend "Actif" Feuil1 sans la sélectionner, et la fonction Selection retourne les informations sur Feuil1 et non sur la Feuille actuellement à l'affichage.