Discussion :

[jbonneval]

Bonjour,
je souhaite a récupérer la ligne de la cellule qui est selectionnée sur autre feuille mais sans selectionner cette feuille ou se trouve la cellule
Exemple:
J'ai un classeur excel avec plusieurs sheets
J'ai créé des variables pour chacune des feuilles exemple

Code :

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

1
2
3
Dim ligneSheet1 As Long
Sheet1= cellule active est B12
Sheet2= cellule active est C14

Maintenant je cherche a récupérer la valeur de la ligne pour chaque feuille ou la cellule selectionnée se trouve.
Avec le code ci-dessous ca marche pas j'ai une erreur :

Code :

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

1
2
Dim LigneSheet1 as Long
Dim LigneSheet2 as Long

En ayant la Sheet1 active

Code :

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

LigneSheet2 = Worksheets("Sheets2").cells.Row

=> Ca me renvoie la valeur "1" à chque fois qlaors que la cellule est

Si je fais

Code :

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

LigneSheet2 = Worksheets("Sheets2").Activecells.Row

=> Ca me renvoie error 438

Si je fais

Code :

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

LigneSheet2 = Activecells.Row

=> Ca me renvoie 12 alors que je souhaite la valeur de la ligne de la celulle séelctionner en sheet 2 soit 14

J'ai pas les bon mots clés, je ne trouve pas sur les forums

Merci d'avance pour votre aide
Jerome

[antonysansh]

Pourquoi ne veux-tu pas sélectionner les feuilles ?

ActiveCellest un membre de la classe Windowdonc ce qui est à l'affichage donc compliqué de faire varier ActiveCellsans changer de feuille.

Si c'est juste pour éviter les crises d'épilepsie pour l'utilisateur tu peux utiliser ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
    Application.ScreenUpdating = False
        Dim sh As Worksheet, message$
        message = "Cellules actives des feuilles du classeur actif : " & vbCr & vbCr
        For Each sh In ThisWorkbook.Worksheets
            sh.Select
            message = message & sh.Name & " : " & ActiveCell.Address & vbCr
        Next
        MsgBox message
    Application.ScreenUpdating = True
End Sub

[jbonneval]

Merci pour ton retour antonysansh :-D

Ne maitrisant pas tous dans VBA,
j'évite de sélectionner la feuille car j'essaye d'optimiser le code dans le but que la macro s'exécute rapidement et non en 30min :-S

Mais peut être que je prend la tete pour rien :-p

Pour mon info qu'est ce que "vbCr"?

A quoi sert:
Application.ScreenUpdating = True

Cdt
Jerome

[antonysansh]

Pour mon info qu'est ce que "vbCr"?

VbCrpermet, dans une chaine de caractère, un retour à la ligne

A quoi sert:
Application.ScreenUpdating = True

Application.ScreenUpdating c'est le rafraichissement de l'écran donc à Falseça ne rafraichi pas l'affichage (gain de temps et visuellement on ne voit pas les changement d'onglet)
Et en fin de code ne pas oublier de le remettre à True.

Mais je te conseil t'étudier la solution de Theze, les Dico sont très utiles et c'est bien de savoir les manipuler

[antonysansh]

J'aime beaucoup ta solution Theze,

Utiliser les évènements pour alimenter une variable global pendant l'utilisation d'un fichier je trouve toujours ça sympas

Par contre lors de l'initialisation du dico, il a ses clefs mais pas de valeur.
Si j'interroge sur une feuille pas encore parcourue, je n'aurais rien.

Un couplage de ta méthode et de ma proc lors de l'initialisation peut être pas mal.

[joe.levrai]

Bonjour,

pour éviter d'avoir des "Activecell" vides au démarrage du classeur, pourquoi ne faire ainsi, en repartant du code de Theze ?

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
Public DicoFeuille As Object
 
Sub Initialiser()
 
    Dim I As Integer
    Dim Sh As Worksheet
 
    Application.ScreenUpdating = False
    Set Sh = ActiveSheet
    Set DicoFeuille = CreateObject("Scripting.Dictionary")
 
    For I = 1 To Worksheets.Count
        Worksheets(I).Activate
        DicoFeuille.Add Worksheets(I).Name, ActiveCell.Address
    Next I
 
    Sh.Activate
    Set Sh = Nothing
    Application.ScreenUpdating = True
End Sub

On balaye les feuilles pour chopper l'adresse de chaque activecell
et on oublie pas de réafficher la feuille initialement affichée après traitement

[Theze]

Bonjour,

Une autre possibilité avec un dico et en utilisant la procédure évènementielle "Workbook_SheetSelectionChange" du classeur. Tout d'abords, il faut initialiser le dictionnaire avec la proc. ci-dessous (ceci peut être fait sur l'évènement "Open" du classeur) :

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
 
Public DicoFeuille As Object
 
Sub Initialiser()
 
    Dim I As Integer
 
    Set DicoFeuille = CreateObject("Scripting.Dictionary")
 
    For I = 1 To Worksheets.Count
 
        DicoFeuille.Add Worksheets(I).Name, ""
 
    Next I
 
End Sub

ensuite, dans le module du classeur :

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
    DicoFeuille(Sh.Name) = Target.Address
 
End Sub

et enfin, pour lire la valeur de la cellule sélectionnée dans la feuille voulue :

Code :

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

1
2
3
4
5
6
 
Sub Lecture()
 
    MsgBox Range(DicoFeuille("Feuil2")).Value
 
End Sub

mais tout ça reste assez alambiqué et la proc proposée par antonysansh reste la plus judicieuse et la plus simple !

Hervé.