Transformer en boucle

Yeahou · 6 Janvier 2005

Bonjour Silver Groover, Le forum

une simple boucle, pas besoin de passer par des variables

for Compteur=0 to 21
If not(Range("D1").offset(Compteur,0) = "") Then Range(Cells(lig + compteur, 1), Cells(lig, 1)) = DateValue(Range("D1").offset(Compteur,0) )
Next compteur

Cordialement, A+

Silver Groover · 7 Janvier 2005

Merci Jean-Marie de m'aider aussi ;o)

ca plante sur FormatDateTime avec :
erreur de compilation : Sub ou fonction non définie

For Col = 1 To UBound(TabTr, 2)
For Lgn = 1 To UBound(TabTr, 1)
If Col = 1 And TabTr(Lgn, Col) = "" Then
** TabTr(Lgn, Col) = FormatDateTime(TabTr(Lgn - 1, Col), 2) **
Else
TabTr(Lgn, Col) = TabTr(Lgn, Col)
End If
Cells(derlgn + Lgn, Col) = TabTr(Lgn, Col)
Next Lgn
Next Col

ChTi'160 · 7 Janvier 2005

re "Silver Groover"
essaies de remplacer par cette ligne
**TabTr(Lgn, Col) = Format(TabTr(Lgn - 1, Col), "dd/mm/yyyy")**
A+++
Jean Marie

Silver Groover · 7 Janvier 2005

je n'ai qu'un mot : impecable !

Merci Jean-marie
itou Yeahou de ta patience

Bon WE à tous

@+

Yeahou · 7 Janvier 2005

réponse en retard

oui, avec un format correct en colonne de destination, cela fonctionnait.

A+

Transformer en boucle

Yeahou

Guest

Silver Groover

Guest

ChTi'160

Guest

Silver Groover

Guest

Yeahou

Guest

Discussions similaires