Function VS Erreur 91... Résolu

Question

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


Configuration: Windows 7 / Chrome 27.0.1453.110

f894009 · Answer

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

Bobbyli · Answer

Génial, merci bien!

Eh hop, résolu :)

Function VS Erreur 91...

2 réponses

Discussions similaires

Newsletters