Copie d'une cellule à une autre! Mais ca mérite des explications

[Peace_coc]

Bonjour à tous et toutes,

Je voudrais tout d'abord féliciter les personnes qui participent à ce forum.
et les remercie pour l'aide qu'il apporte aux autres. Voilà

Pour ma part, j ai un petit souci aussi;

Je m explique:

J ai un classeur Excel qui comporte plusieurs feuilles.
Une 1iere feuille est destiné à effectuer des calculs de simulation en passant par l'intermédiare des autres feuilles.
Une des feuille sera destiné à receuillir des résultats de la simulation.

Ce que je voudrais faire est la chose suivante: lorsque je lance ma simulation je voudrais enregistrer certains résultats (sur cette feuille des résultats des scénarios) en cliquant sur un bouton et
lorsque je change de paramétres dans ma feuille de calculs , je voudrais n'enregistrer que les valeurs qui ont changé (par exemple les mettre en couleur).

Cela fait trois jours que je me prends la tete dessus.Si quelqu un pouvait me donner une solution ou me guider, ca serait tres sympa.

En vous remerciant.

 

[Peace_coc]

Bonjour à tous,

Je viens juste de rentrer désolé de ne pas avoir répondu ce week end.

Que dire de plus sinon que je te remercie infiniement @+Thierry pour la demo que tu as faites.
Cette démo correspond excatement à ce que je voulais faire.

Merci encore. et excusez mon stress (il est vrai que cela m vait beaucoup stressé la semaine derniére). j ai du stresser des gens avec moi....

 

[Peace_coc]

Rebonjour à tous

Dis moi Thierry s 'il te plait,
J aimerais avoir qq explications sur le code

Dans mon application que je dois developpé:

la feuille de simulation contient des données entre les cellule A1 et O65536

et la feuille de Résultat de la simulation se fera se fera de A4 jusqu a AG65536.

Ce que je ne comprends pas c est la facon dont tu incémentes ton compteur aux lignes suivantes:
lorsq
Private Sub CommandButton1_Click()
Dim X As String
'ICI JE NE COMPRENDS PAS cette partie du code
'ici je regarde la dernière valeur dans compteur
X = Sheets("Résultats_des_scénarios").Range("E65536").End(xlUp).Value

Si tu pouvais me donner des explications.
En te remerciant.

 

[@+Thierry]

SAlut Peace_Coc, le Forum


Vite fait car je vais me coucher là

Dim X As String
>>> Je déclare la variable "X" comme étant une chaine de caractères

X = Sheets("Résultats_des_scénarios").Range("E65536").End(xlUp).Value
>>> J'initialise "X" pour que cette variable contienne la dernière valeur de la colonne "E" en remontant depuis le bas....

Voilà comme explications rapides

Bonne nuit
@+Thierry