Inserer formule dans un macro

[soufernan]

bonjour tous le monde
j'ai cherché dans le forum mais j'ai pas trouvé ce que je cherche
en faite j'aimerai intégré la formule suivante dans la feuille état des sortis:

=SI(ESTTEXTE('Avril-2012'!J3);'Avril-2012'!J3;'Avril-2012'!K3)

dans le macro suivant:

Private Sub ComboBox1_Change()
    Dim lig As Long, sh As Worksheet
    If ComboBox1 = "" Then Exit Sub
    Set sh = Worksheets(ComboBox1.Value)
    For lig = 3 To sh.[A65536].End(xlUp).Row
        'etat  sorties
            Cells(lig + 10, 1) = sh.Cells(lig, 1)
            Cells(lig + 10, 2) = sh.Cells(lig, 2)
            Cells(lig + 10, 3) = sh.Cells(lig, 7) + sh.Cells(lig, 8)
            Cells(lig + 10, 4) = sh.Cells(lig, 10) + sh.Cells(lig, 11)
    Next lig
End Sub

 

[eddy51]

Re : Inserer formule dans un macro

Bonjour,

Si cette formule concerne une seule case pas besoin de la mettre en Macro.
Tu la met tout simplement dans ta case.
Sinon pour moi tu doit la mettre entre le Dim (qui définie tes types) et ta condition If.


PS : (On dit UNE macro)

 

[francedemo]

Re : Inserer formule dans un macro

bonjour,
essaye :

            Cells(lig + 10, 4) = IIf(IsNumeric(sh.Cells(lig, 10)) = True, sh.Cells(lig, 10), sh.Cells(lig, 11))

à+

 

[soufernan]

Re : Inserer formule dans un macro

merci eddy51 pour la remarque
pour la réponse de francedemo Le résultat est toujours le même la formule na pas fonctionné

 

[francedemo]

Re : Inserer formule dans un macro

ha bon...
j'ai essayé,
regarde le fichier joint:

 

[eddy51]

Re : Inserer formule dans un macro

De rien , c'est notre devoir de XLDaunaute .
Avant d'integré ta formule cherche a résoudre tes fautres dans tes macros t'en a minimum une dans chaque

 

[soufernan]

Re : Inserer formule dans un macro

rebonjour francedemo
ça na pas marché,mais merci quand même