Discussion :

[seboune64]

Bonjour,

Comment je peux faire pour mémoriser la cellule sélectionner en début de ma macro (qui va opérer sur d'autres cellules) et pouvoir en fin de macro resélectionner la cellule qui a été mémorisé au début ?

Explications:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
toto = Target.Row
tata = Target.Column
If Cells(toto, 5).Value = "x" Then
   Range(Cells(toto, 1), Cells(toto, 7)).Interior.ColorIndex = 15
   Range(Cells(toto, 1), Cells(toto, 7)).Select
   With Selection.Font
        .Size = 6
        .ColorIndex = 2
    End With
End If
End Sub

Dans ce cas là, en fin de macro, j'ai la ligne toto qui est sélectionnée.
Si je rajoute : Cells(toto, tata).Select en fin de macro, c'est la cellule qui a été modifiée qui est sélectionnée.
Mais, dans une feuille excel quand on valide une cellule, la sélection passe automatiquement sur la cellule suivante. C'est cette cellule que je voudrais mémoriser en début et sélectionner en fin de macro !

Peut être y a t il une solution toute bete, mais je ne la trouve pas .

Merci de me donner un petit coup de main.

[SilkyRoad]

bonjour

as tu essayé sans Select?

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Toto As Integer, Tata As Integer
 
Toto = Target.Row
Tata = Target.Column
 
If Cells(Toto, 5).Value = "x" Then
   Range(Cells(Toto, 1), Cells(Toto, 7)).Interior.ColorIndex = 15
 
   With Range(Cells(Toto, 1), Cells(Toto, 7)).Font
        .Size = 6
        .ColorIndex = 2
    End With
End If
End Sub

michel

[seboune64]

Merci pour la réponse, c'est impeccable. En effet, la solution est toute simple et je cherchais des trucs compliqués.

Merci