Macro remplacer "-" par "fleche" dans une colone

[sim]

Rererere-bonjour!😀

Situation

Sur la feuille en question presence s'une macro supprimant des lignes selon conditions:
Si une cellule de la colonne I est vide
Si une cellule de la colonne N a une valeur negative

Mais avant que la macro effectue cette operation j'aimerai qu'elle remplace
tout les "-" par "→" seulement dans la colone I.
Le nombre de ligne evolura dans le futur...

J'ai essayer a de nombreuses reprises de m'enregistrer, pas moyen de reussir a faire quelque chose qui fonctionne!!!

Alors j'en appel encore, si vous le voulez bien, a votre aide..😱

Merci beaucoup!!

Sim

PS: Ci dessous la Macro cite plus haut, au cas ou.....🙄

Sub supp()
Dim dl As Integer
Dim x As Integer

dl = Range("I65536").End(xlUp).Row
For x = dl To 1 Step -1
If Cells(x, 9).Value = "" Or Cells(x, 14) < 0 Then Rows(x).Delete
Next x
End Sub

Code creer par XLD Barbatruc Robert

 

[bond]

Re : Macro remplacer "-" par "fleche" dans une colone

Il sort d'où ce caractère → ?

Serait-ce le 'à' en police Wingdings ?

 

[sim]

Re : Macro remplacer "-" par "fleche" dans une colone

Bonjour,

Je vais le chercher dans inserer/symbol

Character Code: 2192
From : Unicode(hex)

J'espere que ca vous aidera...

Et merci...🙂

 

[bond]

Re : Macro remplacer "-" par "fleche" dans une colone

Je l'ai !

qu'elle remplace tout les "-" par "→"

Bizarre, Excel sait le traiter avec Rech/Rempl, mais pour VBA c'est un ?

 

[sim]

Re : Macro remplacer "-" par "fleche" dans une colone

He bennnnn, j'etais pas sorti de l'auberge!!!!

 

[bond]

Re : Macro remplacer "-" par "fleche" dans une colone

Avant que quelqu'un d'autre puisse te donner une solution, y a la solution manuelle qui tourne pour sortir de l'auberge... 🙂

 

[job75]

Re : Macro remplacer "-" par "fleche" dans une colone

Bonjour sim, bond,

Je ne vois pas ce que ce remplacement de caractère vient faire avec la suppression des lignes, mais enfin...

Alors pour remplacer "-" par le caractère "à" en police "Wingdings", vous pouvez mettre ce code en fin de macro :

Dim plage As Range
Columns("I").Replace "-", "=1/0", LookAt:=xlWhole
On Error Resume Next
Set plage = Columns("I").SpecialCells(xlCellTypeFormulas, 16)
plage.Value = "à"
plage.Font.Name = "Wingdings"

Nota : "-" est remplacé s'il est le seul caractère dans la cellule.

A+

 

[sim]

Re : Macro remplacer "-" par "fleche" dans une colone

Bond, le forum,

J'ai deja fait la manip manuellement, pour ca pas de probleme!

Le soucy, c'est qu'une fois que je serai parti, et lors de la mise a jour des donnes
l'utilisateur ne saura tres certainement pas faire, ou ne voudra tout simplement pas
s'embeter a faire cette manipulation.....

Donc je m'en remet a vos talents!!

Merci d'avoir essayer!!!

Sim

 

[sim]

Re : Macro remplacer "-" par "fleche" dans une colone

Bonjour Job75, le forum

Voila un petit exemple, anonymise! lol

On s'apercoit qu'il y a d'autre caracteres que "-", des "." notamment

En gros les donnees present dans le tableau doivent etre travailler avant de remplir des tcd sur une autre feuille ( cette autre feuille
est mon rapport/application finale)

Par travailler les donnees j'entend:

Supprimer les lignes avec les conditions citees plus haut dans ce fil.
Et remplacer ces "-" par des fleches dans la colone I

Pourquoi cette derniere etape:
Parce que la colone I represente des flux entre differentes entreprise voila ce que represente les fleches

Dsl j'aurai peut etre du expliquer cela dans mon post de depart

Merciii beaucoup

 

[job75]

Re : Macro remplacer "-" par "fleche" dans une colone

Re,

Mais finalement je pense que ce code est moins risqué :

Dim plage As Range
Columns("I").Replace "-", "#N/A", LookAt:=xlWhole
On Error Resume Next
Set plage = Columns("I").SpecialCells(xlCellTypeConstants, 16)
plage.Value = "à"
plage.Font.Name = "Wingdings"

En effet, il peut y avoir des formules qui renvoient une valeur d'erreur en colonne I...

A+

 

[job75]

Re : Macro remplacer "-" par "fleche" dans une colone

Re,

OK, vu votre post #9.

Vous ne croyez pas que ceci pourrait amplement suffire :

Columns("I").Replace "-", "--->", LookAt:=xlPart

Car introduire un caractère spécial dans du texte, pas évident en VBA, il me semble 😕

A+

 

[sim]

Re : Macro remplacer "-" par "fleche" dans une colone

Job75, Bond, le Forum

Si j'avais vu ton post #7 d'ou mon post#9!! Mais certainement petit decalage...alors pardon

J'ai essayer mais rien ce passe comme je suis plus qu'un profane j'ai coller ton code, dans la macro de base tel que:

Sub supp()
Dim dl As Integer
Dim x As Integer

dl = Range("I65536").End(xlUp).Row
For x = dl To 1 Step -1
If Cells(x, 9).Value = "" Or Cells(x, 13) < 0 Then Rows(x).Delete
Next x

Dim plage As Range
Columns("I").Replace "-", "#N/A", LookAt:=xlWhole
On Error Resume Next
Set plage = Columns("I").SpecialCells(xlCellTypeConstants, 16)
plage.Value = "à"
plage.Font.Name = "Wingdings"

End Sub

Donc comme je l'ai dit rien ne se passe lorsaue je lance la macro, (compte tenue du fait que la macro avait precedemment
supprimer certaines ligne, je ne me suis concentre que sur les changement de caracteres en colone I)

En gros je suis completement perdu....🙁

 

[sim]

Re : Macro remplacer "-" par "fleche" dans une colone

Job75,

Ne pas considerer Post #12

Comme vous le dites, votre solution est amplement suffisant!!!! Je dirait meme plus c'est mieux!!

Probleme resolu

Merci beaucoup!