test sur le contenu d'une formule

[sri75]

Bonjour, je reçois des fichiers excel où des personnes doivent saisir des données dans des cellules.

Parfois au lieu de données les personnes saisissent des formules de type =5+3 ou =A1+b2 ou des caractères - / a b etc...

je recherche donc une macro qui parcourrait ma plage en recherchant un caractère que je lui indiquerai dans une variable.

ex : marecherche=inputbox....

Quand une cellule contenant le caractère recherché serait trouvée, la cellule serait coloriée en bleu.


dans mon fichier les + sont dans f23 et h26

Merci à tous pour votre aide

 

[Paf]

Re : test sur le contenu d'une formule

Bonjour,

Dans la Sub rechnoktrans(), remplacer la boucle For Each r In plage par celle ci:

For Each r In plage
    If r.Formula Like "*" & toto2 & "*" Then
        r.Interior.ColorIndex = 7
    End If
Next r

A+

 

[PMO2]

Re : test sur le contenu d'une formule

Bonjour,

Dans la mesure où vous voulez obtenir les valeurs des données, il est plus simple de faire un copier/coller par valeurs de la feuille entière.
Si c'est bien cela que vous voulez obtenir, voici un code simple

Sub aa()
Dim S As Worksheet
ActiveSheet.Copy after:=ActiveSheet
Set S = ActiveSheet
S.Cells.Copy
S.Cells.PasteSpecial Paste:=xlPasteValues
S.[a1].Select
Application.CutCopyMode = False
End Sub

 

[sri75]

Re : test sur le contenu d'une formule

Problème résolu, merci à tous et bonne journée