Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel transformer 0144544544 en 01 44 54 45 44 ...

transformer 0144544544 en 01 44 54 45 44 ...

14 réponses
Avatar
Stéphane
Bonjour,

J'ai une base avec des téléphones écris ainsi :

0154544545
0154544546
0154544545
0154544546
0154544545
0154544545
0154544545
0154544545
...

etc

J'aimerais les transformer ainsi automatiquement : (mettre un espace tout
les 2 caractères) ...

01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
...

Merci pour votre réponse,

Stéphane.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
garnote
Salut Stéphane,


Format / Cellule... / Nombre / Spécial
Numéro de téléphone.

Serge

"Stéphane" a écrit dans le message de news:

Bonjour,

J'ai une base avec des téléphones écris ainsi :

0154544545
0154544546
0154544545
0154544546
0154544545
0154544545
0154544545
0154544545
...

etc

J'aimerais les transformer ainsi automatiquement : (mettre un espace tout
les 2 caractères) ...

01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
...

Merci pour votre réponse,

Stéphane.




Avatar
Daniel.j
Applique ce format:
0#" "##" "##" "##" "##
Daniel
http://dj.joss.free.fr/format.htm

"Stéphane" a écrit dans le message de news:

| Bonjour,
|
| J'ai une base avec des téléphones écris ainsi :
|
| 0154544545
| 0154544546
| 0154544545
| 0154544546
| 0154544545
| 0154544545
| 0154544545
| 0154544545
| ...
|
| etc
|
| J'aimerais les transformer ainsi automatiquement : (mettre un espace tout
| les 2 caractères) ...
|
| 01 54 54 45 45
| 01 54 54 45 45
| 01 54 54 45 45
| 01 54 54 45 45
| 01 54 54 45 45
| 01 54 54 45 45
| 01 54 54 45 45
| ...
|
| Merci pour votre réponse,
|
| Stéphane.
|
|
Avatar
Pierre Fauconnier
Bonjour

Cinq solutions :
1. le format personnalisé 00" "00" "00" "00" "00
Ce format affiche le numéro de téléphone avec les espaces. La valeur de la
cellule n'est pas modifiée, et il faut que la donnée soit une donnée
numérique...
2. Toujours avec une donnée numérique, tu peux, pour une donnée en A1,
utiliser en B1 la formule =TEXTE(A1;"00"" ""00"" ""00"" ""00"" ""00"),
l'appliquer à ta plage, puis copier-coller spécial valeurs, puis recopier le
tout en A. Attention, la donnée doit être numérique
3. Pour une donnée Texte, tu peux, en B1, utiliser
=STXT(A1;1;2)&" "&STXT(A1;3;2)&" "&STXT(A1;5;2)&" "&STXT(A1;7;2)&"
"&STXT(A1;9;2) puis copier-coller spécial valeur et remplacer
4. Par macro, avec des données numériques, tu peux créer la macro suivante
Sub AfficherTelephoneNumerique()
Dim Cellule As Range
For Each Cellule In Selection
Cellule = Format(Cellule, "00"" ""00"" ""00"" ""00"" ""00")
Next Cellule
End Sub

puis sélectionner la plage concernée et lancer la macro. Attention, les
données renvoyés sont devenues du texte

5. Avec des données texte et par macro, tu crées la macro
Sub AfficherTelephoneTexte()
Dim Cellule As Range
For Each Cellule In Selection
Cellule = Mid(Cellule, 1, 2) & " " & Mid(Cellule, 3, 2) & _
" " & Mid(Cellule, 5, 2) & " " & Mid(Cellule, 7, 2) & _
" " & Mid(Cellule, 9, 2)
Next Cellule
End Sub

puis tu sélectionnes ta plage et tu lances la macro



--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

Stéphane wrote:
Bonjour,

J'ai une base avec des téléphones écris ainsi :

0154544545
0154544546
0154544545
0154544546
0154544545
0154544545
0154544545
0154544545
...

etc

J'aimerais les transformer ainsi automatiquement : (mettre un espace
tout les 2 caractères) ...

01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
...

Merci pour votre réponse,

Stéphane.


Avatar
Stéphane
Merci beaucoup !

Bon WE !

Stéphane.


"Pierre Fauconnier" a écrit dans le message de
news:%23i%
Bonjour

Cinq solutions :
1. le format personnalisé 00" "00" "00" "00" "00
Ce format affiche le numéro de téléphone avec les espaces. La valeur de la
cellule n'est pas modifiée, et il faut que la donnée soit une donnée
numérique...
2. Toujours avec une donnée numérique, tu peux, pour une donnée en A1,
utiliser en B1 la formule =TEXTE(A1;"00"" ""00"" ""00"" ""00"" ""00"),
l'appliquer à ta plage, puis copier-coller spécial valeurs, puis recopier
le

