USF Débogage

[jorisphi]

Bonjour à tous,

J'ai un bébogage lorsque je clique sur une leçon sans avoir préalablement cliquer sur mon bouton "CHOISIR"

J'explique plus en détail dans mon fichier en annexe

Grand Merci pour votre aide
Jorisphi

 

[Compte Supprimé 979]

Re : USF Débogage

Salut Jorisphi

Pour ton problème, tu peux utiliser le code suivant

[B][COLOR=Blue]Private Sub Valider_Click()[/COLOR][/B]
  Dim x As Long
  On Error Resume Next
  x = CLng(ListBox1.List(ListBox1.ListIndex, 1))
  If x < 2 Then
    MsgBox "Merci de sélectionner une leçon !", vbInformation, "ATTENTION ..."
    On Error GoTo 0
    Exit Sub
  End If
  On Error GoTo 0
  With Sheets("Création")
' Etc ....

ou (en plus simple, merci Youky)

[B][COLOR=Blue]Private Sub Valider_Click()[/COLOR][/B]
  Dim x As Long
  If ListBox1.ListIndex = -1 then
    MsgBox "Merci de sélectionner une leçon !", vbInformation, "ATTENTION ..."
    Exit Sub
  End If
  ' Si OK
  x = CLng(ListBox1.List(ListBox1.ListIndex, 1))
  With Sheets("Création")
' Etc ....

A+

 

[youky(BJ)]

Re : USF Débogage

Bonjour jorisphi,
Rajoute en 1ere ligne ce code, si rien n'est selectionné listindex=-1
If ListBox1.ListIndex = -1 Then Exit Sub
C'est tout bon. . . .
Bruno

 

[jorisphi]

Re : USF Débogage

Bonjour à mes amis "forumeur "BrunoM45" et "Youki"

Comme d'hab, toujours là pour m'aider !....

Grand MERCI à vous deux pour votre aide et pour votre rapidité à me répondre
Cela marche à merveille !......


A bientôt
Très Cordialement
Jorisphi

 

[jorisphi]

Re : USF Débogage

Bonjour à mes amis "forumeur "BrunoM45" et "Youki"

Comme d'hab, toujours là pour m'aider !....

Grand MERCI à vous deux pour votre aide et pour votre rapidité à me répondre
Cela marche à merveille !......


A bientôt
Très CordialEment
Jorisphi