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

Phil69970

XLDnaute Barbatruc

• 13 Janvier 2023

• #2

Bonjour @ivan27

Je te propose

VB:

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

 

Vote positif 0 Vote négatif

Solution

I

ivan27

XLDnaute Occasionnel

• 13 Janvier 2023

• #3

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 13 Janvier 2023

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 13 Janvier 2023

• #5

Bonjour vgendron,
Merci pour ta proposition
Ivan

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 13 Janvier 2023

• #6

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 &

VB:

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

 

Vote positif 0 Vote négatif

J

jm.andryszak

XLDnaute Occasionnel

• 13 Janvier 2023

• #7

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

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 13 Janvier 2023

• #8

'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

 

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 13 Janvier 2023

• #9

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

 

Pièces jointes

• LAMBDA Substituteur text.xlsx

  47.8 KB · Affichages: 3

Vote positif 0 Vote négatif