Discussion :

[gigalia]

Bonjour à tous,

J'utilise le code ci-dessous pour trouvre une valeur dans une zone définie.

Code :

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

1
2
3
4
5
6
7
8
 
Dim verif As Range
Dim rech As String
Dim zonerecherche As Range
 
Set zonerecherche = Sheets(site).Range("A1:DA2000")
Set verif = zonerecherche.Find(rech)
If verif Is Nothing Then

La valeur recherchée peut se trouver dans des cellules fusionnées comme dans des cellules non-fusionnées. Je ne souhaite pas dé-fusionner les cellules.

Lorsque la valeur se trouve dans une cellule non-fusionnée, tout fonctionne.

Lorsque la valeur se trouve dans une cellule fusionnée, le code ne la trouve.

Pouvez-vous m'aider svp?

[parmi]

Bonjour,

Je viens de faire le test et ça fonctionne bien avec des cellules fusionnées en autant que rech = quelque chose...
C'est peut-être un paramètre de ta fenêtre recherche Ctrl-F
Voir les options quand tu le fais manuellement

[gigalia]

Et bin en le fesant manuellement, je ne le trouve pas non plus. Et pourtant la valeur est la. J'ai essayé de jouer avec les options de Ctrl + F, mais rien n'y fait.

Et le pire, si je prend mes cellules fusionnées, que je les copie/colle autre part dans la feuille et que je fais la recherche, il le trouve.

[gigalia]

Cela provenait bien des critères de recherche. Ci joint le code final.

Code :

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

1
2
3
4
5
 
Set zonerecherche = Sheets(site).Range("A1:DA2000")
        Set verif = zonerecherche.Find(What:=rech, After:=Range("A1"), LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)

[parmi]

Probablement le xlPart qui était sur xlWhole...