Discussion :

[PowerOfSun]

Bonjour,


je souhaite faire la formule suivante en vba:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Range("A1").Formula = "=" & """" & "Texte " & """" & "'Feuil2'!" & Colonne_Lettre & "30" ' colonne_Lettre étant la colonne en lettre

et cela ne fonctionne pas.
je suis perdu avec la quantité de Guillemet..

Avez vous une idée ?

merci !

[joe.levrai]

Bonjour,

Texte est une variable string contenant du texte ?

Un exemple littéral de la formule, telle qu'écrite côté excel, serait le bienvenu

Teste ceci au passage, mais je ne comprend pas de ce fait la finalité de cette formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Range("A1").Formula = "=" & "" & texte & "" & "'Feuil2'!" & Colonne_Lettre & "30"

[PowerOfSun]

Bonjour,

Texte est juste du texte. ce n'est pas une variable
en excel ce serait ="Bonjour M. " & 'Feuil2'!B30

j'ai testé la formule suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Range("A1").Formula = "=" & ""Bonjour M. "" & "'Feuil2'!" & Colonne_Lettre & "30"

et j'ai une erreur de syntaxe.
je ne comprends pas du tout comment ça fonctionne. s'il faut 2, 3 voir 4 Guillemets..

merci

[PowerOfSun]

Problème résolu,

Réponse ici. Il s'agit d'une technique pour s'autocorriger plus facilement.


merci

[Philippe Tulliez]

Bonjour,
Une autre technique que j'utilise pour éviter le doublement des guillemets et la concaténation répétitive en plaçant dans une constante ou une variable, la phrase complète avec des balises pour la partie variable

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub t()
  Const Mask As String = "Cher monsieur, veuillez payer la somme de [Montant] pour le [Date]"
  Dim txt As String
  txt = Replace(Mask, "[Montant]", Format(Range("pAmount").Value, "# ##0 €"))
  txt = Replace(txt, "[Date]", Format(Range("pDate").Value, "dddd d mmmm yyyy"))
  ThisWorkbook.Worksheets("Feuil2").Range("A2").Formula = txt
End Sub

D'autres exemples dans ces deux billets

• Comment écrire une formule plus complexe dans une cellule ?
• Ecrire une formule dans Excel à l'aide d'une procédure VBA