Bonjour eriiic,
Veuillez m'excuser pour cette réponse tardive, des prérogatives au travail, Je n'ai pas su continuer mon projet.
Je viens de tester, et dans mon fichier réel je ne peux pas le laisser s'adapter au nombre de ligne. J'ai donc repris cette partie de code :
result = Replace(result, vbLf & ";", vbLf)
Que j'ai implémenté dans la première version et ça fonctionne nickel
Voici le code au complet :
Private Sub Copier_Click()
Dim pl As Range, c As Range, result As String, lig As Long
Dim Presspp As New DataObject
VidePP
Set pl = Worksheets("Mesure").Range("C3:O74").SpecialCells(xlCellTypeVisible)
If Not pl Is Nothing Then
lig = pl.Row
For Each c In pl
If c.Row <> lig Then
result = result & vbLf
lig = c.Row
End If
result = result & ";" & c.Value
Next c
result = Replace(result, vbLf & ";", vbLf)
' activer la référence "Microsoft Form 2.0 Object Library" dans VBA
With New DataObject
.SetText Mid(result, 2)
.PutInClipboard
End With
End If
End Sub
Un grand merci pour votre aide (je met le sujet en résolu )