Réinitialiser avec une macro

Résolu
Dytta Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   -  
Dytta Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   -
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 667 Date d'inscription   Statut Membre Dernière intervention   86
 
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   Statut Membre Dernière intervention  
 
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 570 Date d'inscription   Statut Membre Dernière intervention   87
 
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   Statut Membre Dernière intervention  
 
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 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Eh bien là c'est impossible de comprendre le sens de votre application...... !

0
Dytta Messages postés 17 Date d'inscription   Statut Membre Dernière intervention  
 
: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 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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   Statut Membre Dernière intervention  
 
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 570 Date d'inscription   Statut Membre Dernière intervention   87
 
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   Statut Membre Dernière intervention  
 
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

PB edenwood , comment réinitialiser ?
Gadeal -
Gadeal -

18 réponses
Freebox pop
Kuza -
CCMBot -

1 réponse