bonjour
Je suis débutant en VBA et à l'aide de la net j'ai arrivé à développé ptite application de gestion de ma trésorerie
maintenant chui bloqué vu que ce code qui me permet d'éditer un extrait de chaque compte souffre de :
* très lent
* Copié les données depuis la cellule "A14" malgré que j'ai mis "A13" de la feuille "EDITION"
* Trie à l'inverse les données copiées depuis la feuille "mouvement"
merci d'avance pour un cou de main car chui bloqué
ci joint mon fichier simplifié avec des données fictives en souhaitant recevoir de l'aide
Je suis débutant en VBA et à l'aide de la net j'ai arrivé à développé ptite application de gestion de ma trésorerie
maintenant chui bloqué vu que ce code qui me permet d'éditer un extrait de chaque compte souffre de :
* très lent
* Copié les données depuis la cellule "A14" malgré que j'ai mis "A13" de la feuille "EDITION"
* Trie à l'inverse les données copiées depuis la feuille "mouvement"
merci d'avance pour un cou de main car chui bloqué
Code:
Sub GRAND_LIVRE()
Dim plage As Range, cel As Range
Application.ScreenUpdating = False
valcherch = Sheets("EDITION").Range("B5")
With Worksheets("Mouvement")
derlig = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = .Range("A11:A" & derlig)
End With
For Each cel In plage
If cel = valcherch Then
cel(, 2).copy Worksheets("EDITION").Range("A13")
cel(, 5).copy Worksheets("EDITION").Range("B13")
cel(, 7).copy Worksheets("EDITION").Range("C13")
cel(, 8).copy Worksheets("EDITION").Range("D13")
Worksheets("EDITION").Range("A13").Select
Selection.Insert Shift:=xlDown
Worksheets("EDITION").Range("B13").Select
Selection.Insert Shift:=xlDown
Worksheets("EDITION").Range("c13").Select
Selection.Insert Shift:=xlDown
Worksheets("EDITION").Range("D13").Select
Selection.Insert Shift:=xlDown
End If
Next cel
Application.ScreenUpdating = True
End Sub