Insertion de formule en VBARésolu

Question

bonjour à tous et merci d'avance à ceux qui liront ces lignes.
Voici ma macro elle bug au moment du passage de la varriable bob vers la cellule. Je n'ai aucune idée d'ou peu venir le bug, si quelqu'un peu me dire ou chercher ca serais bien cool

merci d'avance.


Sub Macro1()

Dim bob As String
bob = Chr(61) & "nb" & Chr(46) & "si" & Chr(40) & "G2:G" & k - 1 & ";" & Chr(34) & "TRAITE" & Chr(34) & Chr(41)


For k = 1 To 1
Cells(k + 3, 1).Select
Selection.NumberFormat = "General"
Cells(k + 3, 1).Text = bob
Next k

End Sub

Renfield · Accepted Answer

le code de ta formule est tout simplement faux....



Sub Macro1()

    For k = 1 To 1

        Cells(k + 3, 1).Select

        Selection.NumberFormat = "General"

        Cells(k + 3, 1).FormulaLocal = "=NB.SI(G2:G" & k + 2 & ";""TRAITE"")"

    Next k

End Sub

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

tu cherches a modifier la formule, utilises donc :



Cells(k + 3, 1).Formula = "=nb.si(G2:G-1;""TRAITE"")"


Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

cs_steed12 · Answer

ca marche pas j'ai comme message d'erreur :
erreur d'éxécution 1004
erreur définit par l'application ou par l'objet

voici la macro modifié
Sub Macro1()

Dim bob As String
bob = Chr(61) & "nb" & Chr(46) & "si" & Chr(40) & "G2:G" & k - 1 & ";" & Chr(34) & "TRAITE" & Chr(34) & Chr(41)


For k = 1 To 1
Cells(k + 3, 1).Select
Selection.NumberFormat = "General"
Cells(k + 3, 1).Formula = bob
Next k

End Sub

aieeeuuuuu · Answer

salut

non, la formule m'a l'air bonne, mais ca n'est pas formula qu'il faut utiliser, mais FormulaLocal

donc :
Cells(k + 3, 1).FormulaLocal = bob

ca doit fonctionner

Renfield · Answer

j'ai bien indiqu&#233; FormulaLocal...



quant &#224; la formule, elle est bel et bien fausse :



bob = Chr(61) & "nb" & Chr(46) & "si" & Chr(40) &
"G2:G" & k - 1 & ";" & Chr(34) & "TRAITE" & Chr(34)
& Chr(41)



donne :


=NB.SI(G2:G-1;"TRAITE")


Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

cs_steed12 · Answer

Merci, en effet avec Cells(k + 3, 1).FormulaLocal = bob ca marche nikel.

Merci beaucoup !!!

Steed

aieeeuuuuu · Answer

olala oui...
ca sent la fatigue tout ca

d&#233;sol&#233; Renfield, je m'en vais me reposer un peu moi :)

Renfield · Answer

y'a pas de mal...

Insertion de formule en VBA

8 réponses

Discussions similaires