Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel garder historique de valeurs

garder historique de valeurs

4 réponses
Avatar
phono
Bonjour


J'ai en feuille 1, A1 le resultat d'un certain calcul.
J'aimerai pouvoir ecrire le resultat de ce calcul en feuil 2, B2 puis

J'aimerai pouvoir afficher en B3 la valeur d'un nouveau calcul tout en
gardant la valeur deja ecrite en B2 ...et ainsi de suite pour B4..... B n .
Donc a chaque nouveau calcul , rajouter le resultat dans la case de dessous.
Pouvez vous m'indiquer comment on peut écrire cela ?

Merci de votre aide
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonjour,

Ceci, peut-être, dans le module de la feuil1
'---------
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("feuil2").Range("a" & Sheets("feuil2").Range("A65536").End(3).Row +
1) = Sheets("feuil1").[a1]
End Sub
'--------
--
Salutations
JJ

"phono" a écrit dans le message de news:
457a993c$0$27409$
Bonjour


J'ai en feuille 1, A1 le resultat d'un certain calcul.
J'aimerai pouvoir ecrire le resultat de ce calcul en feuil 2, B2 puis

J'aimerai pouvoir afficher en B3 la valeur d'un nouveau calcul tout en
gardant la valeur deja ecrite en B2 ...et ainsi de suite pour B4..... B n
.
Donc a chaque nouveau calcul , rajouter le resultat dans la case de
dessous.
Pouvez vous m'indiquer comment on peut écrire cela ?

Merci de votre aide




Avatar
garnote
Bonjour Jacky,

Pourrais-tu m'éclairer sur le sens du 3 dans End(3) ?
Il doit aussi y avoir des End(1), End(2) ... ?
Et ce ne serait pas plutôt b que a avant le "="

Serge


"Jacky" a écrit dans le message de news:
Bonjour,

Ceci, peut-être, dans le module de la feuil1
'---------
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("feuil2").Range("a" & Sheets("feuil2").Range("A65536").End(3).Row + 1) = Sheets("feuil1").[a1]
End Sub
'--------
--
Salutations
JJ

"phono" a écrit dans le message de news: 457a993c$0$27409$
Bonjour


J'ai en feuille 1, A1 le resultat d'un certain calcul.
J'aimerai pouvoir ecrire le resultat de ce calcul en feuil 2, B2 puis

J'aimerai pouvoir afficher en B3 la valeur d'un nouveau calcul tout en
gardant la valeur deja ecrite en B2 ...et ainsi de suite pour B4..... B n .
Donc a chaque nouveau calcul , rajouter le resultat dans la case de dessous.
Pouvez vous m'indiquer comment on peut écrire cela ?

Merci de votre aide








Avatar
Jacky
Bonjour,

Pourrais-tu m'éclairer sur le sens du 3 dans End(3) ?
End(3) est le raccourci de End(xlup)


Il doit aussi y avoir des End(1), End(2) ... ?
4= XlDown

3= Xlup
2=XltoRight
1=XltoLeft

Et ce ne serait pas plutôt b que a avant le "="
Bien vu, j'ai encore confondu vitesse et précipitation :-(((

Donc:
Sheets("feuil2").Range("b" & Sheets("feuil2").Range("b65536").End(3).Row +
1) = Sheets("feuil1").[a1]

--
Salutations
JJ

"garnote" a écrit dans le message de news:
uBw$
Bonjour Jacky,

Pourrais-tu m'éclairer sur le sens du 3 dans End(3) ?
Il doit aussi y avoir des End(1), End(2) ... ?
Et ce ne serait pas plutôt b que a avant le "="

Serge


Avatar
garnote
C'est OK, je suis enfin réveillé :-)

End(1) --> End(xlToLeft)
End(2) --> End(xlToRight)
End(3) --> End(xlUp)
End(4) --> End(xlDown)

Bonne journée
Serge

"garnote" a écrit dans le message de news: uBw$
Bonjour Jacky,

Pourrais-tu m'éclairer sur le sens du 3 dans End(3) ?
Il doit aussi y avoir des End(1), End(2) ... ?
Et ce ne serait pas plutôt b que a avant le "="

Serge


"Jacky" a écrit dans le message de news:
Bonjour,

Ceci, peut-être, dans le module de la feuil1
'---------
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("feuil2").Range("a" & Sheets("feuil2").Range("A65536").End(3).Row + 1) = Sheets("feuil1").[a1]
End Sub
'--------
--
Salutations
JJ

"phono" a écrit dans le message de news: 457a993c$0$27409$
Bonjour


J'ai en feuille 1, A1 le resultat d'un certain calcul.
J'aimerai pouvoir ecrire le resultat de ce calcul en feuil 2, B2 puis

J'aimerai pouvoir afficher en B3 la valeur d'un nouveau calcul tout en
gardant la valeur deja ecrite en B2 ...et ainsi de suite pour B4..... B n .
Donc a chaque nouveau calcul , rajouter le resultat dans la case de dessous.
Pouvez vous m'indiquer comment on peut écrire cela ?

Merci de votre aide