bien vu je n'avais pas vu le "é" ceci dit, va falloir gérer les è ë..... a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"" a écrit dans le message de news:
2ème question
je désire inserer en d1 la formule qui me permette de regrouper le prénom
et
le nom formater de ce type:
± & "." & a1 & "@serveur.ch"
ou
=substitue(b1;"é";"e") & "." & a1 & "@serveur.ch"
pour l'accent
bien vu
je n'avais pas vu le "é"
ceci dit, va falloir gérer les è ë.....
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"j@c" <jacques.chaussard@noos.fr> a écrit dans le message de news:
OvQYXptrDHA.1364@TK2MSFTNGP10.phx.gbl...
2ème question
je désire inserer en d1 la formule qui me permette de regrouper le
prénom
bien vu je n'avais pas vu le "é" ceci dit, va falloir gérer les è ë..... a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"" a écrit dans le message de news:
2ème question
je désire inserer en d1 la formule qui me permette de regrouper le prénom
et
le nom formater de ce type:
± & "." & a1 & "@serveur.ch"
ou
=substitue(b1;"é";"e") & "." & a1 & "@serveur.ch"
pour l'accent
Gilles
merci beaucoup à tous !!!!
Gilles "Gilles" a écrit dans le message de news: 3fbbcb45$
hello ! 1 ère question:
En A1 j'ai un nom RIVEUL en B1 j'ai un prénom Véronique
Je désire en C1 extraire la première lettre du Nom et la première lettre du
prénom exemple: RV
2ème question
je désire inserer en d1 la formule qui me permette de regrouper le prénom et
le nom formater de ce type:
Merci beaucoup !!
Gilles
merci beaucoup à tous !!!!
Gilles
"Gilles" <gbrandy@msn.com> a écrit dans le message de news:
3fbbcb45$1_1@news.bluewin.ch...
hello !
1 ère question:
En A1 j'ai un nom RIVEUL
en B1 j'ai un prénom Véronique
Je désire en C1 extraire la première lettre du Nom et la première lettre
du
prénom exemple:
RV
2ème question
je désire inserer en d1 la formule qui me permette de regrouper le prénom
et
Gilles "Gilles" a écrit dans le message de news: 3fbbcb45$
hello ! 1 ère question:
En A1 j'ai un nom RIVEUL en B1 j'ai un prénom Véronique
Je désire en C1 extraire la première lettre du Nom et la première lettre du
prénom exemple: RV
2ème question
je désire inserer en d1 la formule qui me permette de regrouper le prénom et
le nom formater de ce type:
Merci beaucoup !!
Gilles
AV
2ème question
Dans un module ordinaire : Function Virer_Accents$(chaine$)'AV Dim tmp$ tmp = Trim(chaine) For i = 1 To Len(tmp) x = Asc(Mid(tmp, i, 1)) Select Case x Case 192 To 197: x = "A" Case 200 To 203: x = "E" Case 204 To 207: x = "I" Case 209: x = "N" Case 210 To 214: x = "O" Case 217 To 220: x = "U" Case 221: x = "Y" Case 224 To 229: x = "a" Case 232 To 235: x = "e" Case 236 To 239: x = "i" Case 241: x = "n" Case 240, 242 To 246: x = "o" Case 249 To 252: x = "u" Case 253, 255: x = "y" Case Else: x = Chr(x) End Select Virer_Accents = Virer_Accents & x Next End Function
Dans la feuille de calcul : =MINUSCULE(Virer_Accents(B1))&"."&MINUSCULE(Virer_Accents(A1))&"@serveur.ch"
AV
2ème question
Dans un module ordinaire :
Function Virer_Accents$(chaine$)'AV
Dim tmp$
tmp = Trim(chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function
Dans la feuille de calcul :
=MINUSCULE(Virer_Accents(B1))&"."&MINUSCULE(Virer_Accents(A1))&"@serveur.ch"
Dans un module ordinaire : Function Virer_Accents$(chaine$)'AV Dim tmp$ tmp = Trim(chaine) For i = 1 To Len(tmp) x = Asc(Mid(tmp, i, 1)) Select Case x Case 192 To 197: x = "A" Case 200 To 203: x = "E" Case 204 To 207: x = "I" Case 209: x = "N" Case 210 To 214: x = "O" Case 217 To 220: x = "U" Case 221: x = "Y" Case 224 To 229: x = "a" Case 232 To 235: x = "e" Case 236 To 239: x = "i" Case 241: x = "n" Case 240, 242 To 246: x = "o" Case 249 To 252: x = "u" Case 253, 255: x = "y" Case Else: x = Chr(x) End Select Virer_Accents = Virer_Accents & x Next End Function
Dans la feuille de calcul : =MINUSCULE(Virer_Accents(B1))&"."&MINUSCULE(Virer_Accents(A1))&"@serveur.ch"
