Formule Excel : caractere incorrect Fermé

Question

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.

f894009 · Answer

Bonjour,
doublez les ":
formule = "=STXT(G2;1;TROUVE(""_"";G2;1)-1)"

Limlight · Answer

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

f894009 · Answer

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

Formule Excel : caractere incorrect

3 réponses

Discussions similaires