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?