simplification macro

[droopy89]

j'avais créer une petite macro intéréssante mais en voulant l'agrandir j'ai un message d'erreur "erreur de compilation procédure trop grande" il faut certainement que je simplifi la procédure mais je ne sais pas comment faire.
Le but de la macro je compare le numéro de la fiche feuille bilan aux numéros dans la colonne lorsque il y a concordance je copie certaines données sur la ligne et je viens les coller sur la feuille bilan.

 

[droopy89]

Re : simplification macro

Avec toutes mes excuses je pensais avoir mis le fichier mais il était trop gros

 

[droopy89]

Re : simplification macro

Un grand merci je viens de tester cela a l'air de fonctionner si j'ai bien compris en augmentant le compteur je peux prendre en compte plus de ligne

 

[droopy89]

Re : simplification macro

Merci encore j'espere que cela auras pu aider d'autre personnes
bonne nuit

 

[Efgé]

Re : simplification macro

Bonjour droopy89, Jean-Marcel,
Vu l'heure je pensais avoir le temps, mais ....Jean-Marcel fut plus prompt 😀
J'en étais là:

[COLOR=blue]Private Sub[/COLOR] Essai1_Click()
[COLOR=blue]Set[/COLOR] Fp = Sheets("Présérie")
[COLOR=blue]Set[/COLOR] Fb = Sheets("Bilan")
    [COLOR=blue]For[/COLOR] i = 4 [COLOR=blue]To[/COLOR] 29
        [COLOR=blue]If[/COLOR] Fp.Cells(i, 1) = Fb.Range("O2") [COLOR=blue]Then[/COLOR]
            Fb.Range("e3:g3") = Fp.Cells(i, 2)
            Fb.Range("j3:K3") = Fp.Cells(i, 3)
            Fb.Range("n3:o3") = Fp.Cells(i, 4)
            Fb.Range("b6:c6") = Fp.Cells(i, 5)
            Fb.Range("b8:c8") = Fp.Cells(i, 6)
            Fb.Range("b10:c10") = Fp.Cells(i, 7)
            Fb.Range("d6:e6, d11:e11") = Fp.Cells(i, 8)
            Fb.Range("l6:m6") = Fp.Cells(i, 11)
            Fb.Range("n6:o6") = Fp.Range("l4")[COLOR=green] '== ?[/COLOR]
            Fb.Range("l7:m7") = Fp.Cells(i, 15)
            Fb.Range("n7:o7") = Fp.Cells(i, 16)
            Fb.Range("l8:m8") = Fp.Cells(i, 19)
            Fb.Range("n8:o8") = Fp.Cells(i, 20)
            Fb.Range("l9:m9") = Fp.Cells(i, 23)
            Fb.Range("n9:o9") = Fp.Cells(i, 24)
            Fb.Range("l10:m10") = Fp.Cells(i, 27)
            Fb.Range("n10:o10") = Fp.Cells(i, 28)
        [COLOR=blue]End If[/COLOR]
    [COLOR=blue]Next[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement