Function VS Erreur 91...

Résolu/Fermé
Bobbyli Messages postés 220 Date d'inscription vendredi 19 avril 2013 Statut Membre Dernière intervention 3 janvier 2016 - 14 juin 2013 à 12:58
Bobbyli Messages postés 220 Date d'inscription vendredi 19 avril 2013 Statut Membre Dernière intervention 3 janvier 2016 - 15 juin 2013 à 11:09
Bonjour,

J'ai un petit soucis avec un programme, pour résumer simplement, voici son but: j'ai des tables de multiplications inscrite sur excel, de 1 à 20; je cherche entre autre à ajouter la possibilité de choisir jusqu'où l'on souhaite avoir des questions (multiples de 10, 15 ou 20 max). Pour cela, je créé une fonction qui permet de connaître la plage où se trouvent les calculs jusqu'au pallier souhaité:

Function plage(nb As Double) As Range

Set Plage_10 = Range("A1:N41")
Set Plage_15 = Range("A1:N62")
Set Plage_20 = Range("A1:N83")

If nb = 10 Then

plage = Plage_10

ElseIf nb = 15 Then

plage = Plage_15

ElseIf nb = 20 Then

plage = Plage_20

End If

End Function

Néanmoins, quand je le lance (via ma procédure, avec donc "nb" = 10/15/20), si j'entre "10", on arrive bien à l'instruction "plage = Plage_10" mais avec une erreur: 91.

J'ai beau chercher, je ne vois pas où se trouve le soucis...

Merci d'avance


2 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
14 juin 2013 à 18:08
Bonjour,

Function plage(nb As Double) As Range

    Set Plage_10 = Range("A1:N41")
    Set Plage_15 = Range("A1:N62")
    Set Plage_20 = Range("A1:N83")

    If nb = 10 Then
        Set plage = Plage_10
    ElseIf nb = 15 Then
        Set plage = Plage_15
    ElseIf nb = 20 Then
        Set plage = Plage_20
    End If

End Function
0
Bobbyli Messages postés 220 Date d'inscription vendredi 19 avril 2013 Statut Membre Dernière intervention 3 janvier 2016 1
15 juin 2013 à 11:09
Génial, merci bien!

Eh hop, résolu :)
0