Discussion :

[Invité]

bonjour
j'ai un classeur excel où des colonnes vides et des colonnes non vides comme sur l'image

remarques: les colonnes non vides ne sont pas les mêmes
je voudrai copier et les coller les colonnes non vide dans une autre page à l'aide de code VBA

aidez moi s'il vous plais
merci

[BENNASR]

salam khouya, bonjour la forum
à tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
Dim FBASE As Worksheet
Dim Fdest As Worksheet
Dim dercol As Long
Application.ScreenUpdating = False
Set FBASE = Sheets("Feuil1")
Set Fdest = Sheets("Feuil2")
'Nettoyer la feuille de destination
    Fdest.Cells.ClearContents
C = 1
L = 1
dercol = FBASE.Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For C = 1 To dercol
 X = Application.CountA(Columns(C))
If X <> 0 Then
FBASE.Columns(C).Copy Fdest.Columns(L)
L = L + 1
End If
Next C
MsgBox "Données Copiées"
Fdest.Select
Application.ScreenUpdating = True
End Sub

[Menhir]

Autre proposition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(1).SpecialCells(xlCellTypeConstants).EntireColumn.Copy WS_Dest.Range("A1")

En remplaçant WS_Dest par la référence à l'onglet de destination de la copie.

[Invité]

salam khouya, bonjour la forum
à tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
Dim FBASE As Worksheet
Dim Fdest As Worksheet
Dim dercol As Long
Application.ScreenUpdating = False
Set FBASE = Sheets("Feuil1")
Set Fdest = Sheets("Feuil2")
'Nettoyer la feuille de destination
    Fdest.Cells.ClearContents
C = 1
L = 1
dercol = FBASE.Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For C = 1 To dercol
 X = Application.CountA(Columns(C))
If X <> 0 Then
FBASE.Columns(C).Copy Fdest.Columns(L)
L = L + 1
End If
Next C
MsgBox "Données Copiées"
Fdest.Select
Application.ScreenUpdating = True
End Sub

[BENNASR]

peut être une erreur de votre part

[BENNASR]

mais la proposition de Menhir est meilleure à mon avis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim FBASE As Worksheet
Dim Fdest As Worksheet
Dim dercol As Long
Application.ScreenUpdating = False
Set FBASE = Sheets("Feuil1")
Set Fdest = Sheets("Feuil2")
'Nettoyer la feuille de destination
    Fdest.Cells.ClearContents
FBASE.Rows(1).SpecialCells(xlCellTypeConstants).EntireColumn.Copy Fdest.Range("A1")
Fdest.Select
Application.ScreenUpdating = True
End Sub

[Invité]

vous pouvez m'aider à faire la même chose sur le fichier suivant?
M.xlsm