Répartition d'informations sur plusieurs cellules
Hello,
je suis confronté au problème suivant:
je travaille sur une mailing list, qui contient une adresse mail par cellule, de la cellule A1 à A4500.
Parfois je reçois un message avec des adresses mail en destinataire que j'ai besoin de joindre à ma mailing list. je fais un copier-coller depuis outlook vers excel, et les adresses mail se retrouvent dans une seule cellule, en ligne, séparées par un point virgule.
Existe il une parade qui m'évite la fastidieuse manipulation de copier chaque adresse pour la coller dans sa "cellule individuelle"?
Merci
bonjour,
essayer de convertir votre fichier en indiquant le séparateur :
MENU : Données -> Convertir
cordialement
petidani
Bonjour, et merci petidani pour ce conseil, qui répond en partie à mon besoin.
"En partie" car une fois la conversion effectuée, les adresses sont bien réparties par cellule individuelle, mais colonne après colonne. j'ai besoin qu'elles soient en ligne, les unes sous les autres.
D'autre part, j'ai noté que les adresses ainsi converties sont inscrites avec un espace dans la cellule. Est il possible de les selectionner, et de ramener l'ensemble des adresses en "début" (extrème gauche) de cellule?
Merci JLuc
bonjour,
voici le code vba qui va vous permettre de mettre en ligne vos adresses :
Sub test()
Dim cmd As Integer
cmd = 1
While Cells(1, cmd).Value <> ""
Cells(1, cmd).Select
Selection.Cut
Cells(cmd, 1).Select
ActiveSheet.Paste
cmd = cmd + 1
Wend
End Sub
je réfléchis au blanc
cordialement
petidani
ci joint le code complet (faites copier coller dans un module)
Sub test()
Dim cmd As Integer
cmd = 1
While Cells(1, cmd).Value <> ""
Cells(1, cmd).Select
Selection.Cut
Cells(cmd, 1).Select
ActiveSheet.Paste
cmd = cmd + 1
Wend
'------------------------------------------
'pour effacer les blanc -> ctrl F -> remplacer
'-------------------------------------------
Columns("A:A").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("a1").Select
End Sub
cordialement
petidani
Merci petidani.
Je ne suis pas expert d'excel, loin de là. Pouvez vous préciser comment effectuer le "copier coller dans un module" afin de mettre ces codes en oeuvre sur mon fichier? trés cdlt JLuc
sur excel vous faites :
Outils -> Macro -> Visual basic editor
ensuite
vous faites : Insertion -> Module
et vous copier dans le module le texte que je vous ai envoyé.
sinon utilisez le fichier joint et modifiez selon vos besoins:
https://www.excel-pratique.com/~files/doc/NBH7sventilation_colonne_en_ligne.xls
pour executer la macro :
Outils -> macro -> executer.
cordialement
petidani
J'ai bien suivi la procédure, mais lorsque je clique sur "exécuter" une fenetre Visuel Basic dit:"Erreur de compilation - Instructions incorrecte à l'exterieur d'une procédure" et la ligne :Columns("A:A").Select est surlignée...
J evous ai envoyé un message privé pour vous expliquer la manip a faire c'est juste un problème de version excel et de langage différend.
Cordialement
petidani