Code VBA pour Copier coller cellules [Résolu/Fermé]

Signaler
Messages postés
32
Date d'inscription
lundi 18 janvier 2010
Statut
Membre
Dernière intervention
12 mai 2011
-
Messages postés
32
Date d'inscription
lundi 18 janvier 2010
Statut
Membre
Dernière intervention
12 mai 2011
-
Bonjour,

J'ai une colonne dont je fais un copy paste speciale value pour coller le contenu dans une autre sheet mais la copie ne se fait pas intégralement car j'ai des cellules vides dans cette colonne. Alors J'aimerais savoir quelle est le code à utiliser si je veux que pour mon copier coller marche même si il y a des cellules vides dans ma colonnes. Un code qui ferait la copie de mes cellules pleines et passerait aux suivantes lorsque qu'il rencontre une cellules vides.


Merci d'avance !!!

2 réponses

Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 607
Salut,
Si tu copies colles toute la colonne, tu devrais avoir en résultat... toute la colonne y compris les cellules vides. Fais un essai avec ce code (créé un nouveau classeur pour l'occasion) :

Sub test()
'copie la colonne B feuil1 en colonne B feuille2
Sheets("Feuil1").Columns(2).Copy Sheets("Feuil2").Range("B1")
End Sub


Si tu veux supprimer les cellules vides dans la copie tu peux faire :

Sub test()
Sheets("Feuil1").Columns(2).Copy Sheets("Feuil2").Range("B1")
Sheets("Feuil2").UsedRange.SpecialCells(xlCellTypeBlanks).Delete xlUp
End Sub
Messages postés
32
Date d'inscription
lundi 18 janvier 2010
Statut
Membre
Dernière intervention
12 mai 2011

Merci beaucoup !!!! Et bonne année à toi aussi !!! Ainsi que tt mes voeux !!!