tout en A. Attention, la donnée doit être numérique
3. Pour une donnée Texte, tu peux, en B1, utiliser
=STXT(A1;1;2)&" "&STXT(A1;3;2)&" "&STXT(A1;5;2)&" "&STXT(A1;7;2)&"
"&STXT(A1;9;2) puis copier-coller spécial valeur et remplacer
4. Par macro, avec des données numériques, tu peux créer la macro suivante
Sub AfficherTelephoneNumerique()
Dim Cellule As Range
For Each Cellule In Selection
Cellule = Format(Cellule, "00"" ""00"" ""00"" ""00"" ""00")
Next Cellule
End Sub

puis sélectionner la plage concernée et lancer la macro. Attention, les
données renvoyés sont devenues du texte

5. Avec des données texte et par macro, tu crées la macro
Sub AfficherTelephoneTexte()
Dim Cellule As Range
For Each Cellule In Selection
Cellule = Mid(Cellule, 1, 2) & " " & Mid(Cellule, 3, 2) & _
" " & Mid(Cellule, 5, 2) & " " & Mid(Cellule, 7, 2) & _
" " & Mid(Cellule, 9, 2)
Next Cellule
End Sub

puis tu sélectionnes ta plage et tu lances la macro



--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se
battre

en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

Stéphane wrote:
Bonjour,

J'ai une base avec des téléphones écris ainsi :

0154544545
0154544546
0154544545
0154544546
0154544545
0154544545
0154544545
0154544545
...

etc

J'aimerais les transformer ainsi automatiquement : (mettre un espace
tout les 2 caractères) ...

01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
...

Merci pour votre réponse,

Stéphane.






Avatar
sabatier
+ celle de garnote (peut-être la plus simple, très exceptionnellement),
ça fait donc 6...
jps

Pierre Fauconnier a écrit:
Bonjour

Cinq solutions :
1. le format personnalisé 00" "00" "00" "00" "00
Ce format affiche le numéro de téléphone avec les espaces. La valeur de la
cellule n'est pas modifiée, et il faut que la donnée soit une donnée
numérique...
2. Toujours avec une donnée numérique, tu peux, pour une donnée en A1,
utiliser en B1 la formule =TEXTE(A1;"00"" ""00"" ""00"" ""00"" ""00"),
l'appliquer à ta plage, puis copier-coller spécial valeurs, puis recopier le
tout en A. Attention, la donnée doit être numérique
3. Pour une donnée Texte, tu peux, en B1, utiliser
=STXT(A1;1;2)&" "&STXT(A1;3;2)&" "&STXT(A1;5;2)&" "&STXT(A1;7;2)&"
"&STXT(A1;9;2) puis copier-coller spécial valeur et remplacer
4. Par macro, avec des données numériques, tu peux créer la macro suivante
Sub AfficherTelephoneNumerique()
Dim Cellule As Range
For Each Cellule In Selection
Cellule = Format(Cellule, "00"" ""00"" ""00"" ""00"" ""00")
Next Cellule
End Sub

puis sélectionner la plage concernée et lancer la macro. Attention, les
données renvoyés sont devenues du texte

5. Avec des données texte et par macro, tu crées la macro
Sub AfficherTelephoneTexte()
Dim Cellule As Range
For Each Cellule In Selection
Cellule = Mid(Cellule, 1, 2) & " " & Mid(Cellule, 3, 2) & _
" " & Mid(Cellule, 5, 2) & " " & Mid(Cellule, 7, 2) & _
" " & Mid(Cellule, 9, 2)
Next Cellule
End Sub

puis tu sélectionnes ta plage et tu lances la macro



--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

Stéphane wrote:

Bonjour,

J'ai une base avec des téléphones écris ainsi :

0154544545
0154544546
0154544545
0154544546
0154544545
0154544545
0154544545
0154544545
...

etc

J'aimerais les transformer ainsi automatiquement : (mettre un espace
tout les 2 caractères) ...

01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
...

Merci pour votre réponse,

Stéphane.







Avatar
Pierre Fauconnier
Salut JPS,

Tu sais compter, toi, dis donc :-p

Dis, en Belgique, avec ton pseudo, tu devrais te balader avec une affiche
"le tabac t'abat" ...

Pierre


sabatier wrote:
+ celle de garnote (peut-être la plus simple, très
exceptionnellement), ça fait donc 6...
jps

Pierre Fauconnier a écrit:
Bonjour

