VBA : récupérer dans un tableau le contenu du presse papier ?

Le
Alfred WALLACE
Bonjour,
j'ai cherché (mais surement comme un pieds) ce que l'on pouvait faire
entre le VBA et le presse papier, je n'ai trouver que des éléments qui
envoient des
données "copiées" dans le presse papier.

Moi, je cherche à faire le contraire.
j'ai une liste de nom, les uns en dessous des autres. dans une
application X.
je les selectionne, et j'aimerai, par une macro vba (je pense)
récupérer ces valeurs dans un tableau de type Variant

ex :
Dim recip(25) as Variant

Recip() = recup-clipboard

voila.
merci encore pour vos informations.

José
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #20350611
bonjour Alfred,

SubMacro1()
Dim recip()
Set plage = Sheets("Feuil1").Range("A2:A12")
For i = 1 To plage.Count
ReDim Preserve recip(i)
recip(i) = plage(i)
Next
'copie la liste de nom dans la feuille 2
Sheets("Feuil2").Range("A1").Resize(UBound(recip, 1), 1) =
Application.Transpose(recip)
End Sub

isabelle

Alfred WALLACE a écrit :
Bonjour,
j'ai cherché (mais surement comme un pieds) ce que l'on pouvait faire
entre le VBA et le presse papier, je n'ai trouver que des éléments qui
envoient des
données "copiées" dans le presse papier.

Moi, je cherche à faire le contraire.
j'ai une liste de nom, les uns en dessous des autres. dans une
application X.
je les selectionne, et j'aimerai, par une macro vba (je pense)
récupérer ces valeurs dans un tableau de type Variant

ex :
Dim recip(25) as Variant

Recip() = recup-clipboard

voila.
merci encore pour vos informations.

José




Alfred WALLACE
Le #20353831
Merci Isabelle, pour ton aide.
cependant, je ne vois nulle part à quel endroit
tu récupéres le contenu du presse papier ?

j'ai surement mal formulé ma question, je m'explique :

je suis dans un document X, comme word, ou le blocnotes.
je selectionne les données (par exemple, une liste de noms) et je les
colles dans le presse papier (CTRL+C)

j'aimerai, en vba, récupérer le contenu de ce presse papier
et le coller dans un tableau de type Variant déclaré comme suit :
Dim recip(25) as Variant

voili voilou ..

