Discussion :

[DeaD78]

Bonsoir !

J'ai un problème un peu bête

Je fais un classique :

Code :

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

1
2
3
4
5
6
  For l = 10 To Cells(65536, "B").End(xlUp).Row
         Set e = Cells(l, "B").Find(What:="INTERFACE : A définir", lookat:=xlPart)
         If Not e Is Nothing Then
               MsgBox l
         End If
  Next

Le problème c'est que les cellules où je peux trouver les résultats de mon .Find sont toutes fusionnées de B à V. Comment puis-je donc obtenir quelque chose ? Si je mets une simple condition, par contre, sur un

Code :

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

Range("B" & l)

, je trouve un résultat.

Une idée?

Merci d'avance.

[DeaD78]

C'est bon, en fait, je me suis débrouillé comme ça :

Code :

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

1
2
3
4
5
6
With ActiveSheet.UsedRange
                    Set e = .Find(What:="INTERFACE : A définir", lookat:=xlPart)
                    If Not e Is Nothing Then
                        Range(e.Address) = Replace(e, "A définir", Sheets(6).Cells(k, "D").Offset(0, 1).Value)
                    End If
                End With