Discussion :

[martinmacfly]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  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

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à

[martinmacfly]

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.

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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