XL 2019 Remplir automatiquement une cellule ou plusieurs

fanfan38

XLDnaute Barbatruc

• 23 Octobre 2020

• #2

Bonjour
Un fichier est TOUJOURS le bienvenu...
Ci joint ma solution
A+ François

 

Pièces jointes

• Classeur1.xlsm

  15.8 KB · Affichages: 12

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 23 Octobre 2020

• #3

Bonjour François,

cela fonctionne très bien, sauf qu'après plusieurs tests, il s'avère que si je change le contenu d'une cellule de la même colonne exemple je mets 300 dans B14 ou B15, cela l'écrit aussi 300 dans B16

aurais tu une solution pour que cela n'impacte pas B16 ?

merci

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 23 Octobre 2020

• #4

Cela me surprend... j'ai fait moi même plusieurs essais et je n'ai jamais eu ce problème
c'est logique car je prends l'adresse de la cellule modifiée.

A+ François

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 23 Octobre 2020

• #5

je comprends mais j'ai aussi fais le test avec ton fichier et cela fait pareil, je dois avoir des interférences avec d'autres formules, je vais encore tester

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 23 Octobre 2020

• #6

Après plusieurs tests il s'avère qu'en fait, je t'ai induis en erreur cela a peut être son importance, à savoir :
j'ai précisé dans l’énoncé que
cellule B16 de la feuil1 écrit dans la cellule B16 de la feuil2 et C5 de la feuil3
alors qu'en fait c'est
cellule B16 de la feuil1 écrit dans la cellule B15 de la feuil2 (et non en B16) et C5 feuil3
et inversement

un grand merci pour ton aide

cordialement

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 23 Octobre 2020

• #7

François

j'ai trouvé et tester cette formule sur un autre forum et cela fonctionne parfaitement
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [B16] Then
Worksheets("feuil2").[B15].Value = [B16].Value
Worksheets("feuil3").[C15].Value = [B16].Value
End If
End Sub

et inversement

Encore un grand merci pour ton aide

Patrick

 

Vote positif 0 Vote négatif