VBA : Insérer plusieurs Range en une fois

Résolu/Fermé

Jauster Messages postés 126 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 31 août 2018 - 30 avril 2018 à 12:08
Jauster Messages postés 126 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 31 août 2018 - 30 avril 2018 à 15:59

Bonjour,

Pour le moment j'ai ce code :

Range("B:B,D:D,E:E,G:G,H:H,CH:CH,BN:BN").Copy wsMAJ.Range("A1")

et je souhaiterais faire la même chose en utilisant ma variable DerLig (DerLig = Range("A" & Rows.Count).End(xlUp).Row) pour limiter le nombre de lignes à copier. Mais est-il possible de le faire sans faire plusieurs copier/coller ?

Merci

A voir également:

VBA : Insérer plusieurs Range en une fois
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
30 avril 2018 à 15:12

Bonjour,

Comme ceci:

Dim n As Long
n = Range("B65536").End(xlUp).Row 'prendre la colonne la plus remplie
Range("B1:B" & n & ",D1:D" & n & ",E1:E" & n & ",G1:G" & n & "").Copy wsMAJ.Range("A1") ' a completer

Jauster Messages postés 126 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 31 août 2018 40
30 avril 2018 à 15:59

Super merci, j'avais un doute sur l'utilisation du & autant de fois dans Range. Le dernier & "" est nécessaire pour fermer la chaine ?

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters