'*************************************************************************************
' VERSION POUR MAC ET WINDOWS
'necessite l 'activation de la référence [["" Microsoft Forms 2.0 Object Library ""]]
Public Property Get presse_papier_Mac_window()
With New DataObject: .GetFromClipboard: presse_papier_Mac_window = .GetText(1): End With
End Property
Sub Macro2()
With ActiveSheet.Range("$B$5:$B$22")
.AutoFilter Field:=1, Criteria1:="=***"
.Copy
texte = presse_papier_Mac_window
.AutoFilter 'on libere le filtre le texte à été memorisé dans la variable texte
With New DataObject: .SetText texte: .PutInClipboard: End With
MsgBox texte
End With
End Sub
'************************************************************************************