Discussion :

[mouftie]

Bonjour à tous,
J'ai utilisé, le code de M Boisgontier, pour une usf à plusieurs colonnes de recherche (excellent tuto)
http://boisgontierjacques.free.fr/pa...irecascade.htm, sous le titre Recherche intuitive dans toutes les colonnes.

Dans ce code, il est prévu de récupérer les données sélectionnées par l'utilisateur sur une feuille précise :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub b_recupLigne_Click()
Sheets("Result").Cells.ClearContents
Sheets("Result").Range("A2").Resize(, nbcol) = _
	 Application.Index(Me.ListBox1.List, Me.ListBox1.ListIndex + 1)
For i = 1 To nbcol
	Sheets("Result").Cells(1, i) = Me("label" & i).Caption
	Sheets("Result").Cells(1, i).Font.Bold = True
Next
End Sub

Personnellement, je voudrais "simplement" mettre en mémoire les informations sélectionnées, de manière à pouvoir les coller sur n'importe quel support (Word, Outlook, Excel...).

Est-ce que quelqu'un peut m'aider, svp.
Merci

[clementmarcotte]

Bonjour,

Si c'est pour les avoir durant la seule exécution du programme, une simple sélection de ta plage et :

Code :

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

selection.copy

devrait faire l'affaire.

Sinon, tu peux les copier sur une feuille distincte de ton classeur.

P.S. Le presse-papier d'Office est différent du presse-papier de Windows. Le presse-papier d'Office est commun et limité aux applications Office et il a plusieurs "compartiments" pour accumuler plusieurs données. À moins d'abuser du système, rien ne t'empêche d'ajouter des données dans le presse-papiers d'Office, même si la donnée précédente n'a pas encore été utilisée.

[mouftie]

Bonjour Clément,
Merci de ta réponse, mais cela ne fonctionne pas

Code :

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

1
2
3
Private Sub LbxDonn_Change()
  Selection.Copy
End Sub

quand je vais sur Word ou même Excel, il n'y a rien dans le presse papier (sans avoir fermé mon USF).
Aurais-tu une autre sugestion stp ?
Merci

[Philippe Tulliez]

Bonjour,

Une réponse dans cette discussion

[mouftie]

Bonjour Philippe,
Merci de ta réponse, mais je ne sais pas l'appliquer ; j'ai essayé :

Code :

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

1
2
3
4
5
Private Sub LbxDonn_Change()
Dim MySelect As New DataObject
MySelect.SetText LbxDonn
MySelect.PutInClipboard
End Sub

Le premier pb, c'est qu'avec une sub Change, Excel n'attend pas les sélections multiques, le second se produit dès la première ligne avec le message "Utilisation incorrecte de Null" ; est-ce que la méthode SetText est adéquate ?

[Philippe Tulliez]

Bonjour,
Effectivement la sélection multiple ne fonctionne pas.
N'étant pas un spécialiste du ClipBoard, je préfère coller directement les données dans Word, voici une solution qui passe par une plage intermédiaire sur une feuille paramètre. Il doit sûrement y avoir moyen de le faire directement mais je n'ai pas cette connaissance et pas le temps d'approfondir mes recherches.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CopyToClipBoard()
 ' Réferencer Microsoft Forms 2.0 Object Library
 Dim myData As New DataObject, rng As Range, txt As String, rngTemp As Range
 With ThisWorkbook
  Set rngTemp = .Worksheets("param").Range("A1")
  Set rng = .Worksheets("Data").Range("A4:B4,A10:B10,A15:B15")
  rng.Copy rngTemp
  rngTemp.CurrentRegion.Copy
 End With
 With New DataObject
 .GetFromClipboard
 MsgBox .GetText(1)
 End With
 Set myData = Nothing: Set rngTemp = Nothing
End Sub

[mouftie]

Merci de ta réponse Philippe,
Je suis désolée, mais je ne comprends pas grang chose

J'ai mis dans mon USF un nouveau bouton "Copie" avec lequel je lance ta procédure (Call CopyToClipBoard)
comment remplacer

Code :

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

  Set rng = .Worksheets("BdD").Range("A4:B4,A10:B10,A15:B15")

par la sélection multiple de la list box ?

Sinon, j'ai trouvé sur le site une idée, quelqu'un passe par un Ctrl + C

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub LbxDonn_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     Dim MySelect As String
 
    ' Nécessite la Référence à la Bibliothèque MicroSoft Forms 2.0 Object Library
     If KeyAscii = 3 Then
'         MySelect = LbxDonn.List(LbxDonn.ListIndex)
        MySelect = Application.Index(Me.LbxDonn.List, Me.LbxDonn.ListIndex + 1)
         With New DataObject
             .SetText MySelect
             .PutInClipboard
         End With
     End If
 End Sub

Cela fonctionne, mais cela ne renvoie que la 1ère colonne de mes sélections (ma listBox est constitué de 4 colonnes)
Merci

[Philippe Tulliez]

Bonjour,

Merci de ta réponse Philippe,
Je suis désolée, mais je ne comprends pas grang chose
J'ai mis dans mon USF un nouveau bouton "Copie" avec lequel je lance ta procédure (Call CopyToClipBoard)
comment remplacer

Le code publié était juste un exemple à adapter bien entendu. C'était juste une piste.