Bonjour,
La macro qui suit m'as été concoctée par Eric Multeau. Elle fonctionne très
bien, a un détail près : les dates obtenues apparaissent ainsi dans le champ
de saisie :
'20/02/2007
Hors, j'ai des formules qui s'appuient sur ces dates, et elles ne fonctionnent
plus a cause de cet apostrophe, bien que les cellules contenant ces dates
soient au format date.
Il y a plusieurs solutions pour convertir ces cellules, mais le mieux serait
que la macro donne tout de suite le résultat désiré.
J'ai l'impression qu'il s'y trouve une ligne sensée faire cela :
' Convertir la chaine de caractère en date
wdate_deb = cdate(date_deb)
En tout cas, ça ne fonctionne pas.
Qui pourrait corriger cela ?
Voici la macro dans son entier :
option explicit
Sub eric
dim fichier1, osheet, ocell as object
dim nb_fois, date_deb as string
dim wdate_deb as date
dim wnb_fois, x, y, lig_cell, col_cell as integer
' On utilise le fichier, la feuille et la cellule active
' comme point de départ
fichier1 = thiscomponent.currentcontroller
osheet = fichier1.activesheet
ocell = thiscomponent.currentselection
' Récupérer les coordonnées de la cellule en cours
lig_cell = ocell.celladdress.row
col_cell = ocell.celladdress.column
' Indiquer le nombre de fois ou il faut exécuter cette opération
nb_fois = InputBox("Combien de fois effectuer le traitement ? ", "Votre
Nombre")
' Saisir la date de début de traitement
date_deb = InputBox("Indiquer la date de début au format JJ/MM/AAAA ? ",
"Votre Date de référence au format JJ/MM/AAAA")
' Convertir la chaine de caractère en date
wdate_deb = cdate(date_deb)
' Convertir la chaine de caractère en valeur numérique
wnb_fois = val(nb_fois)
' Faire le traitement autant de fois que désiré
for x = 0 to wnb_fois
' Traiter la colonne X
osheet.getcellbyposition(0+col_cell,(x*8)+lig_cell).string = wdate_deb
' Traiter la colonne X +1 (8 fois)
for y = 0 to 7
osheet.getcellbyposition(1+col_cell,x*8+y+lig_cell).string = wdate_deb
next y
' Incrémenter la valeur de la colonne A + 7
wdate_deb = wdate_deb + 7
next x
msgbox (" Je crois que celà marche ;-)")
End Sub
--
Joël
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
