creer un espace

S

Softmama

XLDnaute Accro

• 2 Mai 2012

• #2

Re : creer un espace

Bonjour,
Applique ce format de cellule sur la colonne A:
####" "##" "##

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 2 Mai 2012

• #3

Re : creer un espace

Bonjour reve,

ton fichier en retour

à+
Philippe

Edit: Bonjour Softmama, j'ai "liké" ton applicationCaller sur l'autre post

 

Pièces jointes

• 111.xls

  19 KB · Affichages: 37
• 111.xls

  19 KB · Affichages: 46
• 111.xls

  19 KB · Affichages: 41

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 2 Mai 2012

• #4

Re : creer un espace

MERCI TRES BIEN pour formule
####" "##" "## ne semble pas pas fonctionner

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 2 Mai 2012

• #5

Re : creer un espace

bonjour tous 🙂🙂🙂
par macro??

Code:

Sub es()
 Dim i As Long
 Application.ScreenUpdating = False
 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 Cells(i, 1) = Format(Cells(i, 1), "0#"" ""##"" ""##")
 Next
End Sub

ps :bisous Pierre jean 🙂🙂🙂🙂 bien mieux ton code plus simple je changerais "0# ## ###" par "0# ## ##"

 

Dernière édition: 2 Mai 2012

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 2 Mai 2012

• #6

Re : creer un espace

Bonjour à tous ( et bises à Laeticia)

Code:

Sub remplace()
Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "0# ## ###"
Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub

 

Vote positif 0 Vote négatif