Discussion :

[ilham_bam]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[ilham_bam]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!