Discussion :

[gui-llaume]

Hello,

j'ai une liste de cellule avec des montant en € du type : 30,41espace€

Les cellules sont reconnues en format texte

J'ai essayé un recherche et remplace sur espace€, j'ai un message qui me dit "Excel a détecter que votre recherche contient des symboles de mise en forme, modifiez les options de recherche comme suit : recherche dans valeurs"

Mon problème c'est que dans la liste déroulante , je n'ai comme choix que recherche dans formule.

Une idée ?

[Thautheme]

Bonjour Gui-llaume, bonjour le forum,

Le code ci-dessous pour la cellule active à adapter pour ta liste...

Code :

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

1
2
3
4
Sub Macro1()
ActiveCell.Value = ActiveCell.Value * 1
ActiveCell.NumberFormat = "#,##0.00 $"
End Sub

[gui-llaume]

Merci ta requête fonctionne.
je suis surpris cependant qu'on puisse pas le faire autrement que par macro. j'ai essayé de multiplie par 1 dans une autre cellule ou par un collage spécial mais ca ne fonctionne pas plus.

[Thautheme]

Bonjour Gui-llaume, bonjour le forum,

Si ça marche par VBA, ça devrait marcher en multipliant par 1 dans une autre cellule puis en mettant un format monétaire. Mais sans fichier exemple difficile d'en dire plus...

[gui-llaume]

Salut Thautheme,

je t'envoie le fichier exemple, dis moi ce que tu en penses ...
les montants à convertir sont ici en jaunes.

Copie de TEL export.xlsx

[mercatog]

En fait, tu n'as pas des espaces mais des espaces insécables Chr(160)€

Tu peux le supprimer en utilisant dans une autre colonne

Code :

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

=SUBSTITUE(G6;CAR(160);"")

Que tu peux copier en valeur en colonne initiale


Ou bien, tu copie cet espace insécable et tu le colonne dans ton fameux Chercher/Remplacer

[gui-llaume]

super , merci !
comment as tu procédé pour faire la différence entre espace et caractère insécable ?

[Thautheme]

Bonjour Gui-llaume, bonjour le forum,

Le problème vient du fait que l'espace devant le symbole de l'euro n'est pas un espace normal (Chr(32)) mais un autre espace (Chr(160)). C'est pour cela qu'en multipliant ça ne marche pas. Deux solutions possibles, sans ou avec VBA.
Sans VBA
Tu edites n'importe quelle cellule jaune avec F2. Tu sélectionnes uniquement l'espace et tu le copies. Tu valides avec [Enter]. Tu sélectionnes la colonne G et tu fais Rechercher/Remplacer ([Ctrl]+[H]). Dans le champ Rechercher tu colles ([Ctrl]+[V]), dans le champ Remplacer tu tapes un espace. Tu fais Remplacer tout. Après tu pourras multiplier par 1.
Avec VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim CEL As Range 'déclare la variable CEL (CELlule)
 
Set O = Sheets("Feuil1") 'définit l'onglet O
Set PL = O.Columns(7).SpecialCells(xlCellTypeConstants) 'définit la plage PL
For Each CEL In PL 'boucle sur toutes les cellule CEL de la plage PL
    CEL.Value = Replace(CEL.Value, Chr(160), Chr(32)) 'remplace le "faux" espace par un espace normal
    CEL.Value = CEL.Value * 1 'multiplie la cellule par 1
    CEL.NumberFormat = "#,##0.00 $" 'formate la cellule
    CEL.HorizontalAlignment = xlRight 'alignà droite
Next CEL 'prochaine celllule de la boucle
End Sub

[mercatog]

Il suffirait de laisser vide le champs remplacer. éventuellement reformater la colonne

Tu édites n'importe quelle cellule jaune avec F2. Tu sélectionnes uniquement l'espace et tu le copies. Tu valides avec [Enter]. Tu sélectionnes la colonne G et tu fais Rechercher/Remplacer ([Ctrl]+[H]). Dans le champ Rechercher tu colles ([Ctrl]+[V]), dans le champ Remplacer tu laisse vide

[Thautheme]

Bonjour le fil, bonjour le forum,

Oui c'est vrai Mercatog ! Comme quoi, quand on a la tête dans le guidon...