L'indice n'appartient pas à la sélection

Fermé
Snake_soldiers08 Messages postés 4 Date d'inscription samedi 2 mai 2015 Statut Membre Dernière intervention 2 mai 2015 - Modifié par Whismeril le 2/05/2015 à 19:57
 Utilisateur anonyme - 2 mai 2015 à 19:59
Bonjour,
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

NHenry Messages postés 15186 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 19 janvier 2025 351
Modifié par Whismeril le 2/05/2015 à 20:00
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"
0
thev Messages postés 1943 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 14 janvier 2025 697
Modifié par Whismeril le 2/05/2015 à 19:57
Set formule = Sheets("Feuil2").Range("A14")  

--
0
Snake_soldiers08 Messages postés 4 Date d'inscription samedi 2 mai 2015 Statut Membre Dernière intervention 2 mai 2015
2 mai 2015 à 19:35
thev j'ai changé mais toujours la meme erreur :/ henry pourtant feuil2 existe bien je le vois a coté dans mon vba project
0
NHenry Messages postés 15186 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 19 janvier 2025 351
2 mai 2015 à 19:41
Utilises un point d'arrêt et regardes le contenu des variables (Shift+F9)
0
Snake_soldiers08 Messages postés 4 Date d'inscription samedi 2 mai 2015 Statut Membre Dernière intervention 2 mai 2015
2 mai 2015 à 19:44
j'ai formule=vide
0
thev Messages postés 1943 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 14 janvier 2025 697
Modifié par Whismeril le 2/05/2015 à 19:58
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




--
0
Snake_soldiers08 Messages postés 4 Date d'inscription samedi 2 mai 2015 Statut Membre Dernière intervention 2 mai 2015
2 mai 2015 à 19:50
en fait au départ j'avai une formule toute faite sur une cellule excel dans un autre classeur et le montant serait la valeur qui a dans la textbox1+ textbox2 et avec cette valeur appliquer la formule mais je ne vois pas trop comment faire
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
thev Messages postés 1943 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 14 janvier 2025 697
2 mai 2015 à 19:58
Le plus simple me parait être de reprendre ta formule directement dans VBA.

--
0
Utilisateur anonyme
2 mai 2015 à 19:59
Bonsoir un petit rappel de la bonne utilisation des balises de code ici.
0