VBA - formule &"; "&

[audrey_oz]

Bonjour à tous,

J'ai besoin de votre aide...
Je suis en train de créer un fichier à partir de plusieurs onglets (compilation de données).
J'aimerais compiler les adresses mail apparaissant dans la colonne C dans un nouvel onglet et je souhaite le faire en automatique.

Je souhaiterais prendre de la cellule C2 jusqu'à la dernière ligne.
Si besoin, j'ai mis mon ficheir en pièce jointe ^^

Qui peut m'aider??!

Merci d'avance.

Audrey

 

[Iznogood1]

Re : VBA - formule &"; "&

Fichier joint ?

 

[jpb388]

Re : VBA - formule &"; "&

Bonjour a tous

Sub SiBienCompris()
Dim Lg&
Lg = Range("c" & Rows.Count).End(xlUp).Row
Range("c2:C" & Lg).Copy Worksheets("Feuil2").Range("a2")
End Sub

 

[DoubleZero]

Re : VBA - formule &"; "&

Bonjour à toutes et à tous,

Le fichier s'étant envolé ... une autre suggestion :

Option Explicit
Sub Adresses_mail_rassembler()
    Dim o As Worksheet
    Sheets("Récapitulatif").Columns(1).Clear 'adapter le nom de l'onglet
    For Each o In Worksheets
        If o.Name <> "Récapitulatif" Then
            o.Columns(3).SpecialCells(xlCellTypeConstants, 23).Copy Destination:=Sheets("Récapitulatif").Range("a" & Rows.Count).End(xlUp)(2)
        End If
    Next
    With Sheets("Récapitulatif")
        .[a1] = "Adresses"
        .Columns(1).Sort .Range("a1"), xlAscending, Header:=xlYes
    End With
End Sub

A bientôt

 

[audrey_oz]

Re : VBA - formule &"; "&

C'est mieux avec le fichier !
Merci pour vos retous je vais tester vos suggestions !
Audrey

 

[DoubleZero]

Re : VBA - formule &"; "&

Re-bonjour,

C'est mieux avec le fichier !...

Oui...

Le fichier joint conviendra-t-il ?

A bientôt

 

[audrey_oz]

Re : VBA - formule &"; "&

Re-bonjour,



Oui...

Le fichier joint conviendra-t-il ?

A bientôt

Merci pour votre réponse.
Non ça ne convient pas à 100% car je souhaiterais que les adresses mail apparaissent en liste

Exemple pour mailing adhérents :
essai@gmail.com; essai2@ymail.com; essai3@gmail,com; e@gmail,com; d@gmail,com; f@gmail,com; g@gmail,com; h@gmail,com; i@gmail,com; j@gmail,com; k@gmail,com; k@gmail,com

 

[DoubleZero]

Re : VBA - formule &"; "&

Re-bonjour,

Voici une nouvelle version.

A bientôt

 

[audrey_oz]

Re : VBA - formule &"; "&

Re-bonjour,

Voici une nouvelle version.

A bientôt

MERCI 1000 FOIS, c'est exactement ce qu'il me fallait

 

[DoubleZero]

Re : VBA - formule &"; "&

Re-bonjour,

Merci, audrey_oz, pour le "Like" et ce gentil retour.

N. B. : les modules vides ont été supprimés.

A bientôt