Copier une tableau avec des cellule videsRésolu/Fermé

Question

Bonjour,
Je suis débutant en VBA, ma question paraitra peut être pour qq uns nuls !!
Je veux copier une colonne avec des lignes infinies et des cellues vides dans une autre feuille, mais je veux copie que les cellules non vides

Merci d'avance pour votre aide

pijaku · Answer

Salut, Cet exemple (approximatif mais efficace) copie la colonne C de la Feuil1 vers la colonne C de la Feuil2, sans les cellules vides : Sub copicollesansvide() Dim premlig As Integer, derlig As Integer, derniere As Integer Dim nom As String derniere = Range("C65536").End(xlUp).Row Sheets("Feuil1").Range("C1").Select nom = ActiveCell.Address Do While nom <> "$C$" & derniere If ActiveCell <> "" Then premlig = ActiveCell.Row If ActiveCell.Offset(1, 0) = "" Then derlig = ActiveCell.Row Range("C" & premlig, "C" & derlig).Copy Sheets("Feuil2").Range("C65536").End(xlUp).Offset(1, 0) Selection.End(xlDown).Select nom = ActiveCell.Address Else derlig = Selection.End(xlDown).Row Range("C" & premlig, "C" & derlig).Copy Sheets("Feuil2").Range("C65536").End(xlUp).Offset(1, 0) Selection.End(xlDown).Select Selection.End(xlDown).Select nom = ActiveCell.Address If nom = "$C$65536" Then Range("A1").Select Exit Sub End If End If Else ActiveCell.Offset(1, 0).Select nom = ActiveCell.Address End If Loop End Sub

GafsiTN · Answer

Merci Pijaku pour ta réponse, mais le code copie toute la colonne, par contre j'ai besoin que des cellules non vode dans cette colonne
Merci

pijaku · Answer

Ce code ne copie que les cell non vides...

GafsiTN · Answer

Merci pour la réponse,
J'ai vérifié et ça marche pas, y'a t-il un moyen de t'envoyer mon fichier pour le tester?
Merci d'avance

GafsiTN · Answer

Voici une solution trouvé avec le soutien précieux de Franck [PijaKu]
Il s'agit de copier une colonne G:G dans la feuil1 et la coller dans la colonne A:A de la feuil3

Sub Récap()
    Sheets("Feuil2").Columns("A:A").ClearContents
    Sheets("Feuil1").Select
    Columns("G:G").Copy Sheets("Feuil2").Columns("A:A")
    Sheets("Feuil2").Select
    Columns("A:A").AutoFilter Field:=1, Criteria1:="<>"
    Columns("A:A").Copy Sheets("Feuil3").Columns("A:A")
    Application.CutCopyMode = False
    Sheets("Feuil3").Select
    Columns("A:A").EntireColumn.AutoFit
    Range("A1").Select
            
End Sub

Copier une tableau avec des cellule vides

5 réponses

Newsletters