Tester la présence d'une formule dans une cellule

Bonjour,

:coucou: Franck :plusser: c'est bien d'avoir spécifié le 3ê état et les explications sont très claires

Citation:

---

Envoyé par patricktoulon

parcontre je viens de tester si j'ai pas de formule dans la plage elargie j'ai quand meme le message '"pas de cellules correspondante"

---

Oui Patrick je l'ai déjà dit dans l'un de mes posts

Menhir :

Citation:

---

C'est A2 qui est sélectionné, malgré le fait qu'on l'ai appliquée uniquement à A1.

---

Pour moi, et j'espère ne pas me tromper, c'est un comportement normal car SpecialCells prends en compte toutes les cellules d'une feuille, mais pour cela il faut lui spécifier une cellule / plage de départ …
et là on lui demande de trouver les cellules contenant une formule, A1 n'en contient pas, mais est le point de départ / adresse pour l'utilisation de SpecialCells.

Maintenant je pense qu'il pourrait y avoir des utilisations avec SpecialCells et Intersect … à voir …

Citation:

---

Envoyé par RyuAutodidacte

Pour moi, et j'espère ne pas me tromper, c'est un comportement normal car SpecialCells prends en compte toutes les cellules d'une feuille, mais pour cela il faut lui spécifier une cellule / plage de départ …
et là on lui demande de trouver les cellules contenant une formule, A1 n'en contient pas, mais est le point de départ / adresse pour l'utilisation de SpecialCells.

---

Peu importe que ce soit un comportement normal ou non.
C'est de manière évidente un comportement qui la rend inutilisable dans le cas présent jusqu'à preuve du contraire.

re
@ryu
tu a raison specialcells (avec une seule cellule) prend bien toute la feuille
met une/des formule(s) ou tu veux dans le sheets sauf en "B2" et teste ca

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() MsgBox EstFormule(Feuil1.[B2]) End Sub ' ' Function EstFormule(F As Range) As String 'On Error Resume Next EstFormule = F.SpecialCells(xlCellTypeFormulas).Address 'If Err Then EstFormule = False 'On Error GoTo 0 End Function

---

parti de la en effet le intersect est de rigeur
et la gestion d'erreur au cas ou il n'y a pas d'occurence et de rigueur aussi

par contre sur une plage 2 cells minimum specialcells donne les trouvée de la plage en parametre

Re Patrick,

Ce test là je l'avais déjà fait d'ailleurs j'ai parlé du pb dans ce post : https://www.developpez.net/forums/d1.../#post10384247

La réponse de Menhir dans le post #6 disant que l'on ne pouvait rien trouvé de fiable m'a titillé l'esprit par rapport à la réponse de Thautheme en post #2

Le post de Thautheme m'a rappeler le mécanisme SpecialCells(xlCellTypeFormulas) mais aussi m'a montré le défaut à pointer sur une cellule de son choix.
C'est pour cela que j'en suis venu à utiliser directement Intersect, seul moyen à ma connaissance de restreindre SpecialCells(xlCellTypeFormulas) à la cellule/plage de son choix
Il manquait plus qu'à résoudre le problème de l'erreur que j'ai rencontré ICI mais vite résolu LÀ

Bien entendu c'est une solution non conventionnelle qui nous a permis de triturer SpecialCells(xlCellTypeFormulas) :mrgreen: mais qui marche.

Et je rejoins Franck qui a tout a fait raison sur le fait que la fonction ne peut être Boolean, mais de type Variant afin d'avoir, dans un premier temps, les états que sont :
True , False et Null

L'utilisation de HasFormula est pré-requis afin de savoir si une cellule ou une plage contient une/des formule(s) pour la cellule/toutes les cellules/une partie des cellules (en plus il n'y a pas de gestion d'erreur)

Alors que peut on faire d'intéressant avec SpecialCells(xlCellTypeFormulas) seul et avec intersect en sus :

- avec SpecialCells(xlCellTypeFormulas) seul => Vérifier si il existe des formules dans une feuille (on l'a vu avec l'erreur) => cela éviterai de vérifier par exemple plusieurs cellules par ci par là dans une feuille dans le cas où il n y a pas de formules

- a) avec SpecialCells(xlCellTypeFormulas) et Intersect => Vérifier si il y a une/des formule(s) dans une cellule/plage (revoir le comportement en type variant pour prendre en compte tous les cas)

- b) avec SpecialCells(xlCellTypeFormulas) et Intersect => Connaitre le nombre de cellules concernées par une formule dans une plage que l'on aura déterminée

- c) avec SpecialCells(xlCellTypeFormulas) et Intersect => Obtenir les adresses des cellules contenant une formule voir créer un plage qu'avec les cellules concernées dans une plage que l'on aura déterminée

… … … à voir, à explorer

Voilà

PS : je le re-dis dans un premier temps l'utilisation de HasFormula est conseillé

re
oui je suis d'accords "hasformula" et fait pour ca
j'ai trouvé la tripatouille de specialcells interessante tout de meme
mais perso j'ai toujours utilisé hasformula
je vais lancer un sujet similaire demain avec autofilter et specialcells pour voir si d'autre ont une solution mieux que la mienne
j'ai vu quelques exemple ici et la mais qui n'a rien a voir avec ma methode
encore un debat en perspective
A demain

Bonjour,

pour moi Intersect ne présente un intérêt que pour tenter de contourner l'impossibilité de SpecialCells sur une plage d'une cellule.
En vba pur et sur une plage de plusieurs cellules aucune raison de faire des contorsions.
Quand à son utilisation dans une fonction sur feuille il semble raisonnable de le bannir.
eric