Ha, mais si c'est parce que tu as eu un coup de chaleur, je te pardonne... ;-)
Pierre
garnote wrote:
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
Ha, mais si c'est parce que tu as eu un coup de chaleur, je te pardonne...
;-)
Pierre
garnote wrote:
Juré, craché !
N'avais pas vu ta macro.
;-)))
moé
Vague de chaleur à Québec, il fait
à peine -20.
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM.be> a écrit dans le
message de news: OW9RncG3DHA.632@TK2MSFTNGP12.phx.gbl...
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
Ha, mais si c'est parce que tu as eu un coup de chaleur, je te pardonne... ;-)
Pierre
garnote wrote:
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
garnote
J'en suis fort aise. Et une petite anagramme pour bien finir la journée : Jean se plait au bar.
:-)))
Serge
"Pierre Fauconnier" a écrit dans le message de news:
Ha, mais si c'est parce que tu as eu un coup de chaleur, je te pardonne... ;-)
Pierre
garnote wrote:
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
J'en suis fort aise.
Et une petite anagramme pour bien finir la journée :
Jean se plait au bar.
:-)))
Serge
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM.be> a écrit dans le message de
news: OJkP4QH3DHA.4060@TK2MSFTNGP11.phx.gbl...
Ha, mais si c'est parce que tu as eu un coup de chaleur, je te pardonne...
;-)
Pierre
garnote wrote:
Juré, craché !
N'avais pas vu ta macro.
;-)))
moé
Vague de chaleur à Québec, il fait
à peine -20.
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM.be> a écrit dans le
message de news: OW9RncG3DHA.632@TK2MSFTNGP12.phx.gbl...
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
J'en suis fort aise. Et une petite anagramme pour bien finir la journée : Jean se plait au bar.
:-)))
Serge
"Pierre Fauconnier" a écrit dans le message de news:
Ha, mais si c'est parce que tu as eu un coup de chaleur, je te pardonne... ;-)
Pierre
garnote wrote:
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
sabatier
ça sent le jps ton anagramme, serge...bravo! jps
garnote a écrit:
J'en suis fort aise. Et une petite anagramme pour bien finir la journée : Jean se plait au bar.
:-)))
Serge
"Pierre Fauconnier" a écrit dans le message de news:
Ha, mais si c'est parce que tu as eu un coup de chaleur, je te pardonne... ;-)
Pierre
garnote wrote:
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
ça sent le jps ton anagramme, serge...bravo!
jps
garnote a écrit:
J'en suis fort aise.
Et une petite anagramme pour bien finir la journée :
Jean se plait au bar.
:-)))
Serge
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM.be> a écrit dans le message de
news: OJkP4QH3DHA.4060@TK2MSFTNGP11.phx.gbl...
Ha, mais si c'est parce que tu as eu un coup de chaleur, je te pardonne...
;-)
Pierre
garnote wrote:
Juré, craché !
N'avais pas vu ta macro.
;-)))
moé
Vague de chaleur à Québec, il fait
à peine -20.
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM.be> a écrit dans le
message de news: OW9RncG3DHA.632@TK2MSFTNGP12.phx.gbl...
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
J'en suis fort aise. Et une petite anagramme pour bien finir la journée : Jean se plait au bar.
:-)))
Serge
"Pierre Fauconnier" a écrit dans le message de news:
Ha, mais si c'est parce que tu as eu un coup de chaleur, je te pardonne... ;-)
Pierre
garnote wrote:
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
garnote
On devrait écrire «ta nanagramme», vu le féminin !
Bonne nuit
Serge
"sabatier" a écrit dans le message de news:
ça sent le jps ton anagramme, serge...bravo! jps
garnote a écrit:
J'en suis fort aise. Et une petite anagramme pour bien finir la journée : Jean se plait au bar.
:-)))
Serge
"Pierre Fauconnier" a écrit dans le message de
news:
Ha, mais si c'est parce que tu as eu un coup de chaleur, je te pardonne...
;-)
Pierre
garnote wrote:
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
On devrait écrire «ta nanagramme», vu le féminin !
Bonne nuit
Serge
"sabatier" <jpsabatdelaile@wanadoo.fr> a écrit dans le message de news:
400860ED.5010803@wanadoo.fr...
ça sent le jps ton anagramme, serge...bravo!
jps
garnote a écrit:
J'en suis fort aise.
Et une petite anagramme pour bien finir la journée :
Jean se plait au bar.
:-)))
Serge
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM.be> a écrit dans le
message de
news: OJkP4QH3DHA.4060@TK2MSFTNGP11.phx.gbl...
Ha, mais si c'est parce que tu as eu un coup de chaleur, je te
pardonne...
;-)
Pierre
garnote wrote:
Juré, craché !
N'avais pas vu ta macro.
;-)))
moé
Vague de chaleur à Québec, il fait
à peine -20.
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM.be> a écrit dans le
message de news: OW9RncG3DHA.632@TK2MSFTNGP12.phx.gbl...
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
On devrait écrire «ta nanagramme», vu le féminin !
Bonne nuit
Serge
"sabatier" a écrit dans le message de news:
ça sent le jps ton anagramme, serge...bravo! jps
garnote a écrit:
J'en suis fort aise. Et une petite anagramme pour bien finir la journée : Jean se plait au bar.
:-)))
Serge
"Pierre Fauconnier" a écrit dans le message de
news:
Ha, mais si c'est parce que tu as eu un coup de chaleur, je te pardonne...
;-)
Pierre
garnote wrote:
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