Merci encore pour votre aide.
José (heu alfred c'est mon pseudo ...)









On 14 oct, 18:14, isabelle wrote:
bonjour Alfred,

SubMacro1()
Dim recip()
Set plage = Sheets("Feuil1").Range("A2:A12")
For i = 1 To plage.Count
ReDim Preserve recip(i)
recip(i) = plage(i)
Next
'copie la liste de nom dans la feuille 2
Sheets("Feuil2").Range("A1").Resize(UBound(recip, 1), 1) =
Application.Transpose(recip)
End Sub

isabelle

Alfred WALLACE a écrit :

> Bonjour,
> j'ai cherché (mais surement comme un pieds) ce que l'on pouvait faire
> entre le VBA et le presse papier, je n'ai trouver que des éléments qui
> envoient des
> données "copiées" dans le presse papier.

> Moi, je cherche à faire le contraire.
> j'ai une liste de nom, les uns en dessous des autres. dans une
> application X.
> je les selectionne, et j'aimerai, par une macro vba (je pense)
> récupérer ces valeurs dans un tableau de type Variant

> ex :
> Dim recip(25) as Variant

> Recip() = recup-clipboard

> voila.
> merci encore pour vos informations.

> José


LSteph
Le #20354201
Bonjour,

Si l'on s'en tient à l'objectif que tu as indiqué:
j'ai une liste de nom, les uns en dessous des autres. dans une
application X.
je les selectionne, et j'aimerai, par une macro vba (je pense)
récupérer ces valeurs dans un tableau de type Variant


il me semble que plus drectement la macro d'Isabelle t'indique comment
faire et sans avoir à gérer le presse papier.

Cordialement

--
lSteph

On 15 oct, 11:27, Alfred WALLACE
Merci Isabelle, pour ton aide.
cependant, je ne vois nulle part à quel endroit
tu récupéres le contenu du presse papier ?

j'ai surement mal formulé ma question, je m'explique :

je suis dans un document X, comme word, ou le blocnotes.
je selectionne les données (par exemple, une liste de noms) et je les
colles dans le presse papier (CTRL+C)

j'aimerai, en vba, récupérer le contenu de ce presse papier
et le coller dans  un tableau de type Variant déclaré comme suit :
Dim recip(25) as Variant

voili voilou ..

Merci encore pour votre aide.
José (heu alfred c'est mon pseudo ...)

On 14 oct, 18:14, isabelle wrote:



> bonjour Alfred,

> SubMacro1()
> Dim recip()
> Set plage = Sheets("Feuil1").Range("A2:A12")
> For i = 1 To plage.Count
> ReDim Preserve recip(i)
> recip(i) = plage(i)
> Next
> 'copie la liste de nom dans la feuille 2
> Sheets("Feuil2").Range("A1").Resize(UBound(recip, 1), 1) =
> Application.Transpose(recip)
> End Sub

> isabelle

> Alfred WALLACE a écrit :

> > Bonjour,
> > j'ai cherché (mais surement comme un pieds) ce que l'on pouvait fai re
> > entre le VBA et le presse papier, je n'ai trouver que des élément s qui
> > envoient des
> > données "copiées" dans le presse papier.

> > Moi, je cherche à faire le contraire.
> > j'ai une liste de nom, les uns en dessous des autres. dans une
> > application X.
> > je les selectionne, et j'aimerai, par une macro vba (je pense)
> > récupérer ces valeurs dans un tableau de type Variant

> > ex :
> > Dim recip(25) as Variant

> > Recip() = recup-clipboard

> > voila.
> > merci encore pour vos informations.

> > José- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


isabelle
Le #20355191
bonjour Alfred,

si tu veut absolument utilisé le presse papier,
'il faut activé la référence : Microsoft Forms 2.0 Object Library
et faire la sélection de la plage à copier au préalable

Sub Macro1()
Dim PressePapier As New dataobject
Set PressePapier = New dataobject
For Each c In Selection
MonText = MonText & c
Next
PressePapier.SetText MonText
PressePapier.PutInClipboard
End Sub

isabelle

Alfred WALLACE a écrit :
Merci Isabelle, pour ton aide.
cependant, je ne vois nulle part à quel endroit
tu récupéres le contenu du presse papier ?

j'ai surement mal formulé ma question, je m'explique :

je suis dans un document X, comme word, ou le blocnotes.
je selectionne les données (par exemple, une liste de noms) et je les
colles dans le presse papier (CTRL+C)

j'aimerai, en vba, récupérer le contenu de ce presse papier
et le coller dans un tableau de type Variant déclaré comme suit :
Dim recip(25) as Variant

voili voilou ..

Merci encore pour votre aide.
José (heu alfred c'est mon pseudo ...)









On 14 oct, 18:14, isabelle wrote:

bonjour Alfred,

SubMacro1()
Dim recip()
Set plage = Sheets("Feuil1").Range("A2:A12")
For i = 1 To plage.Count
ReDim Preserve recip(i)
recip(i) = plage(i)
Next
'copie la liste de nom dans la feuille 2
Sheets("Feuil2").Range("A1").Resize(UBound(recip, 1), 1) >> Application.Transpose(recip)
End Sub

isabelle

Alfred WALLACE a écrit :


Bonjour,
j'ai cherché (mais surement comme un pieds) ce que l'on pouvait faire
entre le VBA et le presse papier, je n'ai trouver que des éléments qui
envoient des
données "copiées" dans le presse papier.

Moi, je cherche à faire le contraire.
j'ai une liste de nom, les uns en dessous des autres. dans une
application X.
je les selectionne, et j'aimerai, par une macro vba (je pense)
récupérer ces valeurs dans un tableau de type Variant

ex :
Dim recip(25) as Variant

Recip() = recup-clipboard

voila.
merci encore pour vos informations.

José









Publicité
Poster une réponse
Anonyme