DAVID, Jean-Claude a écrit :
En groupe on est surement moins c... ;-))) Je m'étais posé la même
question, mais j'avais trouvé à l'époque un autre biais. Peux tu
m'indiquer où dans la doc tu as trouvé ta réponse, et comment tu
procédes.
Peut être également que l'on ne se pose pas exactement le même
problème à résoudre.
D'avance, merci.
Jean-Claude
bonjour,
en fait j'ai contourné le problème, mais ce n'est pas satisfaisant:
dans une cellule j'ai mis :
=SI(B10<>0;K_TEST(B4:B10);0)
en sachant que la cellule B10 est la cellule à tester
et j'ai fait une macro : voir page 334 de la programmation
openoffice.org(b.Marcelly)
Function K_TEST(arg As Variant) As Double
Dim col As Long
Dim lig As Long
Dim resu As Double
Dim monDoc As Object
Dim maFeuille As Object
Dim maCellule As Object
Dim colPlace As Long
Dim ligMin As Long
Dim ligMax As Long
ligMin = LBound(arg)
ligMax = UBound(arg)
monDoc = thisComponent
maFeuille = monDoc.Sheets.getByName("analyse")
maCellule = maFeuille.getCellByPosition(0,0)
colPlace = maCellule.Value
maCellule.Value = colPlace + 1
for lig = ligMin to ligMax
resu = arg(lig,1)
maCellule = maFeuille.getCellByPosition(1,lig)
maCellule.Value = resu
next lig
maFeuille = monDoc.Sheets.getByName("entree")
for lig = ligMin to ligMax
maCellule = maFeuille.getCellByPosition(1,lig+2)
maCellule.Value = 0
next lig
K_TEST = 1
End Function
ce n'est pas satisfaisant car dès que l'on modifie une cellule
quelconque, la macro est appellée.
De plus cela ne répond pas à mon besoin :
je dois entrer des séries de données comportant 8 nombres, sur un
portable, dans des conditions d'extérieur.
je pensais utiliser un petit clavier numérique pour entrer ces séries.
les nombres à entrer auraient été disposés en colonne, la touche entrée
m'aurait permi de passer d'une cellule à l'autre, et à la modification
de la derniere cellule, la macro aurait recopier ces données sur une
autre feuille et renvoyé le curseur à la première cellule.
pas simple à réaliser,
je tatonne encore
gérard
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]