Copie collage presse papier via VBA

Bonjour à tous!

Est-il possible de copier une plage de cellule, qui peut être emmenée à varier (augmentation ou diminution) via vba, de coller son contenu dans le presse papier, en séparant le contenu des cellules par un point virgule?

Je vous joints un fichier pour une meilleure compréhension!

Merci d'avance pour vos réponses^^

Bonjour !

Voici une p'tite démonstration pour générer la chaîne des adresses :

Sub Demo()
    With Feuil1.Cells(1).CurrentRegion
        S$ = Join(Application.Transpose(Application.Index(.Rows("2:" & .Rows.Count), , 3)), ";")
    End With

    MsgBox S
End Sub

Ensuite, si ce n'est déjà fait, activer la référence Microsoft Forms 2.0 Object Library via le menu Outils du VBE.

Reste à consulter l'aide VBA intégrée concernant DataObject et sa méthode PutInClipboard

Valable uniquement pour le presse-papiers Office.

Sinon il y a de nombreux exemples sur le net utilisant un API Windows pour le presse-papiers …

Bonjour Marc L,

Merci pour ce retour!!! la macro fonctionne et la msgbox récapitulant les adresses mails sélectionnées est sympas!!

Est-il possible de rajouter un comptage des mails sélectionnés pour être sur du nombre?

Je vais me pencher sur la fonction de copie......

Le comptage est égal à .Rows.Count - 1

Sub Demo()
    With Feuil1.Cells(1).CurrentRegion
        C& = .Rows.Count - 1
        S$ = Join(Application.Transpose(.Cells(2, 3).Resize(C)), ";")
        MsgBox C & vbLf & vbLf & S
    End With   
End Sub

Re,

c'est parfait j'ai réussi à me débrouiller avec tous ces compléments!!!

Encore un grand MERCI.

Bonne journée.

Rechercher des sujets similaires à "copie collage presse papier via vba"