XL 2010 VBA - Bouton copier sans les lignes vides

[tchi456]

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:

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

Pouvez-vous m'aider?

Meilleures salutations,

Thierry

 

[st007]

Bonjour,
et si tu filtrais d'abord, ou dans la feuille de destination

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuill est filtrée
UsedRange.ClearContents 'RAZ
With Sheets("Notes").UsedRange
    [F1].Resize(.Rows.Count, .Columns.Count) = .Value
End With
On Error Resume Next 'si aucune SpecialCell
[f:f].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Columns.AutoFit 'ajustement largeurs
With UsedRange: End With 'actualise les barres de défilement
End Sub

 

[tchi456]

Bonjour st007,

J'ai bien essayé votre code mais je sais pas exactement ou le coller.
Voici le fichier test ci-dessous.

Meilleures salutations,

Thierry

 

[st007]

Les cases à cocher ne fonctionne pas sur des cellules fusionnées

 

[tchi456]

Re-bonjour st007,

Merci pour votre proposition qui fonctionne très bien mais je ne voulais faire que copier et non pas coller sur une autre feuille.

Meilleures salutations,

Thierry

 

[Phil69970]

@bonjour à tous

@tchi456

mais je ne voulais faire que copier et non pas coller

Normalement quand on copie on colle quelle part la copie sinon qu'elle est l’intérêt de copier .

Donc si tu nous expliquait ou tu veux le coller

@Phil69970

 

[tchi456]

Bonjour Phil69970,

Je souhaite coller ce texte sur un document Word et non sur Excel.

Meilleures salutations

 

[st007]

il te reste à copier ce qui a été collé en feuil2

 

[tchi456]

Bonjour st007,

Je souhaiterais juste modifier le code de mon bouton pour pouvoir copier (sans coller sur une autre feuille) les cellules F1:F126 (sans les lignes vides) et ne tenant plus compte des "vu" dans la colonne D.

Désolé si je n'ai pas été très clair dans ma demande dès le début.

Mes meilleures salutations,

Thierry

 

[Phil69970]

Re

Je te propose ce fichier :

Apres appuie sur copier tu peux coller dans word

Merci de ton fichier

@Phil69970

 

[Phil69970]

@tchi456

Pas de retour ?

@Phil69970

 

[Staple1600]

Bonjour le fil

Tes OK sur mon PC
(il faut activer la Référence à la librairie Word dans Excel)

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]

Bonjour Phil69970 et Staple1600,

Désolé pour la réponse tardive et merci beaucoup pour vos propositions.
Staple1600 je n'arrive malheureusement pas à faire fonctionner votre code.
Phil69970 votre idée de masquer les lignes me convient parfaitement mais pourrait-on réafficher automatiquement ces lignes lorsque la sélection de copie est désactivée?

Mes meilleures salutations et bon début de semaine.

Thierry

 

[Phil69970]

Bonjour à tous


Voici la V2 qui tient compte de ta remarque

pourrait-on réafficher automatiquement ces lignes lorsque la sélection de copie est désactivée?

Merci de ton retour

@Phil69970

 

[tchi456]

Bonjour Phil69970,

Votre code fonctionne bien mais ne me permet pas de copier dans word sans les lignes vides.
L'idéal serait de réafficher les lignes lorsque la sélection de copie est désactivée (donc quand on clique sur escape).