Création d'un tableau Excel (un peu spécial.. Fermé

Question

Bonjour, 

Je travaille actuellement sous Excel afin d'analyser différents scénarios. J'ai crée une feuille de calcul avec différents inputs.
Je voudrais créer un tableau qui enregistre définitivement le résultat de ma 1ère simulation (effectuée sur cette feuille de calcul) puis effectuer par la suite une 2ème simulation en modifiant les inputs de la même feuille de calcul mais en conservant les résultats de la 1ère dans le tableau!
J'espère que je me suis exprimé clairement!

Merci par avance de votre aide

eriiic · Answer

Bonjour,

Il faudrait un classeur exemple où tu précises l'emplacement des variables d'entrée et celles de sortie, et qu'on voit aussi si ce sont de simples formules.
cijoint.fr et coller ici le lien fourni.

Maintenant si tu n'as que 2 simulations à faire un simple copier-coller ne te suffit pas ?

eric

MKIC · Answer

Salut eriic,
J'aimerais bien poser mon fichier sur CCM mais il s'agit de qqch de confidentiel.
Cependant, en gros, je cherche a déterminer mon TRI qui apparait dans une case à la fin de la feuille de calcul.
Cependant, cette case est liée à mes inputs, donc à chaque fois que je change ces derniers, mon TRI est modifié et en gros je dois écrire manuellement chaque TRI dans un autre tableau!
J'aimerais donc savoir s'il n'y a pas la possibilité d'extraire le TRI de la feuille de calcul et de l'implémenter automatiquement dans mon tableau (en conservant ce résultat même si j'effectue d'autres simulations).
Quant aux simulations, je dois en faire bcp (mon modèle dépend de 6-7 variables)
Merci pour votre aide

ccm81 · Answer

bonjour

avec une macro de ce type

Option Explicit

Const nomFO = "Feuil1"
Const plageO = "A2:A11"
Const nomFB = "Feuil2"
Const coB = 1

Private Sub CommandButton1_Click()
Dim lidebB As Long
' recupération dernière ligne feuille But
  lidebB = Sheets(nomFB).Cells(Rows.Count, coB).End(xlUp).Row + 1
' copie de la plage feuille Origine vers la feuille But
  Sheets(nomFO).Range(plageO).Copy Sheets(nomFB).Cells(lidebB, coB)
End Sub
bonne suite