XL 2016 vba si cellule ne contient pas un mot dans un texte

[Usine à gaz]

Bonjour à tous et à tous,

je butte sur un nouveau souci
Malgré mes recherches et tentatives, je n'ai pas trouvé le bon code.

J'ai besoin, en vba, de tester si une cellule contient ou ne contient pas un mot.

Pour tester si la cellule contient le mot, pas de souci :

Sub contient()
If [f7].Value Like "*OK*" Then
    [h7] = "F7 contient OK"
End If
End Sub

C'est si NE contient PAS qui me pose problème

Sub ne_contient_pas()
If [f14].Value Like "*OK*" Then
    [h14] = "F14 NE contient PAS OK"
End If
End Sub

Je n'arrive pas à modifier "If [f14].Value Like "*OK*" Then" pour coder "si ne contient pas "*OK*"
Auriez-vous la solution ?
Je joins un fichier test.

Un grand merci à vous toutes et tous,
Je vous souhaite une belle journée,
Amicalement,
arthour973

 

[job75]

Bonjour Lionel,

On peut aussi utiliser la fonction CHERCHE (la casse est ignorée) :

Sub OK()
[H14] = IIf([ISERROR(SEARCH("OK",F14))], "F14 ne contient pas OK", "F14 contient OK")
End Sub

A+

 

[Victor21]

Bonjour, arthour973.

Je n'ai pas testé

Sub ne_contient_pas()
If not [f14].Value Like "*OK*" Then
    [h14] = "F14 NE contient PAS OK"
End If
End Sub

Trop simpliste ?

Edit : Bonjour Gérard

 

[Usine à gaz]

Bonjour, Gérard,
Bonjour Victor21,

Merci pour m'avoir encore une fois répondu

Je teste et je reviens.
Lionel,

 

[Usine à gaz]

Re Gérard, Victor21, le Forum,

Les 2 codes fonctionnent et je vous en remercie.
je les intègre dans mon fichier de travail ce soir et je vous dirai.
lionel,

 

[Usine à gaz]

Re-Bonjour,

ça ne fonctionne pas dans mon classeur mais c'est certainement de ma faute LOL.
J'ai voulu faire un fichier test mais en fait, j'aurais peut-être du commencer par vous envoyer
le morceau de code que je souhaite modifier dans mon classeur :

If Not Target Like ("www*") Then
   Else
   Target = ""
   MsgBox ("Vous avez copié le lien : C'est l'annonce qui est à copier dans cette cellule !" & nbcel)
   Target.Offset(0, 1).Select
   Application.EnableEvents = True
   Application.ScreenUpdating = True
   ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
   ActiveSheet.EnableSelection = xlNoRestrictions
   formules_suivisappels
end if

J'ai besoin de modifier cette ligne "If Not Target Like ("www*") Then" pour que :
- si pas de "www" dans la cellule, passe à la ligne "end if",
- si "www" contenu dans la cellule il passe à la ligne "else"

Un grand merci pour votre patience
lionel,

 

[job75]

Re, salut Patrick,

Qu'est-ce qui pose problème dans ton code ? Bien sûr Target doit être constituée d'une seule cellule.

A+

 

[Usine à gaz]

Bonsoir,

J'ai été très occupé et je suis très fatigué LOl.

J'ai péniblement refait un fichier test pour expliquer mieux ce qui ne va pas.
Je le joins.
Encore merci vraiment de ta patience
lionel,

 

[Usine à gaz]

Bonjour Gérard,
Bonjour à toutes et à tous,

En fait, j'y suis presque. C'est uniquement le contrôle de la col R qui ne fonctionne pas si le lien a été copié au lieu de l'annonce.

Il devrait écrire : c'est l'annonce qu'il faut copier en col R
alors qu'il m'écrit : annonce OK
comme si l'annonce y était.
Je continue à chercher

Bonne journée à toutes et à tous,
Amicalement,
lionel,

 

[job75]

Bonjour Lionel, le forum,

Pour la colonne R tu as écrit If Not Target Like ("www*") Then

il manque un astérisque, écris If Not Target Like "*www*" Then

Bonne journée.

 

[Usine à gaz]

Bonjour Gérard,

Je ne sais quoi dire, je suis nul ou trop fatigué ... ou trop vieux LOL
Evidemment, ça marche maintenant.
Merci Gérard, je te prie de m'excuser de t'avoir fait perdre du temps car j'aurai du le voir ça

Bonne et belle journée,
lionel,