XL 2019 ecrire en même temps dans une cellule d'une autre feuille

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Septembre 2021

• #2

Bonjour Pat,
Pas très bien compris le problème, mais si en feuille 2 cellule A5 vous mettez :

VB:

=Feuil1!A5

alors les deux cellules A5 seront toujours identiques;
Qu'est ce qui m'a échappé ?

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 12 Septembre 2021

• #3

Bonjour Sylvanu,

oui et non, car à la base on peut aussi saisir la cellule A5 de la feuille 1 directement.
En fait, je veux pouvoir forcer la cellule A5 de la feuille 1 en restant sur la feuille 2 et que les cellules de la feuille 2 qui dépendent de la cellule A5 tiennent compte de forçage

est ce plus clair ?

 

Dernière édition: 12 Septembre 2021

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Septembre 2021

• #4

Re,
Pas plus, car avec =Feuil1!A5 on ne touche pas à Feuil2, il suffit de modifier la cellule A5 de la feuil1 pour mettre à jour la feuil2.

Un autre essai en PJ où toute donnée entrée en Feuil1 est recopiée à la même place en Feuil2 avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Sheets("Feuil2").Range(Target.Address) = Target
End Sub

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 12 Septembre 2021

• #5

je vous joints un exemple pour mieux me faire comprendre

 

Pièces jointes

• Modifications auto.xlsm

  11.3 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Septembre 2021

• #6

J'ai du mal à suivre, en PJ j'ai fait :
Si Feuil2 A5=10 alors Feuil1 A5 = Feuil2 B5 sinon on ne fait rien. Avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A5]) Is Nothing Then
        If Target <> "" Then Sheets("Feuil1").[A5] = Sheets("Feuil2").[B5]
    End If
End Sub

 

Pièces jointes

• Modifications auto.xlsm

  16 KB · Affichages: 11

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 12 Septembre 2021

• #7

re, je crois que j'ai trouvé, qu'en pensez vous ?


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A5")) Is Nothing Then
Worksheets("feuil2").Range("A5").Value = Worksheets("feuil1("A5")
End If
End Sub

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Septembre 2021

• #8

Je n'ai rien compris.
D'après vos explications, quand on met Forçage à 10 alors on copie de la feuil2 vers la feuil1 et non le contraire.
D'autre part il faut le If Target <> "" pour ne pas faire de copie si Forçage est vide.
Ce que fait ma macro.
Sinon si avec la votre tout marche, conservez la. Mais dans ce cas vos explications étaient peu claires.

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 12 Septembre 2021

• #9

re,

Oui votre formule fait bien le taf, mais je souhaite "voir mon post 3", que la saisie dans A5 de la feuil2" écrive la valeur dans A5 de la feuil1, c'est ce que j'appelle un forçage, merci

votre remarque est juste, voici la correction
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A5")) Is Nothing Then
If Target <> "" then Worksheets("feuil1").Range("A5").Value = Worksheets("feuil2("A5")
End If
End Sub

 

Dernière édition: 12 Septembre 2021

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 13 Septembre 2021

• #10

Bonjour le fil,

mille excuses à vous sylvanu, votre solution est juste, c'est moi qui n'était pas bien hier

mille merci

 

Vote positif 0 Vote négatif