Discussion :

[phdphd]

Bonjour,

Je bute sur un problème idiot : comment récupérer le range de la sélection d’une feuille de calcul inactive.

Le plus proche que j’ai trouvé est

Code :

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

LaFeuilleInactive.UsedRange

mais ceci me renvoie le range des dernières cellules modifiées, pas la sélection.

Merci d’avance pour toute suggestion.

[Gorfael]

Saliut phdphd
Une solution
stocker la sélection de chaque feuille dans un tableau en variable globale avec le module ThisWorkBook.
moi, je ferais un tableau 2 dimansion
Tableau(1,x) = nom de l'onglet
Tableau(2,X) = Adresse de la sélection
avec mise à jour par Workbook_SheetSelectionChange()
A+

[phdphd]

Merci Gorfael pour la suggestion.

J'y avais effectivement pensé mais je trouvais que cela manquait d'élégance… Il doit bien y avoir moyen d'accéder directement à cette donnée, non ?Vu qu'Excel la stocke de toutes façons (puisque la sélection est retenue pour chaque feuille)…

Mais si je ne trouve pas de moyen simple et direct, c'est effectivement la méthode que j'emploierai.

Merci,

phdphd

[phdphd]

Bon, j'ai trouvé un autre contournement du problème, qui ne demande pas d'intervention d'une macro à chaque modificaction. Tout simplement : activer la feuille de calcul visée ^^

J'aurais voulu l'éviter car ma macro est appelée justement par les évènements SheetActivate et SheetDeactivate, mais bon… il suffit de désactiver les évènements, n'est-ce-pas ? Donc :

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
 
    Dim ScreenUpdatingInitialState As Boolean
    Dim EnableEventsInitialState As Boolean
    Dim KeepSelection As String
    Dim CurrentSheet As Sheet
 
    ScreenUpdatingInitialState = Application.ScreenUpdating
    Application.ScreenUpdating = False
    EnableEventsInitialState = Application.EnableEvents
    Application.EnableEvents = False
 
    CurrentSheet = ActiveSheet
    Sheets(DeactivatedSheet).Activate
    KeepSelection = Selection.AddressLocal
    CurrentSheet .Activate
 
    Application.EnableEvents = EnableEventsInitialState    
    Application.ScreenUpdating = ScreenUpdatingInitialState

Voilà. Mais c'est quand même curieux et dommage que l'on ne puisse pas faire quelque chose comme LaFeuilleInactive.Selection

[Gorfael]

Salut phdphd et le for home
moi, j'utiliserai plutôt :

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
19
20
21
22
23
Option Explicit
Dim Val_Ad() As String
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim x As Integer
Dim Flg As Boolean
On Error Resume Next
x = UBound(Val_Ad, 2)
If Err.Number = 9 Then ReDim Val_Ad(1 To 2, 0 To 0)
On Error GoTo 0
Flg = True
For x = 0 To UBound(Val_Ad, 2)
    If Val_Ad(1, x) = Sh.Name Then
        Flg = False
        Exit For
    End If
Next x
If Flg Then
    ReDim Preserve Val_Ad(1 To 2, 0 To UBound(Val_Ad, 2) + 1)
    x = UBound(Val_Ad, 2)
End If
Val_Ad(1, x) = Sh.Name
Val_Ad(2, x) = Target.Address(0, 0)
End Sub

je n'aime pas activer les feuilles sans raison.
Mais chacun sa manière
A+

[phdphd]

Moi non plus je n'aime pas activer les feuilles sans raisons, surtout que malgré le Application.ScreenUpdating = False, cela flashe

Mais je n'aime pas non plus avoir un code qui s'exécute à chaque changement de sélection… Mais ce sera peut-être plus élégant pour l'utilisateur -> je vais essayer.

Merci !