Copie de polynôme si non vide

Bonsoir à tous,

Super forum qui m'aide sur mes codes VBA alors merci à tous

Je bloques sur la copie d'une formule de polynomes de degré 20 et je souhaites copier ma formule tant que mes cellules des colonnes D et G ne sont pas vides. Si oui alors pas de recopie de ma formule en colonne H (en rouge dans le fichier les cellules indésirables). j'ai supprimé des cellules de "H" pour gagner en poids sur ma PJ.

Merci de votre aide

Cdlt

Bonjour,

à tester :

Sub macro1()
    Dim DernLigne1, DernLigne2 As Integer
    ' Sheets("Feuil1").Select
    DernLigne1 = Range("D" & Rows.Count).End(xlUp).Row
    DernLigne2 = Range("G" & Rows.Count).End(xlUp).Row
    DernLigne1 = Application.Min(DernLigne1, DernLigne2)
    Range("H2").Resize(DernLigne1 - 1).Formula = "=pp0*D2^0*G2^0+_pp1*D2^1*G2^0+_pp2*D2^0*G2^1+_pp3*D2^2*G2^0+_pp4*D2^1*G2^1+_pp5*D2^0*G2^2+_pp6*D2^3*G2^0+_pp7*D2^2*G2^1+_pp8*D2^1*G2^2+_pp9*D2^0*G2^3+_pp10*D2^4*G2^0+_pp11*D2^3*G2^1+_pp12*D2^2*G2^2+_pp13*D2^1*G2^3+_pp14*D2^0*G2^4+_pp15*D2^5*G2^0+_pp16*D2^4*G2^1+_pp17*D2^3*G2^2+_pp18*D2^2*G2^3+_pp19*D2^1*G2^4+_pp20*D2^0*G2^5"
End Sub

eric

Bonjour,

Merci pour ce code eriiic, il fonctionne super bien.

Je clos le sujet