Revenir sur une cellule

[sev]

Bonsoir à tous et toute,
afin de compléter un code après une action que faut il pour sélectionner une cellule supérieure puis revenir à celle du dessous ?

Dans l'exemple tiré par macro :
Range("R16").Select
Range("R15").Select
Range("R16").Select

Merci pour votre aide

 

[Paritec]

Re : Revenir sur une cellule

Bonsoir Sev le forum,
Sev je comprend pas tu veux faire quoi exactement tu veus sélectionner ta cellule - 1 ligne pour faire quelle action avant de revenir dessus?
a+
Papou

 

[Cousinhub]

Re : Revenir sur une cellule

Bonsoir,

il est très rarement utile d'utiliser .Select

Que veux tu faire au dessus de ta cellule :

Mettre la date?

If ActiveCell.Row > 1 Then ActiveCell.Offset(-1, 0) = Date

Par exemple.....

 

[sev]

Re : Revenir sur une cellule

Non , je veux mettre celà:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)



If flag Then Exit Sub
flag = True
If Target.Column = 3 Or Target.Column = 8 Or Target.Column = 13 Or Target.Column = 18 Then
If Target.Value <> "" And Target.Font.Color <> 8421504 Then
For Each Cell In Sheets("mds").Range("C7:C300")
If Target.Value = Cell.Value Then

Cell.Copy
Target.PasteSpecial Paste:=xlPasteAllExceptBorders
End If
Next Cell
End If
End If
flag = False


End Sub

Pour que le résultat se fasse directement sans autre manipulation je veux sélectionner la cellule supérieure puis revenir à l'inférieure

 

[TooFatBoy]

Re : Revenir sur une cellule

Bon, pour être franc, je n'ai toujours pas compris ce que tu veux faire, mais je reste persuadé que tu devrais faire comme t'a dit Bhbh.

 

[sev]

Re : Revenir sur une cellule

Voilà le code avec une petite explication incorporée :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)



'Controle formats de valeures de la feuille mds
If flag Then Exit Sub
flag = True
If Target.Column = 3 Or Target.Column = 8 Or Target.Column = 13 Or Target.Column = 18 Then
If Target.Value <> "" And Target.Font.Color <> 8421504 Then
For Each Cell In Sheets("mds").Range("C7:C300")
If Target.Value = Cell.Value Then

Cell.Copy
Target.PasteSpecial Paste:=xlPasteAllExceptBorders
End If
Next Cell
End If
End If
flag = False
Range("C8").Select 'En fait à ce moment là il faudrait revenir à la cellule supérieure
Range("C9").Select 'puis à la cellule inférieure et arrêter la procédure pour éviter de tourner en boucle

End Sub