2 cellulles seulement

[reve24]

Quand j ouvre mon fichier
la selection est A2
Je remplie donc par le biais de
(Private Sub Worksheet_Change(ByVal Target As Range)
Range("A5").Select
le clic est en A5

j aimerais qu après ceci elle revienne en A2 et ainsi de suite
comment faire

A2 apres validé A5

A5 apres validé A2 et ainsi de suite

Merci d avance

 

[Efgé]

Re : 2 cellulles seulement

Bonjour reve24
Une proposition:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
    Case "$A$5"
        Range("$A$2").Select
    Case "$A$2"
        Range("$A$5").Select
End Select
End Sub

Cordialement

 

[DoubleZero]

Re : 2 cellulles seulement

Bonjour, reve24, Efgé 😀, le Forum,

Une autre suggestion :

Option Explicit
Private Sub Workbook_Open()
    Sheets("a").Activate    ' nom adapter
    Range("a2").Select
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Address = "$A$2" Then Range("a5").Select
    If c.Address = "$A$5" Then Range("a2").Select
End Sub

A bientôt 🙂

 

[reve24]

Re : 2 cellulles seulement

Merci efgé et double zero
moi je travaillais avec
Static selection_precedente As String
selection_precedente
mais je n ai pas réussi