Remonter texte dans colonne

[castor30]

Bonjour le forum,
Pouvez-vous m'aider pour que je puisse "remonter" les infos saisies dans une colonne de préférence par Vba.
En vous remerciant.

 

[vgendron]

Bonjour
1) supprimer les tirets
2) trier

Sub remonte()
fin = Range("E" & Rows.Count).End(xlUp).Row
Tabloinit = Range("E1:E" & fin).Value
For i = LBound(Tabloinit) To UBound(Tabloinit)
    If Tabloinit(i, 1) = "-" Or Tabloinit(i, 1) = "e_mail" Then
        Tabloinit(i, 1) = ""
    End If
Next i
Range("H1").Resize(fin) = Tabloinit


    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("H1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("H1:H" & fin)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

 

[castor30]

Bonjour vgendron,
Heureux de te retrouver.
Il y a un problème que j'aurai du préciser, c'est que je dois absolument rester dans la même colonne.
En testant le code, changé H pour E il y a un bug à ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
En te remerciant.

 

[vgendron]

Tu as du oublier un remplacement...

ceci fonctionne parfaitement

Sub remonte()
fin = Range("E" & Rows.Count).End(xlUp).Row
Tabloinit = Range("E1:E" & fin).Value
For i = LBound(Tabloinit) To UBound(Tabloinit)
    If Tabloinit(i, 1) = "-" Or Tabloinit(i, 1) = "e_mail" Then
        Tabloinit(i, 1) = ""
    End If
Next i
Range("E1").Resize(fin) = Tabloinit


    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("E1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("E1:E" & fin)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

 

[vgendron]

et comme je sens que tu vas me dire qu'il faut commencer à la ligne 2 et garder le titre "e_mail"

Sub remonte()
fin = Range("E" & Rows.Count).End(xlUp).Row
Tabloinit = Range("E2:E" & fin).Value
For i = LBound(Tabloinit) To UBound(Tabloinit)
    If Tabloinit(i, 1) = "-" Then
        Tabloinit(i, 1) = ""
    End If
Next i
Range("E2").Resize(fin - 1) = Tabloinit


    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("E2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("E2:E" & fin)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

 

[castor30]

Re,
Il y a un problème ici :
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear

http://zupimages.net/viewer.php?id=17/45/j5ks.jpg

 

[vgendron]

euh non.. pas chez moi..

 

[castor30]

même erreur est-ce du au fait que je suis en 2003 ?

 

[vgendron]

aucune idée..
pour le savoir, fais comme moi: utilise l'enregistreur de macro pour faire un tri sur la colonne E

 

[castor30]

Avec l'enregistreur c'est OK, mais la longueur de la colonne sera variable
Code :
Sub Macro1()
'
[E2:E87].Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("E2:E11").Select
Selection.ClearContents
Range("E12:E24").Select
Selection.Cut Destination:=Range("E2:E14")
Range("E2:E14").Select
End Sub

 

[vgendron]

d'où la variable "fin"

essaie ceci

Sub remonte()
fin = Range("E" & Rows.Count).End(xlUp).Row
Tabloinit = Range("E2:E" & fin).Value
For i = LBound(Tabloinit) To UBound(Tabloinit)
    If Tabloinit(i, 1) = "-" Then
        Tabloinit(i, 1) = ""
    End If
Next i
Range("E2").Resize(fin - 1) = Tabloinit

Range("E2").Resize(fin - 1).Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'
'ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
'ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("E2"), _
'    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
'    xlSortTextAsNumbers
'With ActiveWorkbook.Worksheets("Feuil1").Sort
'    .SetRange Range("E2:E" & fin)
'    .Header = xlNo
'    .MatchCase = False
'    .Orientation = xlTopToBottom
'    .SortMethod = xlPinYin
'    .Apply
'End With

End Sub

après. si ca ne marche toujours pas, bah désolé. je ne peux plus rien.. à toi d'adapter le code

 

[castor30]

C'est super, merci beaucoup.
Bonne soirée mon ami.

 

[DoubleZero]

Bonjour à toutes et à tous,

Le code ci-après fonctionne-t-il sur 2003 ?

Option Explicit
Sub toto()
    With Range("e:e")
        .Replace What:="-", Replacement:="", LookAt:=xlWhole
        .Sort Range("e1"), xlAscending, Header:=xlYes
    End With
End Sub

A bientôt 🙂

 

[Si...]

Bon_soir

Bonne idée ÓÒ 🙂😀, mais as-tu oublié que j'étais "par Si… mon yeux" (pas pour le FUN )? 😕

Sub T()
  [E:E].Replace "-", ""
  [E:E].Sort [E1], , Header:=1
End Sub

J'ose quand même les … :

Sub T():  [E:E].Replace "-", "":  [E:E].Sort [E1], , Header:=1:End Sub

 

[DoubleZero]

Bon_soir

Bonne idée ÓÒ 🙂😀, mais as-tu oublié que j'étais "par Si… mon yeux" (pas pour le FUN )? 😕

Sub T()
  [E:E].Replace "-", ""
  [E:E].Sort [E1], , Header:=1
End Sub

J'ose quand même les … :

Sub T():  [E:E].Replace "-", "":  [E:E].Sort [E1], , Header:=1:End Sub