C
Christian
Guest
Bonjour cher (ère) excellien (ne),
J'aimerais un petit coup de main concernat cette formule que j'ai pris depuis un autre fil.
Lorsque je l'utilise dans mon nouveau projet, elle m'indique un erreur de synthaxe.
Sub test()
'ordre alphabetique
Sheets('feuil1').Range('A8').Select
selection.Sort Key1:=Range('A8'), Order1:=xlAscending, Header:=xlGuess,
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Call calculnombrefiches
'redéfini selection
Sheets('feuil1').Range('A8').Resize(rowsize:=Range('F1').Value, columnsize:=1).Select
UserForm5.ListBox1.List = selection.Value
UserForm5.Show
End Sub
J'aimerais également pouvoir afficher dans l'userform 5 la colonne B8
merci
christian
J'aimerais un petit coup de main concernat cette formule que j'ai pris depuis un autre fil.
Lorsque je l'utilise dans mon nouveau projet, elle m'indique un erreur de synthaxe.
Sub test()
'ordre alphabetique
Sheets('feuil1').Range('A8').Select
selection.Sort Key1:=Range('A8'), Order1:=xlAscending, Header:=xlGuess,
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Call calculnombrefiches
'redéfini selection
Sheets('feuil1').Range('A8').Resize(rowsize:=Range('F1').Value, columnsize:=1).Select
UserForm5.ListBox1.List = selection.Value
UserForm5.Show
End Sub
J'aimerais également pouvoir afficher dans l'userform 5 la colonne B8
merci
christian