Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 VBA - Bouton copier sans les lignes vides

tchi456

XLDnaute Occasionnel
Bonjour,

J'ai ce code pour pouvoir copier les cellules F1:F126; cependant je souhaiterais que ça ne prenne pas en compte les lignes vides:

VB:
Sub BoutonCopierContenuCellules()
Worksheets("Notes").Range("F1:F126").Copy
End Sub

Pouvez-vous m'aider?

Meilleures salutations,

Thierry
 
Solution
Bonjour le fil

Tes OK sur mon PC
(il faut activer la Référence à la librairie Word dans Excel)
VB:
Sub CopierVersWord_sans_vide() 'test ok
'Déclarations variables
Dim wordApp As Word.Application, oDoc As Word.Document, Copie As Range
'Création Appli/Objet/Doc Word
Set wordApp = New Word.Application
wordApp.Visible = True
Set oDoc = wordApp.Documents.Add()
'Copie dans plage temporaire sans vide
Columns("F:F").SpecialCells(xlCellTypeConstants, 3).Copy
Range("P1").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
'copie vers Word
Set Copie = [P1].CurrentRegion
Copie.Copy
oDoc.Paragraphs(1).Range.PasteSpecial DataType:=wdPasteText
End Sub

tchi456

XLDnaute Occasionnel
Re bonjour Phil69970,

Je sais je suis chiant mais pourrait-on le faire sans ajout d'un bouton supplémentaire?

Sachez que toutes vos propositions fonctionnent parfaitement bien et c'est entièrement de ma faute si mes demande ne sont pas claires dès le début et je m'en excuse.
 

tchi456

XLDnaute Occasionnel
Bonjour Staple1600,

J'ai bien essayé votre code mais en activant la référence à la librairie Word comme vous l'avez indiqué, ça ne fonctionne malheureusement pas; c'est peut-être dû à une version différente d'Excel.

Merci pour votre aide.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…