Copier Coller en vba

[Evelynetfrancois]

BONJOUR A TOUT LE MONDE

je voudrais copier le contenu (valeurs)des cellules "A1" "G4" et "G5" de la feuil1
et les coller dans les colonnes" B1"C1"D1"de la feuil2
puis les autres , en B2"C2"D2 AINSI DE SUITE à chaque lancement de la macro
les une en desous des autres , pouvez vous m'aider , je tourne autour sans trouver
MERCI D AVANCE POUR VOTRE AIDE
E et F

 

[Mytå]

Re : Copier Coller en vba

Salut le Forum

Une autre façon de procèder

Sub Copier()
 
Dim Boucle As Byte
Dim DerLig As Single
Dim PlageSource As Object
 
DerLig = Sheets("Feuil2").Range("B65536").End(xlUp).Row + 1
 
Set PlageSource = Sheets("Feuil1").Range("A1,G4,G5")
 
For Boucle = 1 To PlageSource.Areas.Count
Sheets("Feuil2").Range("B" & DerLig).Offset(0, Boucle - 1) = PlageSource.Areas.Item(Boucle)
Next Boucle
 
Set PlageSource = Nothing
 
End Sub

Mytå

 

[lapix]

Re : Copier Coller en vba

Re a tous

Il me semble que dans du code on peut ecrire

sheets("xxx").range("A1","C3","G1:H12").clearcontents

Serait ce possible avec copy ?

 

[Pierrot93]

Re : Copier Coller en vba

Bonjour Lapix,tous et toutes

Non, copy ne prend pas de selection multiples, aussi bien en vba que manuellement.

Bonne fin de week end
@+