Microsoft 365 echange entre deux cellules

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Février 2021

• #2

Bonjour Michael,
Un exemple à mettre dans la feuille :

VB:

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

 

Pièces jointes

• Michael.xlsm

  13.1 KB · Affichages: 6

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 21 Février 2021

• #3

Bonjour Michael, le forum

Je te propose ceci :

@Phil69970

 

Pièces jointes

• ChangeA1-A2.xlsm

  14.4 KB · Affichages: 3

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Février 2021

• #4

Bonjour @MICHAEL,

Code dans le module de la feuille concernée:

VB:

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 ?

 

Pièces jointes

• MICHAEL- A1 A2- v1.xlsm

  14.7 KB · Affichages: 5

Dernière édition: 21 Février 2021

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 21 Février 2021

• #5

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Février 2021

• #6

Re,

Plus court :

VB:

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

 

Pièces jointes

• MICHAEL- A1 A2- v2.xlsm

  15 KB · Affichages: 4

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Février 2021

• #7

Bonjour le fil, Bonsoir mapomme

Plus court de plus court, c'est 😉

VB:

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"
😉

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Février 2021

• #8

Bonjour @Staple1600 😉,

Staple1600 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Février 2021

• #9

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 😉)

 

Vote positif 0 Vote négatif