joel a écrit :
Bonjour, Christian,
Le Mercredi 4 Octobre 2006 18:48, christianwtd a écrit :
Tu dis ne rien connaître en macros, donc je te suggère de tester celle-ci :
J'ai testé, mais j'ai une erreur "variable indéfinie", avec cette ligne
surlignée :
ColLecture = 0 'Colonne A
Bonjour Joel,
Exact, j'ai oublié une série de Dim
Dim ColLecture
Dim ColEcriture
et les autres
....
Ensuite, il faut de la patience, beaucoup de patience ...
Et aussi de la mémoire... Et ça me fait grandement défaut.
A l'époque ou tu avait fait ton tuto, je l'avais suivi (croyant naïvement que
j'arriverai à me débrouiller), disposant de plus de temps que maintenant.
J'avais même décelé une erreur dans ton tuto, tu m'en avais d'ailleurs
félicité :
Le dimanche 12 Septembre 2004 11:45, christianwtd a écrit :
Donc, c'est à mon tour de te féliciter puisque non seulement tu
t'intéresses au basic, mais en plus tu trouves les erreurs, et c'est là,
le plus difficile.
Et tu dis que t'as pas de mémoire ! Je te rassure, tout n'est pas perdu :-)
Le problème, c'est que tant que je fais des choses basiques, j'arrive à m'en
sortir. Puis, quand j'aborde des choses plus élaborées, il faut que je relise
sans cesse les instructions, les choses que j'ai faites les jours précédents.
C'est décourageant, lassant. Je n'arrive pas à m'en rappeler.
Je suis d'accord. Des fois, il faudrait un ordinateur dans la tête. Ca
va venir...
...
Alors, je m'en remets à ceux qui savent, en comptant sur leur serviabilité...
Et je te remercie chaleureusement, ainsi que ceux qui m'aideront.
Ben on fait ce qu'on peut.
Je ne t'ai pas répondu de suite, je passe épisodiquement sur les listes.
Mais pour en revenir à ton problème, le listing que je t'avais fait y
répond partiellement. Le revoici partiellement corrigé :
Sub TEST
Dim oDocument As Object, oSheet As Object
Dim oCellLecture As Object, oCellEcriture As Object
Dim ColLecture, LigLecture, ColEcriture , LigEcriture , i
'
oDocument=ThisComponent
oSheet=oDocument.Sheets.getByName("Feuille1")
ColLecture = 0 'Colonne A
LigLecture = 0 'Ligne 1
oCellLecture = oSheet.getCellByPosition(ColLecture, LigLecture)
ValeurLue = oCellLecture.getValue
LigEcriture = 0
ColEcriture = 1
For i = 0 to 7
oCellEcriture = oSheet.getCellByPosition(ColEcriture, i)
oCellEcriture.setValue(ValeurLue + i)
Next i
'
'En A9, j'entre =A1+7
oCellEcriture = oSheet.getCellByPosition(0, 8)
oCellEcriture.Formula = ("=A1+7")
End Sub
Si tu places une date en A1, tu auras des dates dans la colonne B.
Attention, il faudra formater en dates (au moins une fois). J'aurai pu
le programmer, pas le temps.
J'ajoute ta formule en A9
En revanche, je patine pour rendre la cellule A9 active, mais si est en
A1, Ctrl + flèche bas t'amèneras directement en A9
Bon surf,
Christian
--
Visitez http://christianwtd.free.fr/ pour débuter avec Calc, d'OpenOffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
