Discussion :

[mikey91]

Bonjour je souhaiterais par macro remplacer mes , de type

Code :

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

modifications (agr‚ment) bases de suivi\modification

ou encore

Code :

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

Infos\Veille r‚glementaire

lorsque je lance un remplacement manuelle pour remplacer mes , il ne me les trouve pas puisqu'elle appartienne à une chaine dans une cellule ...

quelqu'un aurais une idée ?

par ailleur la macro automatiquement créé donne ceci

Code :

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

1
2
    Cells.Replace What:=",", Replacement:="é", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Ce qui ne fonctionne pas même en rajoutant des *,* autour de la virgule

[pgz]

Bonjour.

Voici une procédure qui devrait faire ce que tu attends

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub subRemplaceVirgulesDansZone(ByVal maSelection As Excel.Range)
Dim i As Integer, j As Integer
 
For i = 1 To maSelection.Rows.Count
    For j = 1 To maSelection.Columns.Count
        maSelection(i, j) = Replace(maSelection(i, j), ",", "é")
    Next j
Next i
 
End Sub

Pour l'appeler, par exemple

Code :

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

1
2
3
4
5
 
 
Sub essai()
    Call subRemplaceVirgulesDansZone(Application.Selection)
End Sub

Bon courage,

PGZ

[Pierre Fauconnier]

Bonjour

J'ai cru lire entre les lignes que tu voulais utiliser VBA parce que le remplacement manuel ne fonctionnait pas...

Il devrait suffire de vérifier les options de Edition/Remplacer et de décocher Totalité du contenu de la cellule...

Cela t'éviterait de créer une procédure VBA rien que pour cela...

[myDearFriend!]

Bonsoir

Si j'en crois ce que dit l'ami mikey91...

par ailleur la macro automatiquement créé donne ceci

Code :

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

1
2
    Cells.Replace What:=",", Replacement:="é", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Ce qui ne fonctionne pas même en rajoutant des *,* autour de la virgule

... Que ce soit manuellement ou par macro, il semble que ça ne fonctionne pas.

J'en déduirais donc que le caractère fautif n'est pas une "vraie" virgule (code ANSI 44), mais le caractère correspondant au code ANSI 130.

mikey91, je te conseillerais de refaire ta procédure manuelle de remplacement de caractères en utilisant la combinaison de touches ALT + 0130 (depuis le pavé numérique) au lieu de taper le caractère "virgule" pour la recherche...

Par macro, cela donnerait :

Code :

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

1
2
    Cells.Replace What:=Chr(130), Replacement:="é", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cordialement,

Didier_mDF

[mikey91]

okai c'était ça... le code était pas une "vrai virgule" mais un code ANSI 130
myDearFriend! à vu juste Merci à vous tous pour les réponses problème resolu