Formule Excel : caractere incorrect

Limlight Messages postés 9 Statut Membre -  
f894009 Messages postés 17414 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.
A voir également:

3 réponses

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