Caractère * ne représentant pas une chaîne quelconque [Résolu]

[DeaD78]

Bonjour à tous,

Code :

1
2
3
4
Range("A1:T1").Select
    Selection.Replace What:="*1.000", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

J'effectue un replace de cette façon. Mon but est d'effacer la chaîne *1.000 lorsqu'elle se présente. Cependant, avec ce bout de code, on efface la chaîne 1.000 lorsqu'elle est trouvée peu importe ce qu'il peut y avoir avant (et ce qu'il y a avant est aussi effacé).

Bref, c'est le cas classique du caractère * représentant une chaîne de caractères quelconque.

Ma question est donc la suivante : comment écrire * pour que cela ne représente pas une chaîne de caractères quelconque mais bien le caractère * ?

J'avais pensé à

Code :

Chr(42) & "1.000"

mais le résultat est le même que dans le cas précédent (d'ailleurs, je ne suis même pas sûr que 42 soit le bon code pour le caractère *).

Terminons par un petit exemple au cas où je n'ai pas été assez clair. Pour le moment, dans une de mes cellules j'ai 71.0004 et *1000 dans un autre. Dans l'état actuel des choses, je me retrouve, après le lancement de la macro, avec 4 et une cellule vide. Je voudrais donc avoir 71.0004 (aucune modification car pas de chaîne *1.000) et une cellule vide.

Merci d'avance

[cafeine]

Hello,

essaie de doubler le * exemple "**1.000"

[DeaD78]

Salut cafeine,

Je viens de tester à l'instant et cela ne change rien

[Fvandermeulen]

Salut,
Je crois tenir une alternative...dépendra de tes données effectives...

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub testRemplace()
 
Dim cel As Range, Plage As Range
 
Set Plage = Sheets("sheet2").Range("A1:T1")
 
Plage.Select
    For Each cel In Plage
        If Left(cel.Value, 1) = "*" Then cel.Replace What:="*1.000", Replacement:=""
    Next
End Sub

Sinon, j'imagine que ton "1.000" est stocké en format texte alors qu'il devrait être en nombre, ça pourrait être une autre piste.

A+

[fgiambelluco]

Bonjour
J'essayerai bien un truc comme ça :

Code :

1
2
3
4
5
6
    Range("A1:T1").Select
    For Each MaCel In Selection.Cells
        If MaCel.Value="*1.000" then
            MaCel.Value=""
        End If
    Next

--------------
Frédéric
http://www.access-developpement.com

[mapeh]

Bonjour,

essaie avec cette syntaxe :

Code :

Range("A1:T1").Replace What:="~*1.000", Replacement:="", LookAt:=xlPart

[DeaD78]

Merci à tous !

Les solutions de Fvandermeulen et de mapeh fonctionnent bien !