Discussion :

[stargates]

Bonjour,

Quelqu'un sait-il me donner la raison

ceci fonctionne avec excel 2003 mais est refusé par excel 97
l'erreur est entre "" "Set................."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
With Worksheets("feuil1").Range("C14:E238")
       " Set c = .Find(recherche, LookIn:=xlValues, Lookat:=xlWhole)"
        If Not c Is Nothing Then _
        Worksheets("feuil1").Range("A1") = c.Offset(0, -1) & Chr(10) & recherche
    End With

[ouskel'n'or]

As-tu déclaré c as range ?

[stargates]

oui, oui

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim c as Range

[ouskel'n'or]

Comme exemple dans l'aide d'Excel 97, il y a le même code que le tien. Si tu as mis Option Explicit, c'est la seule explication que je vois.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.Pattern = xlPatternGray50
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

[ouskel'n'or]

Vérifie que la référence Microsoft Excel 8.0 Object Library (C:\Program Files\Microsoft Office\Office\EXCEL8.OLB) est bien validée -> Ds l'éditeur VBA -> Menu -> Outils -> Références

[stargates]

As-tu remarqué, à la ligne de ton aide 97 et même 2003
pas de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
lookat:=xlwhole

pas d'aide sur lookat

[ouskel'n'or]

Pas d'aide mais comme ce n'est qu'un argument, ça ne veut rien dire. Tous les argument des fonctions ne se retrouvent pas dans l'aide.
Ce qui ne signifie qu'une chose : LookAt n'est pas dans l'aide... ce qui ne veut pas dire que tu n'aies pas raison...