Discussion :

[cyber_N]

Bonjour tous,

J'utilise la procedure .Find de l'objet RANGE, mais dans le find(....)
et pour l'argument "What" il faut indiquer une valeur or, moi, je souhaiterais utiliser un test: je souhaiterais en fait trouver toutes les cellules qui sont différentes de "Vide" (cellules blanches) et pas une valeur fixe!

merci encore

[SfJ5Rpw8]

tiens je me suis laissé emporté et voila :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'
' Macro1 Macro
' Macro enregistrée le 05/05/2006 parbbil
'
Dim c As Range
Dim u As Range
 
  With ActiveSheet.Cells 'Recherche dans la feuille courante ..
 
    'Recherche une cellule 'contenant quelque chose ... * '
    Set c = .Find(What:="*", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
 
   If Not c Is Nothing Then 'Si on à trouvé quelque chose
        firstAddress = c.Address 'mémorise 1° adresse trouvé
 
        Do  'boucle tant que trouve...
            If c.HasFormula Then 'Si la cellule trouvé contient une formule
                If u Is Nothing Then
                  Set u = c
                Else
                   Set u = Union(u, c) 'Rajout à la plage ..
                End If
 
            End If
             Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
  End With
 If u Is Nothing Then
   MsgBox "Aucune formule trouvé"
 Else
  u.Select 'Selectionne formule
 End If
 End Sub

[cyber_N]

Cool! Merci à toi bbil!
C'est ce que je recherchais!