Revenir sur une cellule

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

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?


Par exemple.....

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

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.

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