Discussion :

[XceSs]

Bonsoir, je cherche à faire une macro qui me permet de vérifier si un mot existe dans la formule d'une cellule. J'ai essayé avec Like mais cela me donne toujours la même réponse :s

Merci de votre aide

Code :

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

1
2
3
4
5
6
7
'en A1 j'ai la formule suivante : ='Q:\PLANNING\[Planning 2014.xlsm]Planning'!B8
Fichier = "Planning 2014.xlsm"
if activesheet.range("A1").formula like Fichier then
 msgbox "Trouvé"
else
 msgbox "Non trouvé"
end if

[XceSs]

Code :

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

1
2
3
4
5
6
Fichier = "*Planning 2014.xlsm*"
if activesheet.range("A1").formula like Fichier then
 msgbox "Trouvé"
else
 msgbox "Non trouvé"
end if

[nibledispo]

Bonjour,

cela semble également convenir:

Code :

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

1
2
3
4
5
6
7
 
fichier = "Planning 2014.xlsm"
If InStr(1, [a1].Formula, fichier) <> 0 Then
   MsgBox "Trouvé"
Else
   MsgBox "Non trouvé"
End If