Sujet Précédent Sujet Suivant

Réinitialiser avec une macro

Résolu/Fermé
Dytta Messages postés 17 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 5 juin 2014 - Modifié par baladur13 le 7/06/2014 à 13:47
Dytta Messages postés 17 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 5 juin 2014 - 30 mai 2014 à 16:27
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
A voir également:

6 réponses

Réponse 1 / 6
commentcamarcheeay Messages postés 666 Date d'inscription mercredi 24 février 2010 Statut Membre Dernière intervention 30 mars 2020 86
28 mai 2014 à 11:11
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.
0
Réponse 2 / 6
Dytta Messages postés 17 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 5 juin 2014
28 mai 2014 à 11:11
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
0
Réponse 3 / 6
benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
28 mai 2014 à 11:17
Salut,

Tout dépends du code que tu as implémenté ....

Fais nous parvenir ton fichier via cjoint.com
0
Réponse 4 / 6
Dytta Messages postés 17 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 5 juin 2014
28 mai 2014 à 11:24
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,
0

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

Posez votre question
Réponse 5 / 6
Le Pingou Messages postés 12057 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 mai 2024 1 430
28 mai 2014 à 16:31
Bonjour,
Eh bien là c'est impossible de comprendre le sens de votre application...... !

0
Dytta Messages postés 17 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 5 juin 2014
28 mai 2014 à 16:39
:s , je cherche le code d'une macro qui réinitialise ma feuille d'excel ou j'effectue les calculs.
remettre les cellules à zéro sans pourtant toucher aux formules
0
Le Pingou Messages postés 12057 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 mai 2024 1 430
28 mai 2014 à 21:22
Bonjour,
Mais cela ne renseigne pas du tout sur votre application donc pas de réponse correcte possible.
Désolé.
Salutations.
Le Pingou
0
Dytta Messages postés 17 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 5 juin 2014
30 mai 2014 à 16:27
j'ai trouvé la solution :)
Sub Réinitialiser()
For j = 2 To 13
Feuil3.Cells(10, j) = 0
Next j
For p = 12 To 32
' repmplir la feuille resultat
Feuil5.Cells(p, "C") = 0
Feuil5.Cells(p, "D") = 0
Feuil5.Cells(p, "E") = 0
Feuil5.Cells(p, "F") = 0
Feuil5.Cells(p, "G") = 0
Feuil5.Cells(p, "H") = 0
Feuil5.Cells(p, "I") = 0
Feuil5.Cells(p, "J") = 0
Feuil5.Cells(p, "K") = 0
Feuil5.Cells(p, "L") = 0
Feuil5.Cells(p, "M") = 0
Feuil5.Cells(p, "N") = 0
Feuil5.Cells(p, "O") = 0
Feuil5.Cells(p, "P") = 0
Next p

End Sub

A+
0
Réponse 6 / 6
benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
28 mai 2014 à 21:11
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
0
Dytta Messages postés 17 Date d'inscription mardi 27 mai 2014 Statut Membre Dernière intervention 5 juin 2014
30 mai 2014 à 16:26
j'ai trouvé la solution qui me convient sans écraser mes formules Excel :

Sub Réinitialiser()
For j = 2 To 13
Feuil3.Cells(10, j) = 0
Next j
For p = 12 To 32
' repmplir la feuille resultat
Feuil5.Cells(p, "C") = 0
Feuil5.Cells(p, "D") = 0
Feuil5.Cells(p, "E") = 0
Feuil5.Cells(p, "F") = 0
Feuil5.Cells(p, "G") = 0
Feuil5.Cells(p, "H") = 0
Feuil5.Cells(p, "I") = 0
Feuil5.Cells(p, "J") = 0
Feuil5.Cells(p, "K") = 0
Feuil5.Cells(p, "L") = 0
Feuil5.Cells(p, "M") = 0
Feuil5.Cells(p, "N") = 0
Feuil5.Cells(p, "O") = 0
Feuil5.Cells(p, "P") = 0
Next p

End Sub
0

Discussions similaires

Reset kidicom max
Anne -
Atenais -

6 réponses