Tester dans formule

[Temjeh]

Bonjour et merci d'avance

J'ai une formule comme celle-ci: =SI(SOMMEPROD(NB.SI(List;E3863:E3891));"";"Aucun")

...Sur des centaines de bloc.
Ces chiffres sont variable mais facile pour moi d'avoir le départ et la fin car il sont entre 2 lignes de couleur.
Donc pas besoin de plus.

Je cherche juste à faire un test car à l'occasion la plage n'est pas bonne.


En VBA j'aimerais tester ici si 3863 est présent et 3891 dans la formule

Temjeh

 

[job75]

Re : Tester dans formule

Bonjour Temjeh,

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 :

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+

 

[Temjeh]

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

 

[Temjeh]

Re : Tester dans formule

Rebonjour

Juste cette ligne n'est pas bonne

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


Temjeh

 

[Temjeh]

Re : Tester dans formule

Ok ca semble bon

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

Merci beaucoup pour ton temps

Temjeh

 

[job75]

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+