Formule Excel : caractere incorrect

Limlight -  
Bonjour,

Je cherche désespérément à mettre la formule suivante dans une cellule excel mais une erreur se produit au niveau du underscore lorsque je lance la compil.

Dim formule As String
formule = "=STXT(G2;1;TROUVE("_";G2;1)-1)"

A quoi est ce du ?

Merci de votre réponse.

3 réponses

  1.  f894009
    Bonjour,
    doublez les ":
    formule = "=STXT(G2;1;TROUVE(""_"";G2;1)-1)"
    0
    1. Limlight Auteur
      Oui, ça m'accepte bien la formule par contre dans ma boucle for une erreur se produit, une idée ?

      Je souhaiterais remplir la cellule (X, 5) à partir de ma cellule (FX) en extrayant la chaine de caractere avant le "_" de celle ci.

      Dim nbCells As String
      nbCells = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A"))

      For i = 2 To nbCells
      Dim formule As String
      formule = "=STXT(F" & i & ";1;TROUVE(""_"";F" & i & ";1)-1)"
      Cells(i, 5) = formule
      Next i

      Merci de votre réponse
      0
      1. f894009
        Re, 

        Sub test()
    Dim nbCells As Long
    With Feuil1
        nbCells = Application.WorksheetFunction.CountA(.Range("$A:$A"))
        For i = 2 To nbCells
            .Cells(i, 5).FormulaLocal = "=STXT(F" & i & ";1;TROUVE(""_"";F" & i & ";1)-1)"
        Next i
    End With
End Sub
        0