XL 2010 VBA - Bouton copier sans les lignes vides

tchi456 · 4 Octobre 2022

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

Staple1600 · 8 Octobre 2022

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

Phil69970 · 10 Octobre 2022

Re

Voici la V3

Merci de ton retour

@Phil69970

tchi456 · 10 Octobre 2022

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.

Phil69970 · 10 Octobre 2022

Re

tchi456 à dit:
pourrait-on le faire sans ajout d'un bouton supplémentaire?

Oui mais il faut faire une usine à gaz

Est que le jeu en vaut la chandelle ?

@Phil69970

tchi456 · 10 Octobre 2022

Non pas forcément; je vous ai assez sollicité et je vous remercie infiniment pour votre aide.

Bonne journée à vous et bon début de semaine

Staple1600 · 10 Octobre 2022

Bonsoir le fil, @tchi456 ,@Phil69970

@tchi456
Pour que mon code fonctionne, il faut respecter ce quej'écrivais en préambule

Staple à dit:
(il faut activer la Référence à la librairie Word dans Excel)

tchi456 · 11 Octobre 2022

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.

Staple1600 · 11 Octobre 2022

Bonsoir

@tchi456
Si cela fonctionne puisque j'ai pris le temps de tester sur mon PC avant de publier

Maintenant que tu n'arrives pas à reproduire mon test avec succès sur ton PC, c'est autre chose

XL 2010 VBA - Bouton copier sans les lignes vides

tchi456

XLDnaute Occasionnel

Staple1600

Phil69970

XLDnaute Barbatruc

Pièces jointes

tchi456

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires