Sélectionner cellule supérieure puis l'inférieure

[sev]

Bonjour à tous et toute,
Je voudrais pour qu'une action se réalise sélectionner la cellule supérieure puis l'inférieure et arrêter la procédure pour ne pas tourner en boucle.

Voici le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


  
  'Controle affectations
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  ' Sélectionner la cellule supérieure pour réaliser le code supérieure
Range("c9").Select  ' Revenir sur la cellule inférieure et arrêter la procédure
End Sub

 

[Robert]

Re : Sélectionner cellule supérieure puis l'inférieure

Bonjour Sev, bonjour le forum,

Désolé mais je n'ai pas compris ton problème et même avec ton bout de code je n'ai pas réussi à le cerner. Peut-être ça mais j'en doute :

Target.Offset(-1,0).Select
Target.Select

 

[sev]

Re : Sélectionner cellule supérieure puis l'inférieure

Merci , tu as bien compris mes explications peu claire