Encadrer un text
bonjour a tous,
J'utilise une base de donnée qui me fournie des numéros de tel. ils sont sous la forme 06XXXXXXXX. Le but de ma manip est pour chaque numéro de faire correspondre une adresse afin d'envoyer un sms via Lotus note
dans un premier temps il faut donc que mon numéro passe du format 06XXXXXXXX au format "00336xxxxxxxx@Nom_de_mon_serveur.sms.de,"
Dans un second temps il faudrait que je compile toutes les lignes de la colone N° afin d'avoir une seule ligne a entrer dans lotusnote du type:
003361xxxxxxx@Nom_de_mon_serveur.sms.de, 003362xxxxxxx@Nom_de_mon_serveur.sms.de, etc...
Fichier exemple
https://www.excel-pratique.com/~files/doc/TEL.xls
Vous avez un idée ?
Bonjour,
Je suppose que les n° de téléphone sont en colonne A, à partir de A2, et en format texte (si c'était un format téléphone, il y aurait des espaces).
En B2 placer la formule :
=" 00336"&LIGNE()-1&DROITE(A2;8)&"@Nom_de_mon_serveur.sms.de,"
formule à étirer vers le bas
En C2 (C1 restant vide) : =C1&B2
formule à étirer vers le bas
La dernière cellule de la colonne C renvoie le résultat demandé.
dré
Edition :
Je n'avais pas vu ton fichier.
Ta question initiale ne correspond pas à ton exemple.
Si tu ne t'en sors pas en adaptant la procédure proposée, précise le résultat que tu souhaites obtenir pour 33674344643
Pfiou ca c'est de l'efficacité Dre
J'ai un peu modifié la formule pour l'adapter a mon bidule et ca marche bien
Mille merci !!
Sinon T'as un idée pour compiler les résultats ?
Bonjour vlad64, dré et le forum,
Voici une solution en VBA.
Merci Matthieu33
c'est exactement ce que je recherche mais c'est laquelle la macro qui compile les numéros?
Chui pas super doué en excel :/
C'est la procédure associée au bouton "Commandbutton1" qui se trouve sur la feuille
Private Sub CommandButton1_Click()
Dim lgLig As Long
For lgLig = 2 To 30
Range("L" & lgLig).NumberFormat = "@"
Range("L" & lgLig).Value = "0033" & _
Mid(Range("G" & lgLig), 2, Len(Range("G" & lgLig))) & _
"@Nom_de_mon_serveur.sms.de"
Range("M2").NumberFormat = "@"
If Range("M2").Value = "" Then
Range("M2").Value = Range("L" & lgLig).Value
Else
Range("M2").Value = Range("M2").Value & ", " & Range("L" & lgLig).Value
End If
Next lgLig
End SubJe vois pas comment je doit l'utiliser ce code
tu peux m'explique les étapes ?
Quelqu'un à une solution pour compiler les infos?
Peux-tu expliciter ta question, qu'entends-tu par compiler ?
dré
Effectivement, dré a raison.
Que veux-tu dire exactement ?
Merci
ben comme je l'ai dis dans le premier message, il faudrait que je compile toutes les lignes de la colone N° afin d'avoir une seule ligne a entrer dans lotusnote du type:
003361xxxxxxx@Nom_de_mon_serveur.sms.de, 003362xxxxxxx@Nom_de_mon_serveur.sms.de, etc...
Re,
Sous un tableur "compiler" se dit "concatener".
Les deux solutions (formules et macro) proposées le font.
Je ne vois ce que tu veux de plus.
dré
re,
Avec l'utilisation de la macro, l'affichage de la concaténation de toutes les valeurs s'effectue en colonne M2.
re,
effectivement les formules que fous m avez donné le font. Cependant, dans ma liste de numéros il y a des numéros de fixes et de portable or je ne veux que les numeros de mobiles. si je concatenne je me retrouve avec la totalité des numéros.
En fait je voudrais concatener mais la condition est " je ne concatenne que les numéros contenant 00336"
et ca j'ai pas réussi a faire ..... :/
Merci encore pour votre réactivité.
Vlad
Est-ce tellement difficile de poser une question complète depuis le départ ?
De plus, dans ton exemple en pièce jointe, il n'y a aucun numéro de portable !
Tu es bien sur qu'il ne faut pas aussi tenir compte de la couleur et de la marque du portable ?
dré
Voici une nouvelle version en VBA.