formule et userform

[Christian]

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

 

[_Thierry]

Bonsoir Christian, le Forum

Je ne sais pas pourquoi tu passes par ces codes de Resize etc... mais pour l'envoie de données en multi-colonnes dans une listBox, je fais comme ceci :

Sub MacroQuiIncrementeEtOuvreLeUserForm()
Dim Plage As Variant

Plage = Sheets('Feuil1').Range('A1:B20')

    With UserForm1.ListBox1
    .ColumnCount = 2
    .List() = Plage
    End With
      UserForm1.Show
End Sub

Bon Week End
@+Thierry

 

[christian]

Re:formule et userform(remerciement)

Un gros merci àa vous , pour votre disponibilité

christian