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)

[HankMoody]

En fait j'ai tout bêtement converti le format de la cellule en standart, comme ça il ne m'affiche pas les 0 en trop.
Mais j'ai maintenant un dernier problème, j'aimerais afficher un nombre de la forme 120,2 sous la forme 120.2 ; j'utilise donc la fonction replace

Code :

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

Cells(1,1).value = replace(cells(1,1).value,",",".")

Mais rien à faire il ne me remplace rien !

[Philippe Tulliez]

Le séparateur décimale dépend d'une option d'Excel qui utilise le séparateur système qui est un point ou une virgule soit un caractère à modifier dans les options avancées d'excel. C'est la même chose pour le séparateur de millier

[mercatog]

Quel est le séparateur décimal de ton poste de travail, le point ou la virgule?

[HankMoody]

Comme puis-je voir quel est mon séparateur décimal?

[mercatog]

Sur une nouvelle feuille avec cellule au format standard, écris 123,56 et dans une autre 123.56

l'une sera alignée à gauche par défaut (comme du texte) et l'autre alignée à droite (un nombre)

Le séparateur décimal est celui ou le contenu est aligné à droite.


Sinon, Panneau de configuration, Option régionales

[Philippe Tulliez]

Bonjour,

Comme puis-je voir quel est mon séparateur décimal?

Dans une cellule, tu tapes un nombre suivi du point de ton pavé numérique.
Pour visualiser l'option.
Pour office 2010
Onglet [Fichier] Option
Dans la boîte de dialogue Options Excel, sélectionner Options avancées Première partie Option Edition Utiliser le séparateur système est coché par défaut. En le décochant, il est possible de modifier le caractère que l'on souhaite avoir.

[HankMoody]

Mon point du clavier numérique me donne une virgule. J'ai excel 2003, et le chemin que vous m'indiquez n'existe pas chez moi !

[Philippe Tulliez]

Si lorsque tu tapes un point sur le pavé numérique c'est une virgule qui vient c'est que l'option système est configurée ainsi.
Pour la version 2003 Outils/Options... dans la boîte de dialogue Options, sélectionner l'onglet [International]

[mercatog]

Ton séparateur décimal est la virgule. le séparateur décimal de vba est toujours le point

Donc en vba si tu écris 2.1, il sera automatiquement transformé en 2,1 lors de son transfert vers la feuille excel

Donc, ton code, il va transformer la virgule par le point et lors du transfert de la donnée le point deviendra virgule.

La question est pourquoi tu veux transformer la virgule par le point?

[HankMoody]

Je dois créer un caractère en fonction de données d'autres cellules (assemblage de mots et de nombres) pour qu'il est une forme qu'une fonction puisse reconnaitre. Et si le nombre est à virgule il doit apparaitre avec un point sinon la fonction ne reconnait pas le mot.
Mais j'ai régler mon problème en remplaçant la virgule une fois le mot créé, et là ça fonctionne !
Merci à tous.