XL 2016 VBA boucle supprimer zéro

[Regueiro]

Bonsoir Le Forum
Pourriez-vous me donner un coup de main pour supprimer les Zéros
2017.010 OK
2107.0110 NON = 2017.110

C'est à dire si 4 chiffres après le point enlever le zéro après le point
Les Cellules sont au format standard suite à une importation par requête

For each Cel in Range("Tableau2[N°" & Chr(10) & "CHANTIER]")

Merci

 

[zebanx]

Bonjour Regueiro,

Adapté à cette configuration (3 ou 4 chiffres derrière le "_" en partant de la droite).

Cdlt
zebanx

 

[Chris24]

Bonjour Regueiro, zebanx

Un exemple par macro à adapter suivant tes besoins

Cdt

 

[Papou-net]

Bonjour Regueiro, zebanx, Chris24,

Puisque je l'ai fait, je le transmets (pas trouvé de code plus court)

Private Sub CommandButton1_Click()
For each Cel in Range("Tableau2[N°" & Chr(10) & "CHANTIER]")
p = InStr(cel, ".")
If p = Len(cel) - 4 And Mid(cel, p + 1, 1) = "0" Then cel.Value = CStr(Left(cel, p) & Right(cel, 3))
Next
End Sub

Cordialement.