VBA - erreur 91 - fonction

[Résolu/Fermé]
Signaler
Messages postés
2
Date d'inscription
samedi 24 mai 2008
Statut
Membre
Dernière intervention
25 mai 2008
-
Messages postés
2
Date d'inscription
samedi 24 mai 2008
Statut
Membre
Dernière intervention
25 mai 2008
-
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

1 réponse

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 181
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41713 internautes nous ont dit merci ce mois-ci

Messages postés
2
Date d'inscription
samedi 24 mai 2008
Statut
Membre
Dernière intervention
25 mai 2008

en effet, ça marche
merci bcp pour le coup de main
à plus