Lecture de données entrées dans une feuille par une macro

Bonjour à tous,

J'ai un problème sur une petite macro que j'ai écrite. Il s'agit d'un algorithme de recherche d'une valeur par dichotomie (j'ai 2 valeurs, que je resserre pour finir par obtenir la bonne valeur). L'algorithme est bon (a priori), mais je n'arrive pas à rentrer toutes les valeurs numériques qui sont entrées dans ma feuille Excel. Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Public Sub CalculMasse()   ' {Déclaration de toutes mes variables (Integers & Singles)}   m1 = 0 m2 = 1000 Worksheets("Cas 11 noeuds - 5").Activate Range("B38").Select Evoy = ActiveCell.Value ' {Et d'autres entrées faites de la même manière} Worksheets("Données").Activate Range("Données!B68").Select Eps1 = t1 * ActiveCell.Value ' {Et d'autres entrées de la feuille Données} Worksheets("Cas 11 noeuds - 5").Activate ' {Et encore d'autres entrées}   Do While m2 - m1 > 0.001 ' {Algorithme de dichotomie} Loop   MsgBox m1   End Sub

---

En exécutant cette macro, j'obtiens une erreur 1004 : Erreur définie par l'application ou par l'objet. Je pense que ça vient de ma manière d'aller chercher les valeurs dans ma feuille Excel. A chaque fois, je fais :

Code:

---

1 2 3 4

Worksheets("Nom de la bonne feuille").Activate Range("La case").Select Valeur = ActiveCell.Value

---

Je ne pense pas que ça soit la meilleure façon de le faire, et je pense que c'est pour ça que ça plante. Quelqu'un pourrait-il m'indiquer la bonne manière de faire ?

Merci d'avance,

Martin McFly

Bonjour,

Le matin je m’assois face à la table,
Je prends la tasse sur l’objet devant moi
je verse le café dans l’objet qui est dans ma main.

Autant dire je verse le café dans la tasse qui est sur la table. Ben là c'est pareil ni sélection ni activate on le dit d'un bloc.

Autant dire je verse le café dans la tasse qi est sur la table. Ben l c'est pareille ni selection ni activate on le dit d'un bloc

Code:

---

Valeur = Worksheets("Nom de la bonne feuille").Range("La case").Value

---

Je sais je craque un peu, les bases de données auront ma peau :arf:

Edit :
Si ca ne fonctionne pas
Utilise le mode pas a pas touche F8 pour voir la ligne avec l'erreur
Et déclare te variable en te mettant en option explicite ca peut venir de là aussi. Voir ici pour savoir comment. pour les types de variables c'est là

It works, merci ! J'ai quand même gardé les Worksheets.Activate, ça me permet d'économiser les Worksheets("la bonne feuille"). ..., et en plus ça rend le truc plus lisible.

Merci en tout cas !

EDIT : En fait, les Worksheets.Activate ne marchent pas, il reste quand même dans la feuille associée à la macro. Donc quand je vais chercher dans une autre feuille, j'utilise effectivement ta méthode.

Si ton code est dans un onglet il prendra toujours la cellule de l'onglet.
Dans un nouveau classeur ecrit
Bob en A1 de la feuille1 et Maurice en A1 de la feuille 2

Dans le code de la feuille 1

Code:

---

1 2 3 4

sub test() worksheets("Feuil2").activate msgbox range("A1") end sub

---

La box affiche Bob mais tu vois bien Maurice à l'écran