Valeur de cellule = ü, alors USF.CheckBox1 cochée

[Halffy]

Bonsoir à tous, en cette soirée de Dimanche, (ça annonce le début de la semaine, ça!😛)

Halffy, le retour 😀
En effet, lier une cellule à une CheckBox True ou False... je maitrise quelque peu 😱 /
Mais lier une CheckBox True ou False, à la valeur d'une cellule... je suis perdu 🙁
D'où mon problème exposé brièvement dans le titre: Si valeur de cellule = ü ==> alors CheckBox UserForm cochée.
Oui facile à exposer, mais comment faire???
Ci-joint un fichier pour de plus amples explications si nécessaire.
Avec tous mes Remerciements, par avance.

 

[Papou-net]

Re : Valeur de cellule = ü, alors USF.CheckBox1 cochée

Bonsoir halffy,

Voici les lignes à insérer dans le code du TextBox1_Change :

Private Sub TextBox1_Change()
[COLOR="RoyalBlue"]Set Term = Sheets("Liste").Range("E:E").Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Term Is Nothing Then Exit Sub
Select Case Sheets("Liste").Cells(Term.Row, 14)
  Case "ü"
    CheckBox1 = True
  Case Else
    CheckBox1 = False
End Select[/COLOR]
End Sub

Espérant avoir répondu.

Cordialement.

 

[Hulk]

Re : Valeur de cellule = ü, alors USF.CheckBox1 cochée

Hello,

Avant d'aller au dodo... si j'ai bien compris, comme ceci c'est pas bon ? (plus court)

Private Sub TextBox1_Change()
 
 For Each x In Range("E3:E" & Range("E65536").End(xlUp).Row)
     If x.Offset(0, 9).Value = "ü" Then CheckBox1 = True Else CheckBox1 = False
 Next x

End Sub

Bonne nuit à tous !

 

[Halffy]

Re : Valeur de cellule = ü, alors USF.CheckBox1 cochée

Bonjour Papou-net, Hulk,

Je vous remercie avant tout, pour votre aide premièrement; et vous confirme donc la bonne marche de vos macro dans le fichier joint.

Toutefois...😀 (Il y a toujours un toutefois) 😛:
Hulk, après avoir ajouté ta solution à l'ensemble de mon projet, cela ne beug pas... mais le résultat escompté n'est pas là non plus 😱

Mais...😀 (Il y a toujours un mais) 😛, Papou-net, ta macro, elle, assemblée au projet m'apporte entière satisfaction 🙂

En conséquence, je vous remercie tous les deux, vous ne déméritez pas; et votre aide nous est toujours aussi précieuse lorsqu'on cherche depuis un certain temps.

Alors encore Merci à vous deux / Je vous souhaite une bonne journée... surtout peut-être un bon courage, si comme moi, vous n'êtes toujours pas en retraite 😛
Merci Messieux / Je clos le sujet.
Halffy /.