Bogue sur quizz ping13
Bonjour,
Ce matin en voulant ajouter des questions au quizz que j'ai créé avec l'aide de MIKE31
et CCM81 un bogue est apparu et bien sur problèmes:
Une fenètre me donne le message suivant:
erreur d'exécution '9':
L'indice n'apparait pas à la sélection
Dans le code ci-dessous la ligne 4 : lifinBD = Sheets(FBD).Cells(Rows.Count, codebBD).End(xlUp).Row apparait en jaune
Private Sub CommandButton1_Click()
Dim lifinBD As Long, nbq As Long
' dernière ligne BD
lifinBD = Sheets(FBD).Cells(Rows.Count, codebBD).End(xlUp).Row
' nombre de questions
nbq = lifinBD - lidebBD + 1
' nettoyage plage formulaire
Range(plageF).ClearContents
' tirage au sort du numéro de question
Randomize
Range(qF).Value = 1 + Int(Rnd * nbq)
End Sub
Merci pour votre aide
Crdlt
Ce matin en voulant ajouter des questions au quizz que j'ai créé avec l'aide de MIKE31
et CCM81 un bogue est apparu et bien sur problèmes:
Une fenètre me donne le message suivant:
erreur d'exécution '9':
L'indice n'apparait pas à la sélection
Dans le code ci-dessous la ligne 4 : lifinBD = Sheets(FBD).Cells(Rows.Count, codebBD).End(xlUp).Row apparait en jaune
Private Sub CommandButton1_Click()
Dim lifinBD As Long, nbq As Long
' dernière ligne BD
lifinBD = Sheets(FBD).Cells(Rows.Count, codebBD).End(xlUp).Row
' nombre de questions
nbq = lifinBD - lidebBD + 1
' nettoyage plage formulaire
Range(plageF).ClearContents
' tirage au sort du numéro de question
Randomize
Range(qF).Value = 1 + Int(Rnd * nbq)
End Sub
Merci pour votre aide
Crdlt
