Condition sur une listview quand la premiere colonne est vide

Bonjour,

voila je voudrais sur cette fonction

'*****************************************************************************
'FONCTION QUI PERMET DE REMPLIR LES TEXTBOX A PARTIR D'UN CLIC DE LA LISTVIEW
'*****************************************************************************

'**************************************************************
'                     SUR CETTE FONCTION
'**************************************************************

Function extract_data_in_ListView()

If nom.Value = "" Then
MsgBox "Bdd est vide"
'Exit Function
Else

nom.Value = ListView1.SelectedItem.Text
utilisateur.Value = ListView1.SelectedItem.ListSubItems(1)
motdepasse.Value = ListView1.SelectedItem.ListSubItems(2)
question1.Value = ListView1.SelectedItem.ListSubItems(3)
reponse1.Value = ListView1.SelectedItem.ListSubItems(4)
question2.Value = ListView1.SelectedItem.ListSubItems(5)
reponse2.Value = ListView1.SelectedItem.ListSubItems(6)
question3.Value = ListView1.SelectedItem.ListSubItems(7)
reponse3.Value = ListView1.SelectedItem.ListSubItems(8)
question4.Value = ListView1.SelectedItem.ListSubItems(9)
reponse4.Value = ListView1.SelectedItem.ListSubItems(10)
question5.Value = ListView1.SelectedItem.ListSubItems(11)
reponse5.Value = ListView1.SelectedItem.ListSubItems(12)
test.Value = ListView1.SelectedItem.ListSubItems(13)
End If

End Function

si je clique dans la listview est qu'elle est vide, j'aimerais avoir un message me disant "la Bdd est vide " et s'il y a au moin un element et que je clique dessus cela me remplis les texbox je vous joins un fichier de mon petit programme que j'essaye de faire.
Je vous remercie d'avance pour vos réponse
Cordialement

Bonjour Target

Quand vous avez un "Call"

'*********************************************************************
'APPELLE DE LA FONCION POUR REMPLIR LES TEXTBOX A PARTIR DE LA LISVIEW
'*********************************************************************
Private Sub ListView1_click()
  Call Extract_Data_From_ListView
End Sub

C'est pour lancer une Sub et non une Fonction

De plus on utilise une fonction pour pouvoir retourner une valeur résultante, ce qui n'est pas le cas.
donc voici le bon code à utiliser avec le bon nom de procédure

Sub Extract_Data_From_ListView()
  If Me.ListView1.ListItems.Count = 0 Then
    MsgBox "Désolé, mais la BdD est vide !", vbExclamation, "OUPS..."
    Exit Sub
  End If
  ' Récupérer les infos
  nom.Value = ListView1.SelectedItem.Text
  utilisateur.Value = ListView1.SelectedItem.ListSubItems(1)
  motdepasse.Value = ListView1.SelectedItem.ListSubItems(2)
  question1.Value = ListView1.SelectedItem.ListSubItems(3)
  reponse1.Value = ListView1.SelectedItem.ListSubItems(4)
  question2.Value = ListView1.SelectedItem.ListSubItems(5)
  reponse2.Value = ListView1.SelectedItem.ListSubItems(6)
  question3.Value = ListView1.SelectedItem.ListSubItems(7)
  reponse3.Value = ListView1.SelectedItem.ListSubItems(8)
  question4.Value = ListView1.SelectedItem.ListSubItems(9)
  reponse4.Value = ListView1.SelectedItem.ListSubItems(10)
  question5.Value = ListView1.SelectedItem.ListSubItems(11)
  reponse5.Value = ListView1.SelectedItem.ListSubItems(12)
  test.Value = ListView1.SelectedItem.ListSubItems(13)
End Sub

A+

Bonjour

Merci beaucoup pour votre réponse, cest trés apprécié, je vais essayer le code que vous m'avez fourni dans la journée , le code que j'ai mis viens d'un générateur de code qui disait d'appeler la fonction avec call, et comme je n'y connais rien en programmation, je récupere des codes ou regarde des tutoriels. et j'essaye de les adaptés mais ce n'est pas toujours facile.

Encore merci pour votre réponse

Cordialement

Bonjour BrunoM45

Le code marche impeccablement encore merci

Cordialement