Discussion :

[SmOkEiSBaD]

Bonjour à tous,
Je ne code pas en VBA mais vous pourrez surement m'aider
Voici mon prblème :
Je recherche une cellule dans laquelle il y a une opération Excel (Donc commence par =, exemple : =PRODUIT(...))
Donc pour ce faire je fais cet appel de la fonction find :

Code :

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

range.Find(CString("="), vMissing, vMissing, SEARCH_PART, SEARCH_NEXT, SEARCH_BY_ROW, vMissing, vMissing, vMissing);

SEARCH_PART correspond à la valeur 2 comme expliqué par Microsoft dans ce lien : http://msdn.microsoft.com/en-us/library/bb241368.aspx

SEARCH_NEXT correspond à la valeur 1 et dit que l'on cherche dans les cellules suivantes et non les précédentes

SEARCH_BY_ROW correspond à la valeur 1 et dit que l'on cherche par ligne et non par colonne

Mon range à 3 colonnes et 1 seul ligne, je selectionne ce Range grâce à la méthode GoTo("Nom de mon Range") de la classe CApplication0.

La dernière Cellule de mon Range possède une Opération, je trouve donc quelque chose avec cette fonction.

Jusque là je pense que tout fonctionne correctement.

Je récupère le Range renvoyé par la fonction find dans un range temporaire comme ceci :

Code :

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

tmpCell = range.Find(CString("="), vMissing, vMissing, SEARCH_PART, SEARCH_NEXT, SEARCH_BY_ROW, vMissing, vMissing, vMissing);

Puis c'est maintenant qu'il y a un soucis, j'éssaye donc de récupérer la formule qui est dans le Range temporaire. Pour ce faire j'ai essayé les fonctions :
- get_Value
- get_Formula
- get_FormulaArray
Mais sans succès. J'ai tracé avec le debug, c'est bien cette ligne qui plante, aucune de ces fonctions ne marche pourtant tmpCell n'est pas NULL.

Est-ce bien l'une de ces fonctions qu'il faut utiliser ?
Laquelle ? Comment l'utiliser ?

Merci.

[fring]

Bonjour,

Ne sachant pas ce que tu comptes faire de la formule récupérée, si tu as plusieurs cellules qui contiennent des formules, quelle formule dans ce cas là, etc..., voici un exemple simpliste qui pourra peut-être t'inspirer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim C As Range, Plage As Range
 
Set Plage = Range("A1:A20")
 
Set C = Plage.Find(What:="=", LookIn:=xlFormulas, LookAt:=xlPart)
 
If Not C Is Nothing Then
    MsgBox C.Formula
End If
 
End Sub

Dans ce cas la première formule trouvée sera affichée

[SmOkEiSBaD]

Bonjour,
Merci pour ton exemple qui me précise 2-3 trucs.
Mon problème est la valeur du paramètre LookIn, en effet je ne trouve pas la valeur de xlFormulas dans la msdn de microsoft (et oui les MFC ne supporte pas les énumérations Excel, il faut donc que je mette la valeur en dur)

Merci.

[SmOkEiSBaD]

C'est bon je l'ai trouvé.
Alors tout à l'air de fonctionner, j'arrive à récupérer une cellule, mais après je n'arrive pas à afficher la formule.
La formule est stockée dans la cellule et se récupère avec un get_value ?
Ou il faut utiliser le Array ?

Merci.

[SmOkEiSBaD]

J'ai trouvé c'est avec la fonction get_Formula de la calsse CRange que j'ai pu récupérer la formule.

Merci pour ton exemple, cela m'a permis de m'en sortir et de comprendre comment cela fonctionnait.