Cinq solutions :
1. le format personnalisé 00" "00" "00" "00" "00
Ce format affiche le numéro de téléphone avec les espaces. La valeur
de la cellule n'est pas modifiée, et il faut que la donnée soit une
donnée numérique...
2. Toujours avec une donnée numérique, tu peux, pour une donnée en
A1, utiliser en B1 la formule =TEXTE(A1;"00"" ""00"" ""00"" ""00""
""00"), l'appliquer à ta plage, puis copier-coller spécial valeurs,
puis recopier le tout en A. Attention, la donnée doit être numérique
3. Pour une donnée Texte, tu peux, en B1, utiliser
=STXT(A1;1;2)&" "&STXT(A1;3;2)&" "&STXT(A1;5;2)&" "&STXT(A1;7;2)&"
"&STXT(A1;9;2) puis copier-coller spécial valeur et remplacer
4. Par macro, avec des données numériques, tu peux créer la macro
suivante Sub AfficherTelephoneNumerique()
Dim Cellule As Range
For Each Cellule In Selection
Cellule = Format(Cellule, "00"" ""00"" ""00"" ""00"" ""00")
Next Cellule
End Sub

puis sélectionner la plage concernée et lancer la macro. Attention,
les données renvoyés sont devenues du texte

5. Avec des données texte et par macro, tu crées la macro
Sub AfficherTelephoneTexte()
Dim Cellule As Range
For Each Cellule In Selection
Cellule = Mid(Cellule, 1, 2) & " " & Mid(Cellule, 3, 2) & _
" " & Mid(Cellule, 5, 2) & " " & Mid(Cellule, 7, 2) & _
" " & Mid(Cellule, 9, 2)
Next Cellule
End Sub

puis tu sélectionnes ta plage et tu lances la macro



--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de
se battre en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi pour me répondre. Merci)


---

Stéphane wrote:

Bonjour,

J'ai une base avec des téléphones écris ainsi :

0154544545
0154544546
0154544545
0154544546
0154544545
0154544545
0154544545
0154544545
...

etc

J'aimerais les transformer ainsi automatiquement : (mettre un espace
tout les 2 caractères) ...

01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
01 54 54 45 45
...

Merci pour votre réponse,

Stéphane.






Avatar
sabatier
:-))))))
jps

Pierre Fauconnier a écrit:
Salut JPS,

Tu sais compter, toi, dis donc :-p

Dis, en Belgique, avec ton pseudo, tu devrais te balader avec une affiche
"le tabac t'abat" ...

Pierre



Avatar
garnote
In cauda venenum.

J'avais d'abord pensé à :

Sub C_QUOI_MON_NUMÉRO_DE_TÉLÉPHONE()
'Assurez-vous d'abord que
'la cellule active contient
'exactement dix chiffres
'et qu'elle est formatée «texte».
'Appelez alors la macro qui
'débute 3! lignes plus haut
'et qui se termine
'6/6 + 4 lignes plus bas.
For i = 1 To Len(ActiveCell) Step 2
téléphone = téléphone & Mid(ActiveCell, i, 2) & " "
Next i
ActiveCell = Mid(téléphone, 1, 2 * i - 4)
End Sub

Bonne journée quand même :-)))

Serge


+ celle de garnote (peut-être la plus simple, très exceptionnellement),
jps


Avatar
Pierre Fauconnier
Hé, t'es qui toi pour te moquer comme ça ?? ;-)))))

Pierre

garnote wrote:
In cauda venenum.

J'avais d'abord pensé à :

Sub C_QUOI_MON_NUMÉRO_DE_TÉLÉPHONE()
'Assurez-vous d'abord que
'la cellule active contient
'exactement dix chiffres
'et qu'elle est formatée «texte».
'Appelez alors la macro qui
'débute 3! lignes plus haut
'et qui se termine
'6/6 + 4 lignes plus bas.
For i = 1 To Len(ActiveCell) Step 2
téléphone = téléphone & Mid(ActiveCell, i, 2) & " "
Next i
ActiveCell = Mid(téléphone, 1, 2 * i - 4)
End Sub

Bonne journée quand même :-)))

Serge


+ celle de garnote (peut-être la plus simple, très
exceptionnellement), jps




Avatar
garnote
Juré, craché !
N'avais pas vu ta macro.

;-)))

moé
Vague de chaleur à Québec, il fait
à peine -20.


"Pierre Fauconnier" a écrit dans le message de
news:
Hé, t'es qui toi pour te moquer comme ça ?? ;-)))))

Pierre

garnote wrote:
In cauda venenum.

J'avais d'abord pensé à :

Sub C_QUOI_MON_NUMÉRO_DE_TÉLÉPHONE()
'Assurez-vous d'abord que
'la cellule active contient
'exactement dix chiffres
'et qu'elle est formatée «texte».
'Appelez alors la macro qui
'débute 3! lignes plus haut
'et qui se termine
'6/6 + 4 lignes plus bas.
For i = 1 To Len(ActiveCell) Step 2
téléphone = téléphone & Mid(ActiveCell, i, 2) & " "
Next i
ActiveCell = Mid(téléphone, 1, 2 * i - 4)
End Sub

Bonne journée quand même :-)))

Serge


+ celle de garnote (peut-être la plus simple, très
exceptionnellement), jps








1 2