Discussion :

[HankMoody]

Bonjour à tous,

J'ai eu beau chercher sur tous les forums imaginables, impossible de trouver une fonction que me renvoie les caractères avant un caractère donné.
Exemple: je veux renvoyer les caractères avant une virgule: 120,98 renvoie 120.

Merci d'avance.

[papouclo]

Si dans A1, on a : 120,98

Code :

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

=GAUCHE(A1;TROUVE(",";A1)-1)

renvoie 120
Cordialement

[HankMoody]

Merci, et en VBA connaissez vous la syntaxe ?

[mercatog]

Si tu veux avoir la partie gauche d'un mot par rapport à une chaine

Code :

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

1
2
3
4
5
6
7
Function PartieGauche(ByVal Str As String, ByVal Sep As String) As String
Dim n As Byte
 
n = InStr(Str, Sep)
If n > 0 Then Str = Left(Str, n - 1)
PartieGauche = Str
End Function

Sinon, si tu veux prendre la partie entière d'un nombre, tu as la fonction ENT(mmm), en vba int(mmm)

[HankMoody]

Effectivement avec la partie entière c'est plus simple !
Enfin je voudrais une fonction VBA qui me renvoie tout sauf le dernier caractère. Exemple pour 90,80 je voudrais que ça me renvoie 90,8.

[pc75]

Bonjour

Code :

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

1
2
3
Valeur = 90,80
MaValeur = str(Valeur)
Chaine = left(Mavaleur, Len(MaValeur) - 1)