macro copier dans deux cellules

[Geely]

Bonjour le forum

Pour faire l'équivalent d'un "copier" je fais:

Sub Copi()
Range("C5").Copy
End Sub

Comment faire pour que le "copier" se fasse sur deux cellules distinctes ? C5 et A1 par exemple

Geely

 

[Guest]

Re : macro copier dans deux cellules

Bonjour,

Utilise l'enregistreur de macro et vois comment il fait.

A+

 

[Geely]

Re : macro copier dans deux cellules

J'ai bien essayé mais le message " impossible d’exécuter cette commande sur des sélections multiples.

 

[TempusFugit]

Re : macro copier dans deux cellules

Bonjour


Essaie en copiant en deux fois

Sub testcopie()
Range("A1").Copy Range("D1")
Range("C5").Copy Range("E1")
End Sub

 

[Geely]

Re : macro copier dans deux cellules

Bonjour

Le "copier" des deux cellules se fait bien, mais mon but est un peu particulier
la macro doit faire l'équivalent d'un "copier" de deux cellules distinctes (adresse email) pour faire ensuite un "coller" dans un autre programme les deux adresses email à la suite.

Geely

 

[TempusFugit]

Re : macro copier dans deux cellules

Pourtant le titre de ta question est : macro copier dans deux cellules.

Tu n'avais pas évoqué le collage vers une autre application...

Quel est cette application ?

 

[Geely]

Re : macro copier dans deux cellules

C'est vrai le titre porte a confusion j'aurai du mettre "Copier" de deux cellules distinctes.

Le collage se fait dans un programme de compte rendu d'intervention où il faut indiquer plusieurs adresses email (interface web)
Geely

 

[TempusFugit]

Re : macro copier dans deux cellules

Dans ce cas, oriente toi vers le ClipBoard.

Voic un exemple pris dans l'aide

Copy, GetFromClipboard, GetText, méthodes, DataObject, objet, exemple

L'exemple suivant illustre les mouvements de données d'un contrôle TextBox vers le Presse-papiers, du Presse-papiers vers un objet DataObject et d'un objet DataObject vers un autre contrôle TextBox. La méthode GetFromClipboard transfère les données du Presse-papiers vers un objet DataObject. Les méthodes Copy et GetText sont aussi utilisées.

Pour utiliser cet exemple, copiez le code suivant dans la partie Déclarations d'une feuille et vérifiez que celle-ci contient :

deux contrôles TextBox nommés TextBox1 et TextBox2,


un contrôle CommandButton nommé CommandButton1.

Dim MyData as DataObject

Private Sub CommandButton1_Click()
    'Need to select text before copying it to Clipboard
    TextBox1.SelStart = 0
    TextBox1.SelLength = TextBox1.TextLength
    TextBox1.Copy

    MyData.GetFromClipboard
    TextBox2.Text = MyData.GetText(1)
End Sub

Private Sub UserForm_Initialize()
    Set MyData = New DataObject
    TextBox1.Text = "Move this data to the " _
        & "Clipboard, to a DataObject, then to "
        & "TextBox2!"
End Sub

 

[Geely]

Re : macro copier dans deux cellules

Super merci TempusFugit

j'étais parti sur une piste un peu similaire: création d'une feuille avec TextBox1.Value = Range("A1")

Geely ;-)

 

[TempusFugit]

Re : macro copier dans deux cellules

L'userform et ses controles ne sont là que comme exemple

L'important c'est surtout : GetFromClipboard