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

just4fun Messages postés 4 Statut Membre -  
melanie1324 Messages postés 1561 Statut Membre -
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!

8 réponses

  1.
    melanie1324 Messages postés 1561 Statut Membre 156
     
    Coucou,

    il me faudrait le code vba pour que je puisse le modifier et faire ce que tu souhaites
    0
  3. melanie1324 Messages postés 1561 Statut Membre 156
     
    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
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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

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

    Posez votre question
  6. just4fun Messages postés 4 Statut Membre
     
    Je vais essayer de vous envoyer un fichier
    0
  7. ccm81 Messages postés 11033 Statut Membre 2 434
     
    utilises cjoint.com et joins le lien obtenu à ton prochain message
    0

Discussions similaires

Tableau croisé dynamique - absence de certaines données
crazyrider71 -
Hana -

4 réponses
garder constant des calculs
jack2125 -
PHILOU10120 -

4 réponses
CALCULS
smart19 -
Dracknard -

4 réponses