Discussion :

[capi81]

Salut le forum

J'ai besoin de votre aide pour résoudre un problème.
En effet, il arrive que dans certains de mes textbox, je saisisse un mot ou en ensemble de mot. obligatoirement dans ces textbox, un des mots de la plage PARAMETRE!V394:W623 devra y être saisi.
Je souhaite que lorsque un des éléments de la plage définie ne figure dans ces textbox, qu'il y'ait blocage c'est à dire qu'on ne puisse pas aller au control suivant.
Merci de voir le fichier joint
http://cjoint.com/?CCEmXBGZMfn

[mercatog]

Bonjour

Essaies l'évènement BeforUpdate

Quelque chose comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox12_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim c As Range
 
Set c = Feuil1.Range("V394:W623").Find(Me.TextBox12.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
    Set c = Nothing
Else
    Cancel = True
    MsgBox "Mot clé manquant ou mal écrit"
End If
End Sub

[capi81]

Salut Mercatog

Merci pour votre solution.
Comme d'habitude tout ce que vous proposez est fort appréciable.
Il manque une ou deux conditions à intégrer:
Je constate que lorsque le textbox est vide en faisant ENTER, il passe au textbox suivant;ce qui n'est pas bien.
Pouvez-vous faire en sorte que lorsque le textbox est vide ou ne contient pas le mot clé de la plage indiquée, qu'il y'ait blocage pour aller aux textbox suivants?
J'ai ajouter d'autres textbox dans le fichier joint
merci
http://cjoint.com/?CCEoXvkOeAN

[patricktoulon]

Bonjour

si le mot doit ce trouver parmi plusieur dans le textbox tu devrais utiliser la fonction "Like" avec les jocker "*" en prefixe et sufixe de l'argument

Au plaisir

[capi81]

Salut Patrick

Merci pour votre contribution.
Avez-vous regardé les autres critères que j'ai ajouté?
La solution de mercatog marche mais devrait prendre en compte d'autres critères. dans sa solution, lorsque le textbox est vide, on peut aller au textbox suivant ce qui n'est pas bien.
C'est ce que je souhaite qu'on intègre dans la solution de Mercatog.
Encore merci à vous

[mercatog]

Utilise l'évènement Exit (comme tu l'as essayé au début)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim c As Range
 
Set c = Feuil1.Range("V394:W623").Find(Me.TextBox12.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
    Set c = Nothing
Else
    Cancel = True
    MsgBox "Mot clé manquant ou mal écrit"
End If
End Sub

[capi81]

Salut Mercatog et le forum

Ca marche avec exit mais j'ai constaté un disfonctionnement.
En saisissant un ensemble de mot, je remarque qu'il y'a blocage.
Je pense qu'il y'a lieu d'intégrer l'avis de patrictoulon :

si le mot doit ce trouver parmi plusieur dans le textbox tu devrais utiliser la fonction "Like" avec les jocker "*" en prefixe et sufixe de l'argument

Divers:
Si c'est pas trop abuser de votre temps et si ce que je demande est réalisable: est-il possible de faire en sorte que quand bien les conditions ne sont pas reunies, qu'on puisse revenir en arrière mais pas avant?