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

  • Initiateur de la discussion sev
  • Date de début
S

sev

Guest
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 :
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

XLDnaute Barbatruc
Repose en paix
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 :

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

Discussions similaires

Statistiques des forums

Discussions
312 836
Messages
2 092 623
Membres
105 469
dernier inscrit
gautronmi