Microsoft 365 Remplacement de l'esperluette "&" par "et"

[ivan27]

Bonjour à tous,

Pour remplacer dans une liste l'esperluette par ''et'' j'utilise ceci :

Sub test()
 For Each c In Range("a1", "a" & Range("a65000").End(xlUp).Row)
  c.Value = Replace(c.Value, "&", "et")
 Next c
End Sub

Je viens de m'apercevoir que ce bout de code supprime les points ''.'' placés après des chiffres. Exemple en pièce jointe.

Auriez-vous une solution pour faire le même travail en conservant les points SVP ?

Bien cordialement et bonne journée

Ivan

 

[Phil69970]

Bonjour @ivan27

Je te propose

Sub test()
For Each c In Range("a1", "a" & Range("a65000").End(xlUp).Row)
    c.NumberFormat = "@"
    c.Value = Replace(c.Value, "&", "et")
Next c
End Sub

Merci de ton retour

@Phil69970

 

[ivan27]

Re bonjour tout le monde,
Merci Phil69970.
Si on ne change pas le format de la cellule, c'est normal ce remplacement de point par une virgule ?
Ivan

 

[vgendron]

Bonjour

ce n'est pas ta macro qui supprime directement les points, mais Excel lorsqu'il convertit le contenu de la cellule lorsqu'il détecte qu'il s'agit d'un nombre

si tu veux garder le point après les nombres, il faut traiter tout sous forme de texte==> Donc appliquer le format texte à la zone à traiter

Sub test()
Set zone = Range("a1", "a" & Range("a65000").End(xlUp).Row)
zone.NumberFormat = "@"
 For Each c In zone
  c.Value = CStr(Replace(c, "&", "et"))
 Next c
End Sub

 

[ivan27]

Bonjour vgendron,
Merci pour ta proposition
Ivan

 

[Lolote83]

Bonjour,
Le fait que le point s'enlève, cela concerne uniquement les nombres. Si tu valides à la mano la cellule A5, tu remarqueras que celle-ci supprime le point car aucune décimale
Donc pour palier à ceci, je teste si la cellule est numérique et dans ce cas je ne traite pas le &

Sub test()
    For Each c In Range("a1", "a" & Range("a65000").End(xlUp).Row)
        If IsNumeric(c.Value) = False Then
            c.Value = Replace(c.Value, "&", "et")
        End If
    Next c
End Sub

OUPS ! Hola, il y a déjà du monde. Bonjour à tous

@+ Lolote83

 

[jm.andryszak]

Bonjour
A tester, je ne vois pas d'anomalie.
Option Explicit
Sub Test()
Dim Derniereligne
Dim c As Range
Derniereligne = Range("a" & Rows.Count).End(xlUp).Row

Range("b1:b" & Derniereligne).NumberFormat = "@"

For Each c In Range("a1" & ":" & "a" & Derniereligne)
If InStr(1, c.Value, "&") > 0 Then
c.Offset(, 1).Value = Replace(c.Value, "&", "et")
Else
c.Offset(, 1).Value = c.Value
End If
Next
End Sub

 

[Oneida]

'Boucle seulement sur les cellules concernees
Sub test()
With Worksheets("Feuil1")
Nb = Application.CountIf(.Columns(1), "*&*") 'nombre de fois
If Nb > 0 Then
lig = 1
For n = 1 To Nb
.Range(.Columns(1).Find("*&*", .Cells(lig, 1), , xlWhole).Address) = Replace(.Range(.Columns(1).Find("*&*", .Cells(lig, 1), , xlWhole).Address), "&", "et") 'remplacement
Next n
End If
End With
End Sub

 

[merinos]

Bonjour le Forum,

Dans Excel 365 les fonctions LAMBDA permettent d'effectuer plein de substitutions...


Voici un exemple développé précédement.



A+

Merinos