XL 2010 Problème exécution macro VBA

missymanioca · 25 Juin 2021

Bonjour à tous, j'ai un soucis dans l'exécution de mes macro sur fichier que j'ai crée pour mon travail.
L'objectif de mon fichier est qu'une fois rempli, on puisse copier coller toutes les informations de la Feuille 1 sur le tableau de la feuille suivante automatiquement, en cliquant sur un bouton. à chaque fois que l'on clique sur le bouton cela rajoute une ligne sur le tableau (avant de copier les informations de la feuille1) et la remet en forme
J'ai fait plusieurs macro, pour copier les valeurs des cases à cocher, des cellules... Lorsque je les exécutes chacune séparément il n'y a pas de soucis, elles fonctionnent, par contre quand je les mets toute ensemble au lieu que mes 2 premières cases à cocher mette les informations dans les cellules A2 et B2, elles vont également sur les cellules A3 et B3, effaçant donc ce qui a été fait précédemment. Les autres cases à cocher et cellules ont l'air de bien fonctionner alors je ne comprend pas...
La macro qui exécute toute mes formules et la Macro "CopierFeuilleClick" :
Sub CopierFeuilleClick()
Call lignenplus2 (macro faite via enregistrement)
Call CopierFeuilleEntretien2 (macro faite via enregistrement)
Call CopieTableau2 (macro faite via enregistrement)
Sheets("Feuille entretien").Select
Call PR
Sheets("Feuille entretien").Select
Call OC
Sheets("Feuille entretien").Select
Call RS
Sheets("Feuille entretien").Select
Call SD
Sheets("Feuille entretien").Select
Call SF
Sheets("Feuille entretien").Select
Call AB
Sheets("Feuille entretien").Select
Call Feuil1.TA
Call Listedéroulante
End Sub

Je joins également le fichier en pièce jointe
J'espère avoir été clair, merci beaucoup pour votre aide !

vgendron · 25 Juin 2021

oui je viens de voir le pb:
les macros sont affectées aux cases à cocher ==> dès que tu coches, la macro associée est lancée
pour supprimer l'affectation: Clic droit sur la case, affecter macro -supprimer la référence à la macro
à répéter pour toutes les cases à cocher

vgendron · 25 Juin 2021

Hello

en retour ton fichier que je me suis permis de modifier au niveau des macros (une partie seulement)
1) les modules vides ont été supprimés
2) j'ai donné des noms aux modules (certains)
3) j'ai commenté des macros qui n'étaient pas utilisées
4) j'ai modifié ta macro "Clear" qui peut tenir en 5 lignes
5) la macro pour ajouter une ligne vide a été modifiée pour ne pas avoir besoin d'afficher la feuille pour faire le boulot
6) ta macro qui recopie les infos d'une feuille a l'autre a été modifiée: je te laisse regarder le code: tu verra que c'est beaucoup plus lisible

missymanioca · 25 Juin 2021

Bon je pense avoir compris le problème ... Une fois que j'ai exécuté ma macro, lorsque je clique sur mes cases à cocher pour enregistrer une nouvelle feuille ça me modifie au même moment mes cases A2 et B2, avant même d'avoir ajouté une nouvelle ligne et exécuté une nouvelle fois ma macro. Alors je ne comprend pas du tout car ce sont les deux seuls groupes de cases à cocher qui me font ça... les autres fonctionnent bien ! On dirait que les cellules sont liées mais je ne vois rien de tout ça ...

missymanioca · 25 Juin 2021

vgendron à dit:
Hello

en retour ton fichier que je me suis permis de modifier au niveau des macros (une partie seulement)
1) les modules vides ont été supprimés
2) j'ai donné des noms aux modules (certains)
3) j'ai commenté des macros qui n'étaient pas utilisées
4) j'ai modifié ta macro "Clear" qui peut tenir en 5 lignes
5) la macro pour ajouter une ligne vide a été modifiée pour ne pas avoir besoin d'afficher la feuille pour faire le boulot
6) ta macro qui recopie les infos d'une feuille a l'autre a été modifiée: je te laisse regarder le code: tu verra que c'est beaucoup plus lisible

Merci beaucoup en effet c'est beaucoup plus clair et simple comme ça !
Par contre j'ai toujours mon soucis au niveau de mes deux premières cellules de ma feuille 2 qui se modifient en "instantané"

vgendron · 25 Juin 2021

oui je viens de voir le pb:
les macros sont affectées aux cases à cocher ==> dès que tu coches, la macro associée est lancée
pour supprimer l'affectation: Clic droit sur la case, affecter macro -supprimer la référence à la macro
à répéter pour toutes les cases à cocher

missymanioca · 25 Juin 2021

Au top merci beaucoup ça venait bien de ça

vgendron · 25 Juin 2021

je pense qu'il faut que tu revois aussi la dernière macro "liste Déroulante" qui copie des choses un peu au hasard niveau destination

Phil69970 · 25 Juin 2021

Bonjour @missymanioca, @vgendron

On peut raccourcir encore avantageusement la "sub ligneplus2"

VB:

Sub lignenplus2()
With WsDest
    .Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    .Rows("2:2").Interior.PatternColor = 16764057
    .Rows("2:2").Interior.ThemeColor = xlThemeColorDark1
    .Rows("2:2").BorderAround ColorIndex:=0, Weight:=xlThin
    .Rows("2:2").Borders(1).LineStyle = 1
End With
End Sub

@Phil69970

vgendron · 25 Juin 2021

update avec toutes les macros corrigées et simplifiées (avec la simplification proposée par Phil69970)

missymanioca · 28 Juin 2021

@vgendron @Phil69970 Merci beaucoup pour votre travail, c'est super, ça fonctionne parfaitement

XL 2010 Problème exécution macro VBA

missymanioca

XLDnaute Nouveau

Pièces jointes

vgendron

vgendron

XLDnaute Barbatruc

Pièces jointes

missymanioca

XLDnaute Nouveau

missymanioca

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

missymanioca

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

missymanioca

XLDnaute Nouveau

Discussions similaires