Macro vba sous excel

salut,

je suis débutante au vba et je veux votre aide pour développer un petit macro qui effectue le tache suivante:

feuil1:

email1
email2
email3
email4
email5
email6
email7
email8
email9
email10
email11
email12
email13
...
email40

Le macro doit copier les données en dessus de la manière suivante:

liste1:email1;email2;email3..email20

liste2:email21;email22;email23..email40
...
...


Merci d'avance

Bonjour,

Un petit exemple vite fait.
Sélectionne tes adresses et utilise cette macro.
Je n'ai pas l'habitude d'utiliser les "Selection", mais bon, il arrive que ce soit pratique

Ta sélection sera copiée en C1 avec des points-virgules entre chaque donnée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Valeur As String Dim Cellule As Range   If Selection.Rows.Count = 1 Then MsgBox "Select all the cells to transfer in a string separated by a semi-colon", vbInformation, "" Exit Sub End If   For Each Cellule In Selection Valeur = Valeur & Cellule.Value & ";" Next   Range("C1") = Left(Valeur, Len(Valeur) - 1)

---

Citation:

---

Envoyé par parmi

Bonjour,

Un petit exemple vite fait.
Sélectionne tes adresses et utilise cette macro.
Je n'ai pas l'habitude d'utiliser les "Selection", mais bon, il arrive que ce soit pratique

Ta sélection sera copiée en C1 avec des points-virgules entre chaque donnée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Valeur As String Dim Cellule As Range   If Selection.Rows.Count = 1 Then MsgBox "Select all the cells to transfer in a string separated by a semi-colon", vbInformation, "" Exit Sub End If   For Each Cellule In Selection Valeur = Valeur & Cellule.Value & ";" Next   Range("C1") = Left(Valeur, Len(Valeur) - 1)

---

---

Merci infiniment!