[VBA] Coller une expression entre guillemets dans une cellule

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2007

• #2

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)

 

Dernière édition: 22 Octobre 2007

Vote positif 0 Vote négatif

A

Ayack

Guest

• 22 Octobre 2007

• #3

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.

 

Dernière modification par un modérateur: 22 Octobre 2007

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 22 Octobre 2007

• #4

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

Bonjour

Essayes

(Réalisé avec l'enregistreur)

Code:

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

 

Vote positif 0 Vote négatif

A

Ayack

Guest

• 22 Octobre 2007

• #5

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...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2007

• #6

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 22 Octobre 2007

• #7

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

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

Code:

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)

 

Vote positif 0 Vote négatif

A

Ayack

Guest

• 22 Octobre 2007

• #8

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.

 

Vote positif 0 Vote négatif