Bonjour,
je suis en train d'adapter une macro qui fonctionnait sur Excel 2000 sous windows NT vers Excel 2007 sous Vista.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 With feuille.Range("C" & idate & ":C" & lignefin)
        binfdate = idate
        bsupdate = lignefin
        valdate = "" & valdate & ""
        Set ldate = .Find(valdate, LookIn:=xlValues)
        premierdate = ldate.Row
        If Not ldate Is Nothing Then
            Do
                Set ldate = .FindNext(ldate)
                essai = ldate.Row
                If ldate.Row <= binfdate Then binfdate = ldate.Row
                If ldate.Row > binfdate Then bsupdate = ldate.Row
                If ldate.Row = premierdate Then
                    idate = idate - 1
                End If
                idate = idate + 1
 
                If ldate.Row = binfdate Then Exit Do
            Loop While Not ldate Is Nothing And ldate.Row <> premierdate
        End If
    End With
je bloque sur la ligne essai = ldate.row car sur la ligne précédente
Set ldate = .findnext(ldate)
la variable ldate prend la valeur "nothing"

D'avance merci pour votre aide car là je bloque vraiment.

JEROME un développeur perdu
il me dit impossible