VBA - Copier plusieurs cellules

vgendron

XLDnaute Barbatruc

• 14 Mars 2016

• #2

Re : VBA - Copier plusieurs cellules

Hello

avec ce bout de code à adapter si besoin
la selection multiple se fait en maintenant la touche Control..

Code:

Sub multi()

Set myMultiAreaRange = Application.InputBox("sélectionnez les données", Type:=8)
myMultiAreaRange.Select

For Each ele In Selection
    With Sheets("Feuil2")
        .Range("A65536").End(xlUp).Offset(1, 0) = ele
    End With
Next ele

End Sub

 

Vote positif 0 Vote négatif

K

Kalissie

Guest

• 14 Mars 2016

• #3

Re : VBA - Copier plusieurs cellules

Merci pour votre réponse. Cependant mon problème est toujours la, je n'arrive pas à copier une sélection multiple, vous avez une idée ?

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 14 Mars 2016

• #4

Re : VBA - Copier plusieurs cellules

Euh.. avez vous au moins testé?
parce que ce bout de code fait exactement ce que vous souhaitez.. copier une selection multiple...

 

Vote positif 0 Vote négatif

K

Kalissie

Guest

• 14 Mars 2016

• #5

Re : VBA - Copier plusieurs cellules

Je viens de tester et oui ça marche, je l'ai adapté en mettant directement les cellules à copié dans le code. Mais comment faire pour que ça colle les cellule sur une ligne entière ? (A3:H3)

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 15 Mars 2016

• #6

Re : VBA - Copier plusieurs cellules

Bonjour,

Je reviens vers vous:
pour la suite, il faudrait que vous postiez un fichier exemple histoire de voir à quoi ressemble votre projet.

Vous dites avoir codé en dur les cellules à copier: cela veut il dire que ce sont toujours les memes?

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 15 Mars 2016

• #7

Re : VBA - Copier plusieurs cellules

😡
Bonjour,

si les exemples donnés étaient plus représentatifs des fichiers réels, ça faciliterait la chose non ?

P.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 15 Mars 2016

• #8

Re : VBA - Copier plusieurs cellules

En attendant mieux..

Code:

compteur = 0
For Each ele In Selection
    With Sheets("Feuil2")
        If ele <> "" Then
            .Range("A3").Offset(0, compteur) = ele
            compteur = compteur + 1
        End If
    End With
Next ele

End Sub

 

Vote positif 0 Vote négatif

K

Kalissie

Guest

• 15 Mars 2016

• #9

Re : VBA - Copier plusieurs cellules

Je vous remercie, ça marche comme ça !!

 

Vote positif 0 Vote négatif