Microsoft 365 echange entre deux cellules

[MICHAEL]

bonjour,
je souhaiterais que lorsque que j'entre une valeur en a1 celle ci s'affiche également en a2, et réciproquement.
merci de votre aide

 

[sylvanu]

Bonjour Michael,
Un exemple à mettre dans la feuille :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, [A1]) Is Nothing Then
        [A2] = Target
    ElseIf Not Intersect(Target, [A2]) Is Nothing Then
        [A1] = Target
    End If
    Application.EnableEvents = True
End Sub

 

[Phil69970]

Bonjour Michael, le forum

Je te propose ceci :

@Phil69970

 

[mapomme]

Bonjour @MICHAEL,

Code dans le module de la feuille concernée:

Private Sub Worksheet_Change(ByVal Target As Range)
   Select Case LCase(Target.Address(0, 0))
      Case "a1": Range("a1:a2") = Target
      Case "a2": Range("a1:a2") = Target
   End Select
End Sub

Que faire si on efface une cellule ? Effacer aussi l'autre ? Il faudrait le préciser ?

 

[MICHAEL]

Merci a tous, j'ai que l'embarras du choix
c'est parfait!
passez une agréable journée.

 

[mapomme]

Re,

Plus court :

Private Sub Worksheet_Change(ByVal Target As Range)
   Select Case LCase(Target.Address(0, 0))
      Case "a1", "a2": Range("a1:a2") = Target
   End Select
End Sub

 

[Staple1600]

Bonjour le fil, Bonsoir mapomme

Plus court de plus court, c'est

Private Sub Worksheet_Change(ByVal T As Range)
Select Case T.Address
Case "$A$1", "$A$2": [a1:a2] = T
End Select
End Sub

PS: Je n'avais vu que le message#4 avant de voir le message#6
(Le message#4 où je cherchais pourquoi deux Case)

NB: Par contre si on saisit une formule en A1 ou A2 , on a un "Houston"

 

[mapomme]

Bonjour @Staple1600 ,

NB: Par contre si on saisit une formule en A1 ou A2 , on a un "Houston"

Le demandeur a bien précisé qu'il s'agissait de saisie de valeurs.

 

[Staple1600]

Re

=>mapomme
J'ai du mal à saisir le contexte d'utilisation in RL.
Mais pour le fun, comment tu ferais si formulation il y avait?
(On ne sait jamais, comme dirait Robert, "for the times they are a-changin", ca vaut aussi pour les cellules )