simplification macro

droopy89 · 31 Août 2010

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 · 31 Août 2010

Re : simplification macro

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

droopy89 · 31 Août 2010

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 · 31 Août 2010

Re : simplification macro

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

Efgé · 31 Août 2010

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à:

Code:

[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

simplification macro

droopy89

XLDnaute Junior

droopy89

XLDnaute Junior

Pièces jointes

droopy89

XLDnaute Junior

droopy89

XLDnaute Junior

Efgé

XLDnaute Barbatruc

Discussions similaires

simplification macro

droopy89

XLDnaute Junior

droopy89

XLDnaute Junior

Pièces jointes

droopy89

XLDnaute Junior

droopy89

XLDnaute Junior

Efgé

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency