Aide MesageBox

[Youpsy]

Bonjour a tous !

J'ai un petit soucis... avant j'avais une usf ou il y avaiu une listbox et a l'activation de cette usf
un msgbox s'ouvrai pour me dire combien de ligne il y avait
mais maintenant je remplacer ma listbox par une listview comment faire..?

Merci !!

Private Sub UserForm_Activate()
  With NewOrderAdm
    .StartUpPosition = 3
    .Width = Application.Width
    .Height = Application.Height
  End With
    'MsgBox ("Vous avez") & " " & (ListVCommand.RowSource) & " " & ("nouvelle(s) commande(s) à approuvé")
  'MsgBox ("Vous avez") & " " & (ListVFact.RowSource) & " " & ("nouvelle(s) facture(s) à traité")
 End Sub

 

[Dranreb]

Re : Aide MesageBox

Bonsoir.

MsgBox "Vous avez " & ListVCommand.ListItems.Count & " nouvelle(s) commande(s) à approuver.", , "Commandes"

Cordialement

 

[Youpsy]

Re : Aide MesageBox

Merci bcp !!