convertir cellule+lettre en cellule+signe Résolu/Fermé

Question

bonjour,

concrètement j'ai des cellules de ce type:

1200023.24 D     
4501.02  C

D débit et C pour credit (dans une seule cellule)

et je veux ce résultat là
 -1200023.24  
+4501.02

afin de pouvoir faire des graphiques.

J'ai essayé bcp de choses:
1-trouver un format personnalisé - pas trouvé
2-convertir, cad, mettre le nbre d'un côté et la lettre de l'autre - pas possible car pas tjrs le même nbre de caractères. deplus, la cellule où il me reste les chiffres sont considérés comme du texte, dc impossible à exploiter après

Je ne sais pas quoi faire:
-trouver la solution pour convertir mes cellules ou
-arriver à faire un graphique avec les données existantes.

merci de votre aide

Mytå · Accepted Answer

Salut le Forum

Autre Formule
SI(ESTERR(CHERCHE("D";B2));1;-1)*SUBSTITUE(SUBSTITUE(SUBSTITUE(B2;"C";"");"D";"");CAR(160);"") 
Mytå

via55 · Answer

Bonjour

Une possibilité :

Avec la valeur en A2 , en B2 la formule pour convertir en nombre :
=SI(DROITE(A2;1)="D";0-(CNUM(GAUCHE(A2;NBCAR(A2)-5))+CNUM(GAUCHE(DROITE(A2;4);2)/100));CNUM(GAUCHE(A2;NBCAR(A2)-5))+CNUM(GAUCHE(DROITE(A2;4);2)/100))

le premier GAUCHE prend les caractères à gauche d'une longueur égale à la longueur de la chaine -5 (le . ,les 2 chiffres décimaux, l'espace et la lettre) et CNUM convertit le résultat en nombre 
le second GAUCHE prend les 2 caractères à gauche des 4 caractères de DROITE (donc prend les 2 décimaux) puis conversion avec CNUM et division par 100
L'addition des 2 redonne le nombre d'origine qu'on soustrait à 0 si lettre D pour obtenir un négatif

Cdlmnt

tontong · Answer

Bonjour,
Une autre possibilité:
Si votre séparateur de décimales est la virgule il faut commencer par remplacer le point par une virgule.
Édition  Remplacer ou en raccourci Ctrl+h.
Données Convertir fonctionne pour un fichier délimité avec l'espace comme séparateur.
En format standard Excel ne peut renvoyer que du texte s'il ne reconnait pas un nombre.

À partir de la valeur avec le bon séparateur de décimales on peut obtenir un nombre négatif pour D avec la formule:
=GAUCHE(A2;NBCAR(A2)-2)*(1-(2*(DROITE(A2;1)="D")))

Raymond PENTIER · Answer

Quant à moi, je n'ai pas compris comment est fait le tableau "D débit et C pour credit (dans une seule cellule)".
Le mieux serait de nous envoyer ton fichier avec https://www.cjoint.com/

Maurice · Answer

Bonjour

tu peux aussi le faire par macro

Sub CONVERT()
NombLig = Cells(Rows.Count, 1).End(xlUp).Row
   For L = 2 To NombLig
      Nomb = Val(Split(Range("A" & L), " ")(0))
      If Trim(Split(Range("A" & L), " ")(1)) = "D" Then
         Range("B" & L).Value = -Nomb
      Else
         Range("B" & L).Value = Nomb
      End If
      Range("B" & L).NumberFormat = "0.00_ ;[Red]-0.00 "
   Next
End Sub

A+

Maurice

pijaku · Answer

Bonjour,

Le souci vient du fait que tes valeurs (par exemple : 73 128,53 C) contiennent un espace au lieu du séparateur de millier. En fait, tu as 73espace128,53...

Qui plus est un espace "insécable".
Alors pour faire ce que tu souhaites, tu dois :
1- sélectionner, dans la barre de formule, un de ces espaces insécables :

Et le copier (Ctrl + C)
2- Sélectionner toute la colonne B puis taper Ctrl+H
dans la case recherche"r : coller (Ctrl + V) (pour y placer ton espace insécable)
dans la case remplacer par : ne rien mettre

3- cliquer sur remplacer tout.

4- Ta formule devient, par exemple et pour faire simple : 
=SI(DROITE(B2;1)="C";GAUCHE(B2;NBCAR(B2)-1)*1;SI(DROITE(B2;1)="D";GAUCHE(B2;NBCAR(B2)-1)*-1;"erreur"))
 
&#127932; Cordialement,
Franck &#127926;

tontong · Answer

Bonjour,
Il y a un autre piège dans votre fichier: le séparateur de milliers n'est pas une espace simple (CAR(32)) mais une espace insécable (CAR(160)).
2 solutions:
1- Sélectionner tout le champ de Solde
Édition Remplacer (ou Ctrl+h) et dans la zone Rechercher taper 0160 en maintenant la touche Alt enfoncée, dans la zone Remplacer par ne rien mettre. Clic sur remplacer tout.
en colonne C recopier la formule donnée au #2.
=GAUCHE(A2;NBCAR(A2)-2)*(1-(2*(DROITE(A2;1)="D")))
2- En colonne C recopier directement la fomule
=GAUCHE(SUBSTITUE(B2;CAR(160);"");NBCAR(B2)-2)*(1-(2*(DROITE(B2;1)="D")))

Tracer le graphique avec les champs des colonnes A et C.
 
Nota: comme quoi un fichier c'est utile ;-)

Raymond PENTIER · Answer

Tu vois, MEL, toutes les complications qui découlent de tes saisies fantaisistes ?
Alors fais comme tout le monde : en colonne B tu saisis tes montants (sans espaces), en colonne C tu saisis "C" ou "D".
Ensuite tout est merveilleusement facile et immédiat ...

Maurice · Answer

bonjour

voila la solution
a toi de voir si ca te convient

Sub Convert()
Application.ScreenUpdating = False
NombLig = Cells(Rows.Count, 2).End(xlUp).Row
   For L = 2 To NombLig
      Test = Replace(Replace(Range("B" & L).Value, Chr(160), ""), ",", ".")
      If Right(Test, 1) = "D" Then
            Range("C" & L).Value = -Val(Test)
         Else
            Range("C" & L).Value = Val(Test)
      End If
      Range("C" & L).NumberFormat = "0.00_ ;[Red]-0.00 "
   Next
Application.ScreenUpdating = True
End Sub

A+
Maurice

Maurice · Answer

Bonjour

voila en retour ton fichier avec la macro

http://cjoint.com/?3JDlitPqx7j

A+

Maurice

Convertir cellule+lettre en cellule+signe

10 réponses

Discussions similaires