Problème version d'excel

Version imprimable

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:

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

20/05/2008, 15h19
ouskel'n'or

As-tu déclaré c as range ?
20/05/2008, 15h22
stargates

oui, oui

Code:

Dim c as Range

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.

Citation:

Envoyé par L'aide en ligne 97

Code:

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

20/05/2008, 15h30
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
20/05/2008, 16h13
stargates
As-tu remarqué, à la ligne de ton aide 97 et même 2003
pas de
Code:

1 2 3 lookat:=xlwhole
pas d'aide sur lookat
20/05/2008, 20h18
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... ;)
20/05/2008, 21h46
fred65200

bonsoir

en regardant dans l'aide Excel2007

Citation:

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