Copier une tableau avec des cellule vides
Résolu
Gafsi
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
A voir également:
- Copier une tableau avec des cellule vides
- Tableau word - Guide
- Tableau ascii - Guide
- Comment copier une vidéo youtube - Guide
- Trier un tableau excel - Guide
- Imprimer tableau excel sur une page - Guide
5 réponses
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
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
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
Merci
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
