Bonjour, soucis pour faire réference à des cellules script lotus123
 
Dans une feuille de calcul, je créé le "bouton". Jusque là tout va.
Le problème se trouve entre  
Sub Click(Source As Buttoncontrol)
et EndSub.
 
Dans la feuille il y à 3 cellules définies: formule, egale, x.
il me semble devoir arriver à quelque chose du type:
 
Sub Click(Source As Buttoncontrol)
1 i = 0.0001
2 x = [a:B28].cellvalue
3 formule = [a:B26].cellvalue
4 egale = [a:B30].cellvalue
5  
6 While formule = egale
7  If formule > egale Then
8   x = x - 0.0001
9  Else  
10   x = x + 0.0001
11  End If
12 Wend
 Set cellfound = [a:B28]
End Sub
 
Quand je click, rien, mais alors il ne se passe rien.
L'espèce de debugger ne m'affiche plus d'erreur.(pas de ligne rouge)
Il est possible que j'ai un peut brodé pour afficher le résultat. (est-ce bien set?)
Et est-il necessaire de démander l'affichage, vu quand fin de boucle (formule = egale)celui-ci  
doit (ou devrait) figurer dans le tableur.
Est-ce un pb de lecture de valeur de cellule? [car la valeur de la variable x (qui se trouve dans la formule)
du tableur ne bouge pas d'un poil).
Lorsque je supprime les lignes 1 à 5, la boucle à lieu sans résultat bien sur.
J'avais dans un premier temps déclaré les variables:
   dim x as integer 'idem pour formule, i et egale : où il était pas d'accord
   puis x,i formule et egale as single pour le même résultat.
Merci.

Je déplace dans "Divers".