VBA - erreur 91 - fonction

Résolu/Fermé
maillkeul Messages postés 2 Date d'inscription samedi 24 mai 2008 Statut Membre Dernière intervention 25 mai 2008 - 24 mai 2008 à 16:27
maillkeul Messages postés 2 Date d'inscription samedi 24 mai 2008 Statut Membre Dernière intervention 25 mai 2008 - 25 mai 2008 à 11:17
Bonjour,

je dois réaliser une fonction sous VBA dont le but est de comparer deux cellules, et en fonction de cette comparaison, la fonction doit me renvoyer une cellule ( située sur une autre feuille).
Malheureusement, j'ai une erreur lors de la compilation " erreur d'execution 91 - Variable objet ou variable de bloc With non définie"

Voici le code :

Function Toto_1er_etage() As Range

If Sheets(1).Range("C25") <= Sheets(1).Range("C24") Then
Toto_1er_etage = Sheets(5).Range("I5")
End If
If Sheets(1).Range("C25") >= Sheets(1).Range("C24") Then
Toto_1er_etage = Sheets(6).Range("J6")
End If
End Function


Dans ce cas précis, j'ai C25>C24, et l'ereu intervient au niveau de la ligne "Toto_1er_etage = Sheets(6).Range("J6") "

Pourriez vous m'aider s'il vous plait. Merci d'avance
A voir également:

1 réponse

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
24 mai 2008 à 17:25
Bonjour,
changer la ligne..
Function Toto_1er_etage() As Range qui doit renvoyer une adresse ou une plage, par
Function Toto_1er_etage() As String qui va renvoyer le contenu.
A+
1
maillkeul Messages postés 2 Date d'inscription samedi 24 mai 2008 Statut Membre Dernière intervention 25 mai 2008
25 mai 2008 à 11:17
en effet, ça marche
merci bcp pour le coup de main
à plus
0