Formule Excel : caractere incorrect

Limlight Messages postés 9 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,
    doublez les ":
    formule = "=STXT(G2;1;TROUVE(""_"";G2;1)-1)"
    0
  2. Limlight Messages postés 9 Statut Membre
     
    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
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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