Copier coller sans les blancs ?

[lougal]

Bonjour toutes et tous,

Après une demie heure de recherche et de tests je n'ai pas trouvé dans le forum.

Voici ce que je voudrais faire :

j'ai une colonne (V= vide ou blanc ou rien ......)

1
2
V
V
5
V
7
8
que je souhaiterai copier/coller et transposer pour avoir ça :

12578

(En fait récupérer sur une ligne, seulement les cellules remplies de ma colonne)

Merci d'avance de votre aide.
@+

 

[Staple1600]

Re : Copier coller sans les blancs ?

Bonjour

Voici une facon

Sub Macro1()
Range("A1:A" & [A65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Rows.Delete
Range("A1:A" & [A65536].End(xlUp).Row).Copy
Range("B1").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
Application.CutCopyMode = xlCut
End Sub

Cette macro correspond à:

1) Edition/Atteindre/Cellules/Vides
2) Edition/Supprimer ligne entière
3/ Sélection des cellules
4) Edition/Copier
5)Edition/Collage spécial/Transposé

PS: Une variante dans la syntaxe

Sub Macro1_bis()
Dim Plg As Range
Set Plg = Range("A1:A" & [A65536].End(xlUp).Row)
Plg.SpecialCells(xlCellTypeBlanks).Rows.Delete
Plg.Copy
Range("B1").PasteSpecial xlAll, xlNone, False, True
Application.CutCopyMode = xlCut
End Sub

 

[lougal]

Re : Copier coller sans les blancs ?

Bonjour et merci Staple1600

C'est super, ça marche impec, mais...........

J'ai oublié de préciser que je suis sur une feuille ou je ne peux pas faire :

2) Edition/Supprimer ligne entière

Parce que ça fonctionne bien pour ce que je veux faire, (dans ma colonne) mais ça "vire" également toute les lignes ou j'ai "rien" dans les autres colonnes qui elles, peuvent être remplies.

Désolé.....

Ou alors il faut que je déplace ma colonne plus bas dans ma feuille (ou c'est vide partout) pour faire la manip. Tout à fait possible mais un peu plus long.
Je crois que c'est ce que je vais faire.

Merci encore et bonne soirée.

 

[ledzepfred]

Re : Copier coller sans les blancs ?

Salut

essayes donc ceci
Sub Macro1()
ROWS.("LIG:LIG").AutoFilter 'où LIG est la ligne correspondant aux entêtes de colonnes de ton tableau
Selection.AutoFilter Field:=COL, Criteria1:="<>" 'Où COL est le n° de la colonne à filtrer
DERLIG=[A65536].End(xlUp).Row
Range(cells(LIG+1,COL),cells(DERLIG,COL)).Copy
Range(adresse).PasteSpecial Transpose:=True 'où adresse est la cellule de destination de ta donnée exemple "B1"
activesheet.showalldata 'pour voir toutes les données ou
activesheet.autofiltermode=false 'pour enlever le filtrage auto
end sub
A+

 

[Staple1600]

Re : Copier coller sans les blancs ?

Re

Et comme cela?

Sub Macro2_bis()
Dim Plg As Range
Set Plg = Range("A1:A" & [A65536].End(xlUp).Row)
Plg.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Plg.Copy
Range("B1").PasteSpecial xlAll, xlNone, False, True
Application.CutCopyMode = xlCut
End Sub

En reprenant l'idée de ledzepfred

Sub Macro_fa()
With Range(Range("A1"), Range("A65536").End(xlUp))
    .AutoFilter Field:=1, Criteria1:="<>"
    .SpecialCells(xlCellTypeVisible).Copy
End With
Range("C1").PasteSpecial xlAll, xlNone, False, True
Selection.AutoFilter
End Sub

 

[lougal]

Re : Copier coller sans les blancs ?

Merci beaucoup à tous les deux.

Pour l'instant je vais faire la 1 ère solution qui marche.

Puis je vais essayer de parcourir le forum pour comprendre et essayer d'appliquer vos deux autres possibilités.

Car je dois vous l'avouer, mais les macros je n'y connais rien. La seule chose que je sais faire c'est ce que, moi, j'appellerais une macro "automatique", c'est à dire faire quelques opérations successives puis les enregistrer sous un nom de macro que je peux par la suite lancer.
Parce que la, les "codes" que vous m'avez postés, dans l'état je ne sais pas quoi en faire.
Copier/coller ??? ou ??
Mais je vais essayer de comprendre..... promis......
bonne soirée et merci

 

[Staple1600]

Re : Copier coller sans les blancs ?

Re


Regardes dans le fichier exemple

Cliques sur les différents boutons


Pour voir le code VBA

(ALT+F11)

J'ai repris le code du message de 18h10.

 

[lougal]

Re : Copier coller sans les blancs ?

merci

j'apprends..............

 

[Staple1600]

Re : Copier coller sans les blancs ?

Re


C'est Ok?


Ou tu as des questions?

 

[Catrice]

Re : Copier coller sans les blancs ?

Bonsoir,

Je propose également ceci :

Sub Test()
Range("A1", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeConstants, 23).Copy
Range("C1").PasteSpecial Transpose:=True
Application.CutCopyMode = False
End Sub

 

[mercatog]

Re : Copier coller sans les blancs ?

cela pose probleme si aucune cellule vide n'est trouvée dans la colonne "A"