Discussion :

[e30847]

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

[DeaD78]

Bonjour,

D'abord, je viens de me flinguer les yeux à lire ton code N'oublie pas les balises codes la prochaine fois

Et sinon, ce que je ne comprends absolument pas, c'est que, si ta macro marchait sous Excel 2000 (on se fiche des systèmes d'exploitation), pourquoi elle ne fonctionne plus sous Excel 2007.

C'est quand même bizarre. Ca n'a presque pas changé au niveau du VBA même entre des versions si éloignées. Et, surtout, tu n'utilises pas ce qui a changé...

Ton code comporte des .Find, une boucle et quelques If qui se battent en duel... Je vois vraiment pas pourquoi tu adaptes... Tu prends ton ancien code et c'est réglé non ?

[e30847]

Merci pour ta réponse.
Désolé, c'est la première fois que je poste un message sur ce site. Je ne suis pas habitué. Je tiendrais compte de ta remarque la prochaine fois.
Pour reprndre l'historique de ce code.
Ce code a été développé sous Excel 2000. Mon entreprise est en train de passé en Excel 2007 à l'occasion du changement de système d'exploitation (Windows NT vers Vista). J'ai donc à ma dispo un autre ordinateur en vista pour tester mes macros.
Croyez-vous que c'est le changement d'ordinateur qui pourrait géner?
D'avance merci pour vos réponses.

[DeaD78]

Es-tu sûr que la macro ne fonctionne pas sous Excel 2007 ? Ca me semble bizarre, ça devrait fonctionner telle qu'elle est maintenant. As-tu bien fait le test ? Que se passe-t-il ?

As-tu des données TOP SECRET DEFENSE () dans ton fichier ? Dans le cas contraire, poste le sur le site que quelqu'un possédant la version 2007 puisse la tester.

EDIT : quelqu'un pourrait-il confirmer ou infirmer le fait que cette macro devrait marcher sous Excel 2007 si elle marchait sous Excel 2000 histoire qu'on ne parte pas sur une mauvaise idée saugrenue de ma part ?

[e30847]

Pour répondre à ta question, j'ai pris le fichier contenant la macro sur le micro en Excel 2000, je l'ai copié sur le micro en Excel 2007 et j'ai lancé la macro. C'est là que le problème est survenu.
D'avance merci

[DeaD78]

Et que dit le problème ?...