Salut JMPS
Je corrobore, j'acquiesce,
Dans le cas présent, les problèmes venaient des titres =------- bien inutiles, et sans aucune importance sur le calcul ultérieur.
J'ai testé avant de répondre, tu penses, pas assez, elle gardait le premier mini de chaque série.
sinon, un truc du genre :
Sub classt()
Dim j As Integer
For j = 1 To 500
If IsNumeric(Range('A' & j)) Then
If ActiveSheet.Range('A' & j).Value = 1000001 Then
Rows(j).Select
Selection.Delete Shift:=xlUp
End If
End If
Next j
End Sub
fera ce que gerome1980 demande.
Je ne me souviens pas avoir utilisé 'on error resume next' pour mes propres réalisations. D'ailleurs, je l'ai découverte récemment.
En revanche, quand je bossais (eh oui, un PSE), j'importais souvent des données issus d'AS400, si je l'avais connue à l'époque, elle m'aurait été bien utile sur certaines ligne bizzaroïdes...qui défiaient tous mes tests.
Tant que ce n'est pas parfait, je ne suis pas satisfait, comme la plupart des XLDiens je suppose.
Bon, c'est l'heure de l'apéro ! Une macro au vin blanc, pour oublier !!!
Mais demain, je serai frais....j'espère.
A+
PS : Ta devise est géniale, donnes moi l'auteur, et si c'est toi, alors chapeau
Message édité par: Gruick, à: 20/03/2006 19:23