L'indice n'appartient pas à la sélection
Snake_soldiers08
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
je ne sais pas pourquoi cela fait ca voici mon code
je ne sais pas pourquoi cela fait ca voici mon code
Function Calcul_droits()
montant = UserForm1.TextBox1.Value + UserForm1.TextBox2.Value
Set formule = Sheets(Feuil2.Range("A14"))
résultat = Application.WorksheetFunction.Sum(formule)
MsgBox (résultat)
End Function
6 réponses
-
Dans ce genre de cas, préciser la ligne qui génère l'erreur est bien ...
Je suppose que c'est :Sheets(Feuil2.Range("A14"))
En gros, le nom de la feuille n'existe pas.
J'interviens principalement en VB6 et VB.NET, avec un peu de C#, mais la modération m'amène souvent sur d'autre langages.
En VB.NET pensez à activer "Option Explicit" et "Option Strict" -
Set formule = Sheets("Feuil2").Range("A14")
-- -
thev j'ai changé mais toujours la meme erreur :/ henry pourtant feuil2 existe bien je le vois a coté dans mon vba project
-
Je viens de tester avec 500 dans la cellule A14 de Feuil2 et ça fonctionne sans problème :
Function Calcul_droits() montant = 100 Set formule = Sheets("Feuil2").Range("A14") résultat = Application.WorksheetFunction.Sum(formule) MsgBox (résultat) End Function
-- -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Le plus simple me parait être de reprendre ta formule directement dans VBA.
-- -
Bonsoir un petit rappel de la bonne utilisation des balises de code ici.