Discussion :

[wilfried_42]

Bonjour à tous

Ce que je cherche à faire c'est de colorier les cellules qui contiennent telle fonction.
Pour aller plus vite j'utilise l'instruction Find (qui semble fonctionner) sur les formules
mais finalement, à l'execution il me sort une erreur : Error 424 - Objet Requis et là je ne comprends pas pourquoi !!!
voici ma procédure (Procédure évennementielle Calculate)
La ligne en rouge est la ligne en erreur (c'est la que je ne comprends pas)

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
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Dim mem As Range
    Dim cellule As Range
    Dim premiere As Range
    Set mem = ActiveCell
    With Sheets("Feuil1").Cells
        Set cellule = .Find(What:="Quelle_Mfc", LookIn:=xlFormulas, LookAt:=xlPart)
        If Not cellule Is nothig Then
            While cel.Address <> premiere.Address
                If premiere Is Nothing Then Set premiere = cellule
                cellule.Interior.ColorIndex = 3
                Set cellule = .FindNext(after:=cellule)
            Wend
        End If
    End With
End Sub

Pour savoir si ma Formule Fonctionne, j'ai mis cela tout simplement

Code :

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

1
2
3
Function Quelle_Mfc(Target As Range) As Integer
    Quelle_Mfc = Target.Value
End Function

dans ma recherche, cellule contient bien la valeur de la cellule mais il n'est pas reconnu comme un objet alors qu'il est défini Range et que l'instruction Set est bien utilisée !
Par contre, je ne suis pas familier de l'instruction Find.

Merci d'avance pour l'aide apportée.

[ouskel'n'or]

Eh ! Tu t'es relu ? "nothig" c'est quoi ?

[wilfried_42]

bonjour ouskel'n'or

, on a beau se relire, le neurone fait des traductions automatiques

C'est bien cela, Je dois perdre un peu la boule, cela m'est deja arriver de passer sur des erreurs grossières et de ne pas les voir (surtout quand ce sont les miennes) .

Finalement, j'aurait pu y passer des heures.... Merci beaucoup^pour cette aide

à bientôt
Amicalement