Tester dans formule

job75

XLDnaute Barbatruc

• 21 Avril 2015

• #2

Re : Tester dans formule

Bonjour Temjeh,

Code:

Dim c As Range, f$
Set c = [A1] 'pour tester
f = c.Formula
MsgBox "3863 est " & IIf(InStr(f, "3863:"), "présent", "absent") _
  & vbLf & "3891 est " & IIf(InStr(f, "3891)"), "présent", "absent")

Edit : peut-être mieux :

Code:

Dim c As Range, f$
Set c = [A1] 'pour tester
f = c.Formula
MsgBox "E3863 est " & IIf(InStr(f, ",E3863:"), "présent", "absent") _
  & vbLf & "E3891 est " & IIf(InStr(f, ":E3891)"), "présent", "absent")

A+

 

Dernière édition: 21 Avril 2015

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 21 Avril 2015

• #3

Re : Tester dans formule

Merci beaucoup, impeccable

J'ai juste de la difficulté à y mettre le no de ligne variable

Par un test de ligne j'ai ma ligne de départ et celle de fin:

r (row pour le départ)
s (row pour la fin de plage)
Ma formule est juste après la plage de là s + 1

Set c = "[E" & s + 1 & "]"
f = c.Formula
MsgBox r & IIf(InStr(f, r & ":"), "présent", "absent") _
& vbLf & s & IIf(InStr(f, s & ")"), "présent", "absent")

...pas bon

Temjeh

 

Dernière édition: 21 Avril 2015

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 21 Avril 2015

• #4

Re : Tester dans formule

Rebonjour

Juste cette ligne n'est pas bonne

Set c = "[E" & s + 1 & "]"


Temjeh

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 21 Avril 2015

• #5

Re : Tester dans formule

Ok ca semble bon

c = Range("E" & s + 1)

Merci beaucoup pour ton temps

Temjeh

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Avril 2015

• #6

Re : Tester dans formule

Re,

Il vaut mieux utiliser la 2ème solution de mon post #2.

J'avais mis InStr(f, ";E3863:" c'est bien sûr InStr(f, ",E3863:"

A+

 

Vote positif 0 Vote négatif