cs_neutrix
Messages postés10Date d'inscriptionlundi 17 novembre 2003StatutMembreDernière intervention 4 mai 2005 21 juil. 2004 à 10:39
g fait ça (je n ai pas mis ta solution exact car ca ne marchai pas mais g recuperer la forme des boucle) mais ca foire un peu
y a des ligne qui s efface mais pas toute
de plusl a boucle pour i ne se fait pas ca s arrete a 20 donc a la boucle j
Sub efacedate()
Dim date1 As Variant
Dim date2 As Variant
For i = 1 To 10
date1 = Left(Application.Worksheets("Feuil1").Cells(i, 2), 30)
For j = i + 1 To 20