Récupérer des valeurs et les mettre dans un tableau

Question

Bonjour, 

Pouvez-vous m'aider ?

Dans la Feuil1 de mon fichier excel j'entre une valeur dans la cellule A1et je clique sur un bouton qui génère des résultats que je souhaiterais stocker. Lorsque je change la valeur de la cellule A1,je clique sur le bouton et cela m'écrase mes valeurs précédentes.
Or je souhaiterais garder tous les résultats pour différentes valeurs que j'entre dans ma cellule A1.

Exemple :
Ce que je souhaite faire:
cellule A1 = 10 je clique sur le bouton, résultat1 45, Résultat2 56 résultat3 60
stocker automatiquement les 3 valeurs et réitérer l'opération 
cellule A1 = 16 je clique sur le bouton, résultat1 76 Résultat2 87 résultat3 90
stocker automatiquement les 3 valaurs et réitérer l'opération

Je vous remercie!

melanie1324 · Answer

Coucou,

il me faudrait le code vba pour que je puisse le modifier et faire ce que tu souhaites

ccm81 · Answer

bonjour

ta demande n'est pas très explicite, un exemple avec ce que j'ai compris
https://www.cjoint.com/?3GypR1XWe5F 

Bonne journée

melanie1324 · Answer

Coucou,

je ne comprends quel est on rpoblème en fait.
Car quand je mets 100 et que je clique OK, j'ai les résultats
Quand je mets 16 et que je clique OK, les résultats s'affiche en dessous des résultats de 100.

Donc ca n'écrase pas les résultats précédents.

ccm81 · Answer

Salut melanie1324

1. J'ai compris qu'il voulait conserver la liste des R1-R2-R3
Pour écraser à chaque clic sur le bouton il suffit d'effacer avant d'afficher (soit un appel à btRAZ en début de procédure)

2. Je ne me suis pas trop préoccupé du calcul des R1-R2-R3, c'est le problème du demandeur
Un exemple ou R1-R2-R3 dépendent de la valeur de A1

Option Explicit

Const co1 = "C"
Const co2 = "D"
Const co3 = "E"
Const cel = "A1"

Private Sub btOK_Click()
Dim li As Long, a
a = Range(cel).Value
li = Range(co1 & Rows.Count).End(xlUp).Row + 1
Range(co1 & li).Value = Int(Rnd * a)
Range(co2 & li).Value = Int(Rnd * a)
Range(co3 & li).Value = Int(Rnd * a)
End Sub

Private Sub btRAZ_Click()
Dim lifin As Long
lifin = Range(co1 & Rows.Count).End(xlUp).Row
If lifin = 1 Then lifin = 2
Range(co1 & "2:" & co3 & lifin).ClearContents
End Sub

Cordialement

just4fun · Answer

Je vais essayer de vous envoyer un fichier

ccm81 · Answer

utilises cjoint.com et joins le lien obtenu à ton prochain message

just4fun · Answer

Bonjour,
Voilà une explication, j'espère que ça vous aidera !
Merci encore ! 

https://www.cjoint.com/c/CGyvKxj9ZjJ

melanie1324 · Answer

bonjour,

a chaque fois que tu cliques sur OK, les valeurs sont conservés dans la feuille 2

https://www.cjoint.com/c/CGzjpB84yUI

Récupérer des valeurs et les mettre dans un tableau

8 réponses

Votre réponse

Discussions similaires

Newsletters