Bonjour,
C'est un classeur pour la facturation.
J'ai une feuille Ventilation et Une autre Recap.
La feuille ventilation présente les données classées par collaborateurs, les colonnes sont remplies jusqu'à AB
La feuille recap présente les données classées par contrat.Certaines colonnes sont cachée par rapport à la feuille ventilation.
j'ai environ une centaines de lignes.
Lorsque je change une donnée dans la feuille Recap,puis, lorsque je passe à la feuille ventilation, les données sont recopiées et inversément.
Alors si je fais cela 2-3 fois cela se fait rapidement, mais si je le fais 10 fois, Excel devient un gros escargot, de plus mon fichier grossit à vu d'oeil.
Est-ce qq saurait ce que je peux faire? Je commence à désespérer
Voici la macro faisait cela :
merci d'avance
Nath
C'est un classeur pour la facturation.
J'ai une feuille Ventilation et Une autre Recap.
La feuille ventilation présente les données classées par collaborateurs, les colonnes sont remplies jusqu'à AB
La feuille recap présente les données classées par contrat.Certaines colonnes sont cachée par rapport à la feuille ventilation.
j'ai environ une centaines de lignes.
Lorsque je change une donnée dans la feuille Recap,puis, lorsque je passe à la feuille ventilation, les données sont recopiées et inversément.
Alors si je fais cela 2-3 fois cela se fait rapidement, mais si je le fais 10 fois, Excel devient un gros escargot, de plus mon fichier grossit à vu d'oeil.
Est-ce qq saurait ce que je peux faire? Je commence à désespérer
Voici la macro faisait cela :
Code:
Public Sub copieRecapVersVentil()
Dim intDerniereLigne As Integer
Dim intDerniereLigneVentil As Integer
Dim strFormuleCol5 As String
'On Error GoTo traitement_erreur
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.StatusBar = "Début de la copie des données de la feuille Recap vers ventilation"
WsVentilation.Unprotect
WsRecap.Columns("A:B").Copy
WsVentilation.Columns("C:D").PasteSpecial Paste:=xlPasteAll
WsRecap.Columns("C:D").Copy
WsVentilation.Columns("A:B").PasteSpecial Paste:=xlPasteAll
WsRecap.Columns("E:AC").Copy
WsVentilation.Columns("E:AC").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
ClasseVentilParContrat
WsVentilation.Protect
Application.StatusBar = "Fin de la copie des données de la feuille Recap vers ventilation"
gbRecapChange = False
gbVentilChange = False
'DefinitComportementVentilation (gIntModeUtilisation)
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.StatusBar = ""
Exit Sub
traitement_erreur:
MsgBox "N° erreur:" & err.Number & vbLf & err.Description, vbCritical + vbOKOnly, "copieRecapVersVentil"
Application.EnableEvents = True
Application.ScreenUpdating = True
WsVentilation.Protect
WsRecap.Protect
End Sub
merci d'avance
Nath