Classement et alignement données sur colonne

M

musard

Guest

• 9 Avril 2012

• #2

Re : Classement et alignement données sur colonne

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

Code:

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

Puis vérifier si la valeur de chaque cellule (

Code:

cel.value

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

 

Vote positif 0 Vote négatif

M

megansport

Guest

• 9 Avril 2012

• #3

Re : Classement et alignement données sur colonne

Merci pour votre réponse mais je vois pas

 

Vote positif 0 Vote négatif

M

megansport

Guest

• 9 Avril 2012

• #4

Re : Classement et alignement données sur colonne

Nobody for me????😱

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Avril 2012

• #5

Re : Classement et alignement données sur colonne

Bonjour à tous,

Peux-tu essayer ceci dans un module standard :

VB:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Avril 2012

• #6

Re : Classement et alignement données sur colonne

Bonjour à tous

Un essai

 

Pièces jointes

• essai1.xlsm

  32.9 KB · Affichages: 53
• essai1.xlsm

  32.9 KB · Affichages: 56
• essai1.xlsm

  32.9 KB · Affichages: 54

Vote positif 0 Vote négatif

M

megansport

Guest

• 9 Avril 2012

• #7

Re : Classement et alignement données sur colonne

Un grand MERCI

 

Vote positif 0 Vote négatif

M

musard

Guest

• 9 Avril 2012

• #8

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 😛

 

Vote positif 0 Vote négatif