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

Fermé
just4fun Messages postés 3 Date d'inscription mercredi 24 juillet 2013 Statut Membre Dernière intervention 24 juillet 2013 - 24 juil. 2013 à 15:16
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 25 juil. 2013 à 09:16
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!
A voir également:

8 réponses

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
24 juil. 2013 à 15:33
Coucou,

il me faudrait le code vba pour que je puisse le modifier et faire ce que tu souhaites
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
24 juil. 2013 à 15:45
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
0
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
24 juil. 2013 à 16:03
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.
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié par ccm81 le 24/07/2013 à 16:13
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
just4fun Messages postés 3 Date d'inscription mercredi 24 juillet 2013 Statut Membre Dernière intervention 24 juillet 2013
24 juil. 2013 à 17:04
Je vais essayer de vous envoyer un fichier
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
24 juil. 2013 à 17:42
utilises cjoint.com et joins le lien obtenu à ton prochain message
0
just4fun Messages postés 3 Date d'inscription mercredi 24 juillet 2013 Statut Membre Dernière intervention 24 juillet 2013
24 juil. 2013 à 21:37
Bonjour,
Voilà une explication, j'espère que ça vous aidera !
Merci encore !

https://www.cjoint.com/c/CGyvKxj9ZjJ
0
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
25 juil. 2013 à 09:16
bonjour,

a chaque fois que tu cliques sur OK, les valeurs sont conservés dans la feuille 2

https://www.cjoint.com/c/CGzjpB84yUI
0