Réinitialiser avec une macro Résolu/Fermé

Question

Bonjour, 

je cherche a connaitre  le code pour réinitialiser après avoir effecteur mes calculs, sachant que les formules ne sont pas automatisées , la macro ne fait qu'un simple copier coller et puis elle stock les données dans une autre feuille.

Je suis novice, je vais vous poser une question qui peut être vous paraitra assez banal !! :/
 Quand je réinitialise est ce que la macro ne fait que mettre la feuille d'excel à l'état initial ou bien elle met des zéro et elle écrase mes formules ?

J'espère retrouver une réponse assez vite, je vous remercie d'avance

commentcamarcheeay · Answer

Bonjour,

Tout dépend de ce que vous copier.
Supposons que vous avez une feuille de calcul. La réinitialiser revient à copier les cases d'une feuille vierge contenant tous les éléments nécessaires pour effectuer le même calcul.

Je vous conseille dans ce cas d'utiliser l'enregistreur de macros afin d'être sûr que vous copiez et collez toutes les formules de la feuille vierge de référence.

Amicalement.

Dytta · Answer

voilà le code :
Sub simuler()
     p = 12
   For i = 12 To 26
   
             For j = 3 To 13
                      Feuil3.Cells(10, j) = Feuil3.Cells(i, j)
              Next j
                   '  repmplir la feuille resultat
                             Feuil5.Cells(i, "C") = Feuil5.Cells(i, "C").Value + Feuil4.Cells(p, "C").Value
                             Feuil5.Cells(i, "D") = Feuil5.Cells(i, "D").Value + Feuil4.Cells(p, "D").Value
                             Feuil5.Cells(i, "E") = Feuil5.Cells(i, "E").Value + Feuil4.Cells(p, "E").Value
                             Feuil5.Cells(i, "F") = Feuil5.Cells(i, "F").Value + Feuil4.Cells(p, "F").Value
                             Feuil5.Cells(i, "G") = Feuil5.Cells(i, "G").Value + Feuil4.Cells(p, "G").Value
                             Feuil5.Cells(i, "H") = Feuil5.Cells(i, "H").Value + Feuil4.Cells(p, "H").Value
                             Feuil5.Cells(i, "I") = Feuil5.Cells(i, "I").Value + Feuil4.Cells(p, "I").Value
                             Feuil5.Cells(i, "J") = Feuil5.Cells(i, "J").Value + Feuil4.Cells(p, "J").Value
                             Feuil5.Cells(i, "K") = Feuil5.Cells(i, "K").Value + Feuil4.Cells(p, "K").Value
                             Feuil5.Cells(i, "L") = Feuil5.Cells(i, "L").Value + Feuil4.Cells(p, "L").Value
                             Feuil5.Cells(i, "M") = Feuil5.Cells(i, "M").Value + Feuil4.Cells(p, "M").Value
                             Feuil5.Cells(i, "N") = Feuil5.Cells(i, "N").Value + Feuil4.Cells(p, "N").Value
                             Feuil5.Cells(i, "O") = Feuil5.Cells(i, "O").Value + Feuil4.Cells(p, "O").Value
                             
Next i
         Feuil5.Activate
End Sub

benol3 · Answer

Salut, 

Tout dépends du code que tu as implémenté ....

Fais nous parvenir ton fichier via cjoint.com

Dytta · Answer

Salut,

 j'ai un portefeuille de 15 personnes (15 lignes)  ma boucle consiste à copier chaque ligne à partir d e i= 12  et la coller en 10) autrement dit:

copier B12:N12 et la coller à B10:N10  et 
puis les calculs se font dans la feuille modèle et 
on les stocks dans RESULTATS , 

on passe à la 2 éme ligne on fait la même chose , 
les résultats s'incrémente là ou on a  stocké  RESULTATS de la 1ére ligne
Ainsi de suite

 arriver à la fin, je veux une macro qui me permet de revenir à l'état initial et refaire le calcul de nouveau

BàT,

Le Pingou · Answer

Bonjour,
Eh bien là c'est impossible de comprendre le sens de votre application...... !

benol3 · Answer

Pour remettre à zéro, il faut juste effacer les valeurs écrites en dures. 

Exemple : dans C1 il y a la formule suivante =A1+B1. Pour remettre à zéro tout ton document, il faut juste effacer les valeurs de A1 et B1. tu auras toujours ta formule en C1 mais vu que tu n'a pas de valeurs dans A1 et B1 tu n'a pas de valeur affichée en C1

Je sais pas si je t'aide à résoudre ton problème mais le mieux serait de nous montrer ton fichier...

Tout le monde y verra plus clair...

Utilise : https://www.cjoint.com/index.php pour nous montrer ton fichier

Ps : Rends le anonyme, si il y a des données confidentielles

Réinitialiser avec une macro

6 réponses

Discussions similaires