Bonjour,
Je suis un nouveau sur ce forum. Ma tache est de faire copier et coller des donnees dans la feuille 1 vers la feuille 2 en supprimant des cellules vides. J'ai déjà écrit une code qui me permet de faire copier et coller des cellules non vides mais je n'arrive pas à mettre mes données dans le bon ordre. Je voulais que tous les cellules contenu des numerique soient bien rangé comme je vous montre dans la feuille3. Est ce que quelcun parmi vous peut m'aider. Je suis un novice dans le macro.
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
24
25
26
27
28
29
30
 
Sub copy()
Dim i As Integer
Dim compteur As Integer
Dim DernCol As Integer
Dim DernLigne As Integer
Dim Cell As Variant
Dim FL1 As Worksheet, FL2 As Worksheet, Plage As Range
Set FL1= Sheets("Feuil1")
With FL1
            DernCol=.Range("A1").End(xlToRight).Column 'Derniere colonne
            DernLigne=.Range("A1").Cells(65536,DernCol).End(xlUp).Row ' Derniere ligne
            Set Plage =.Range("A1", .Cells(DernLigne,DernCol))
            For j=1 To Columns(Split(FL1.UsedRange.Address, "$")(3)).Column
                  Cell=""
                  compteur=0
                  For i=1 to Split(FL1.UsedRange.Address, "$")(4)
                        Cell=Plage.Cells(i,j).Value
                        If Cell<>"" Then
                            compteur=compteur+1
                             Set FL2=Sheets("Feuil2")
                              FL2.Cells(compteur,j).Value=Cell
                        Else:
                        End If
                  Next i
            Next j
End With
Set FL1=Nothing
Set Plage= Nothing
End Sub
discussion.xlsx