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

Question

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 !!!

pijaku · Answer

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

zo2lapesca · Answer

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

Code VBA pour Copier coller cellules

2 réponses

Discussions similaires