Code VBA pour Copier coller cellules

Résolu/Fermé
zo2lapesca Messages postés 32 Date d'inscription lundi 18 janvier 2010 Statut Membre Dernière intervention 12 mai 2011 - 19 janv. 2010 à 00:43
zo2lapesca Messages postés 32 Date d'inscription lundi 18 janvier 2010 Statut Membre Dernière intervention 12 mai 2011 - 19 janv. 2010 à 09:42
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 !!!
A voir également:

2 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
19 janv. 2010 à 08:44
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
0
zo2lapesca Messages postés 32 Date d'inscription lundi 18 janvier 2010 Statut Membre Dernière intervention 12 mai 2011
19 janv. 2010 à 09:42
Merci beaucoup !!!! Et bonne année à toi aussi !!! Ainsi que tt mes voeux !!!
0