Classement et alignement données sur colonne

[megansport]

Bonjour au Forum

Comme vous pourrez le voir sur le fichier joint, j'ai besoin de "nettoyer le fichier", c'est le fouillie complet mais j'ai plusieurs feuilles et j'ai besoin d'une macro pour travailler.


Je vous remercie par avance d'une solution qui me faciliterait la vie

Merci à Toutes et à tous

 

[musard]

Re : Classement et alignement données sur colonne

A ta place je parcourrais toutes les cellules dans une plage définir :

For Each cel in Worksheets("base").Range("A1:G1000")

Puis vérifier si la valeur de chaque cellule (

cel.value

) correspond à des cellules à ignorer ("Référence" par exemple.
Sinon copier la valeur de la cellule dans la feuille de destination.

 

[megansport]

Re : Classement et alignement données sur colonne

Merci pour votre réponse mais je vois pas

 

[megansport]

Re : Classement et alignement données sur colonne

Nobody for me????😱

 

[JCGL]

Re : Classement et alignement données sur colonne

Bonjour à tous,

Peux-tu essayer ceci dans un module standard :

Sub Colonnes_en_une()
Dim Ncol As Long, NL As Long
With ActiveSheet.UsedRange
    .SpecialCells(4).Delete Shift:=xlUp
    NL = Rows.Count
    For Ncol = 2 To .Columns.Count
        With .Columns(Ncol)
            .Cut Cells(NL, 1).End(xlUp)(2, 1)
        End With
    Next Ncol
End With
End Sub

A + à tous

 

[pierrejean]

Re : Classement et alignement données sur colonne

Bonjour à tous

Un essai

 

[megansport]

Re : Classement et alignement données sur colonne

Un grand MERCI

 

[musard]

Re : Classement et alignement données sur colonne

J'arrive après la bataille moi. Désolé pour la réponse tardive mais j'étais juste passé en coup de vent tout à l'heure 😛