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

job75

XLDnaute Barbatruc

• 17 Avril 2019

• #2

Bonjour Lionel,

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

VB:

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

A+

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 17 Avril 2019

• #3

Bonjour, arthour973.

Je n'ai pas testé

Code:

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

 

Dernière édition: 17 Avril 2019

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 17 Avril 2019

• #4

Bonjour, Gérard,
Bonjour Victor21,

Merci pour m'avoir encore une fois répondu

Je teste et je reviens.
Lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 17 Avril 2019

• #5

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,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 17 Avril 2019

• #6

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 :

VB:

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,

 

Dernière édition: 17 Avril 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Avril 2019

• #7

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+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 17 Avril 2019

• #8

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,

 

Pièces jointes

• cellule_contient_mot_ou pas.xlsm

  18.7 KB · Affichages: 9

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 18 Avril 2019

• #9

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,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Avril 2019

• #10

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 18 Avril 2019

• #11

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,

 

Vote positif 0 Vote négatif