Discussion :

[bartimeus35]

Bonjour à tous,

J'ai le code suivant :

Code :

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

1
2
With wbExcel.Sheets(NOM_FEUILLE)
    Set a = .Range("C:C").Find(p_nom_court_appli, lookat:=xlWhole)

Mon problème est que j'ai dans p_nom_court_appli par exemple TOTO. il ne me le trouve pas car mes données dans la colonne C dont des formules.
Pour tester j'ai copié la colonne C en D en faisant une copie spéciale valeurs.
Et si je fais ma recherche dans la colonne D, ca fonctionne mais je ne veux pas devoir faire cette manipulation .
Les formules affichent bien les bon résultats, mais le Find semble se baser sur le texte de la formule et non pas le résultat de celle ci.

Des idées, conseils.
Merci @+

[Philippe Tulliez]

Bonjour,
Si "Toto" est la valeur renvoyée par une formule, chez moi, votre code me renvoie bien l'objet Range

Code :

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

1
2
3
4
5
6
7
Sub t()
 Dim a As Range
 With ActiveSheet
    Set a = .Range("C:C").Find("Toto", lookat:=xlWhole)
    Debug.Print a.Address
 End With
End Sub

[bartimeus35]

OK, mais chez moi ca ne marche pas, mince,
et je viens de faire un Ctrl +F pour chercher TOTO dans ma feuille et il ne me le trouve que dans la colonne D que j'ai copiée en valeur .
Je suis sous windows 11 ... et office 365
Je viens de refaire un test dans un autre fichier pour être sur que ça ne vient pas du fichier et idem, cf pièce jointe, ça ne marche pas chez moi.


Je désespère.

[Franc]

J'ai testé et ça ne marche pas chez moi non plus, sauf si je remplace lookat:=xlWhole par lookat:=xlPart.

[bartimeus35]

Salut, dans le fichier de test c'est OK avec ton code mais sur mon projet réel, c'est toujours raté:

J'ai fait un copier de la cellule en question et un coller valeur dans une autre cellule pour voir si je n'ai pas un caractère spécial ou un truc caché, ...
J'ai ensuite repris la valeur et je l'ai copiée dans notepad ++ et il n'y a que ma chaine de caractères.

Je sèche.

[hyperion13]

Salut
Sauf erreur TOTO est calculé ! Donc au lieu d'utiliser LookIn:=xlValues faudrait-il utiliser LookIn:=xlFormulas
Et si TOTO est présent plusieurs fois dans la colonne peut-être faudra-t-il utiliser FindNext() !

[Philippe Tulliez]

Bonjour,
Je confirme que si "Toto" est une valeur renvoyée par une formule, l'argument nommé LookIn avec comme valeur la constante xlValues et avec comme valeur à l'argument nommé lookat, xlWhole, cela fonctionne.

En revanche si la valeur renvoyée par la formule est "La tête à Toto", là, il faudra mettre comme valeur, la constante xlPart et peut être également ajouter l'argument nommé MatchCase avec comme valeur True si l'on souhaite la sensibilité à la casse.

Cependant, il faut être prudent avec cette méthode car elle conserve la valeur des arguments LookIn, LookAt, SearchOrder et MatchByte lors de la recherche précédente, comme c'est expliqué dans l'aide Range.Find method (Excel)

[EDIT]
@ hyperion13

Sauf erreur TOTO est calculé ! Donc au lieu d'utiliser LookIn:=xlValues faudrait-il utiliser LookIn:=xlFormulas

On utilise la constante xlFormulas si l'on doit chercher "Toto" utilisé comme constante de la formule (Exemple : =RECHERCHEV("Toto";Tableau1;2;FAUX))