[VBA] Coller une expression entre guillemets dans une cellule

[Ayack]

Bonjour,

A l'aide d'une macro, je souhaite coller la formule suivante dans une cellule :

=NB.SI( + TextBox1 + !F8:F10000;"Pas de contrat")+NB( + TextBox1 + !F8:F10000)

Le + TextBox1 + étant le nom de la page ce qui fonctionne sans problème pour d'autres formules.

Mon problème est que je ne parviens pas à afficher l'expression "Pas de contrat" avec les guillemets dans la cellule ça bug tout le temps.

J'ai essayé:

ActiveCell.Value = "=NB.SI(" + TextBox1 + "!F8:F10000;" & """" & "Pas de contrat" & """" & ")+NB(" + TextBox1 + "!F8:F10000)"

ActiveCell.Value = "=NB.SI(" + TextBox1 + "!F8:F10000;" & ""Pas de contrat"" & ")+NB(" + TextBox1 + "!F8:F10000)"

Et d'autres bidouillages du style sans résultat.

Ce serait donc super sympa de m'aider. Merci d'avance.

 

[Staple1600]

Re : [VBA] Coller une expression entre guillemets dans une cellule

Bonjour
*

Essaye avec Chr(34) à la place des guillemets

Pour test ce a fonctionne , teste la ligne ci-dessous
ActiveCell.Value = Chr(34) & "Pas de contrat" & Chr(34)

 

[Ayack]

Re : [VBA] Coller une expression entre guillemets dans une cellule

J'ai essayé ça :

ActiveCell.Value = "=NB.SI(" + TextBox1 + "!F8:F10000;Chr(34)Pas de contratChr(34))+NB(" + TextBox1 + "!F8:F10000)"

Mais ça ne marche toujours pas...

[edit] En revanche ActiveCell.Value = Chr(34) & "Pas de contrat" & Chr(34) fonctionne bien.

 

[Banzai64]

Re : [VBA] Coller une expression entre guillemets dans une cellule

Bonjour

Essayes

(Réalisé avec l'enregistreur)

    ActiveCell.FormulaR1C1 = _
        "=COUNTIF(TextBox1!R10C6:R10002C6,""Pas de contrat"")+COUNT(TextBox1!R10C6:R10002C6)"

 

[Ayack]

Re : [VBA] Coller une expression entre guillemets dans une cellule

Désolé mais ça ne marche pas du tout, ça m'ouvre une fenêtre de choix de fichier...

 

[Staple1600]

Re : [VBA] Coller une expression entre guillemets dans une cellule

Re


Pourquoi tu appelles tes feuilles (ou onglets) TextBox1?

comme le nom d'une textebox dans uun USerform

 

[Banzai64]

Re : [VBA] Coller une expression entre guillemets dans une cellule

Re
Je viens de tester (Avec une feuille nommée TextBox1)

Sub teste()
Range("b3").Select

    ActiveCell.FormulaR1C1 = _
        "=COUNTIF(TextBox1!R8C6:R1000C6,""Pas de contrat"")+COUNT(TextBox1!R8C6:R1000C6)"
End Sub

En cellule B3 j'obtiens :
=NB.SI(TextBox1!$F$8:$F$1000;"Pas de contrat")+NB(TextBox1!$F$8:$F$1000)

 

[Ayack]

Re : [VBA] Coller une expression entre guillemets dans une cellule

Désolé, mais j'avais oublié de préciser que TextBox1 était une variable définie dans l'userform de la macro.

En fait, je pense pouvoir faire autrement si je réussi, sans macro, à afficher le nom de la feuille dans une cellule. Je crois qu'il y a une formule pour cela, mais quelqu'un saurait-il laquelle car je ne trouve pas...

Merci.