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...

[fred65200]

bonsoir


en regardant dans l'aide Excel2007

Modifications apportées au modèle d'objet depuis Microsoft Office 97
...
Find
Modifié
Syntaxe précédente

RANGE Find (VARIANT What, OPTIONAL VARIANT After, OPTIONAL VARIANT LookIn, OPTIONAL VARIANT LookAt, OPTIONAL VARIANT SearchOrder, OPTIONAL XLSEARCHDIRECTION SearchDirection = 1, OPTIONAL VARIANT MatchCase, OPTIONAL VARIANT MatchByte, OPTIONAL VARIANT MatchControlCharacters, OPTIONAL VARIANT MatchDiacritics, OPTIONAL VARIANT MatchKashida, OPTIONAL VARIANT MatchAlefHamza)

Nouvelle syntaxe

RANGE Find (VARIANT What, OPTIONAL VARIANT After, OPTIONAL VARIANT LookIn, OPTIONAL VARIANT LookAt, OPTIONAL VARIANT SearchOrder, OPTIONAL XLSEARCHDIRECTION SearchDirection = 1, OPTIONAL VARIANT MatchCase, OPTIONAL VARIANT MatchByte, OPTIONAL VARIANT SearchFormat)
...

Cordialement