Transformer en boucle

[Yeahou]

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]

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]

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]

je n'ai qu'un mot : impecable !

Merci Jean-marie
itou Yeahou de ta patience

Bon WE à tous

@+

 

[Yeahou]

réponse en retard

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

A+