TextBox et saisie semi automatique

Version imprimable

09/11/2008, 17h49
Jabveneau

TextBox et saisie semi automatique

Bonjour a vous tous

Je bosse avec Excel 2003 et donc avec VBA , quand j'y arrive ! …

En l'occurrence , je sèche a nouveau sur un petit problème :

Dans une Userform composées de combobox , de listbox et de TextBox , j'aimerais que ces contrôles fonctionnent avec "saisie semi automatique" a partir d'une liste-source ; un peu comme les cellules des feuilles Excel .
Pour les Combobox et les ListBox : pas de problèmes , l'association des propriétés "Rowsource" et "MatchEntry" fait très bien l'affaire mais pour les TextBox : rien de rien … Auriez vous une idée pour contourner le problème ?

Merci beaucoup et à bientôt
09/11/2008, 19h22
ucfoutu

Bonjour,

C'est réalisable, à coup de diverses acrobaties ... mais pour quel(s) résultat(s) autre qu'une gêne accrue assurée pour l'utilisateur !!!

Si tu y tiens, voilà le principe :
- utilisation de l'évènement Change de la TextBox
- jeu Visible/non visible d'une listbox contenant les mots proposés lors de l'avancement de la frappe
- repérage du dernier espace ou guillemet (hé oui) présent pour décider d'une nouvelle recherche
- etc... etc...
Bref... une véritable acrobatie et un empoisonnement de l'existence de l'utilisateur ...
17/11/2008, 19h38
Jabveneau

Ah bin tiens ! , j'ai du oublié de cocher qu'on me prévienne en cas de réponse ...

Euh ... bonjour ucfoutu

Alors , j'ai commencé à contourner le problème plus ou moins comme tu proposes mais bon , c'est vrai que c'est un peu tordu comme combine ...

Mais je ne comprend pas pourquoi en étudiant ma demande , tu semble dubitatif , et VbA carrément réticent ?
ce n'est pas par goût de la polémique que je te pose la question , mais je me dis que peut être j'ai une utilisation inadéquate de ce contrôle qui expliquerait que ...
Après tout , la saisie automatique des cellules dans Excel est une option bien pratique , je ne pige pas pourquoi ça te semble :
"une gêne accrue assurée pour l'utilisateur !!!" dans le cas des textbox ?

A plus tard et encore merci ....
17/11/2008, 20h03
ucfoutu

parce que l'utilisateur sera sans cesse "sollicité" par une entrée "complétée"... et devra sans cesse accepter ou refuser que ton "automatisme" se substitue à lui.
Parce qu'il te faudra, à chaque fois, regarder quel est le dernier "séparateur" de mot (espace, virgule, point-virgule, deux-points, point d'exclamation, point d'interrogation, guillemet, etc...) pour savoir où commence ton mot pour lequel tu voudrais faire une "proposition" de complétion.
Parce que les mots ont en français (comme dans d'autres langues) un pluriel, un singulier, un masculin et un féminin.
Parce que les verbes sont conjugables et qu'il est désagréable de se voir proposer, par exemple, un participe passé lorsque l'on souhaite un participe présent...ou le contraire....
etc... etc...
et ton utilisateur en "aura très vite sa claque" de tes propositions "freinantes" de complétion ne correspondant pas à ce qu'il veut rédiger...
Il en va très différemment en ce qui concerne une listbox ou une combobox qui ne sont que des listes d'articles "proposables", que l'on ne sélectionne que si l'on est d'accord pour les sélectionner.
Voilà pourquoi, ami... (et celà n'a presque rien à voir avec le développement, mais énormément avec l'analyse de l'ergonomie atteinte).
Après, ma foi, tu fais comme tu l'entends... (et retrousse alors tes manches au dessus du coude et achète un gilet pare-balles, en prévision des réactions de tes clients.....) :lol:
17/11/2008, 20h56
JackOuYA

bonsoir, Jabveneau

Si le choix de tes utilisateurs se limitent à une liste , tu n'as qu'as utiliser une listbox dont-tu n'affiche qu'un seul élément.

Salut,

voici une acrobatie de proposition de textbox en autocompletion.

à mettre dans le module de code du formulaire avec une txtbox nommée txtInput.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
' rentre ici la plage des données en autocomplétion
Private Const r As String = "A1:A11"
Private sInput As String
' variable de blocage de la procédure Change
Dim blnStop As Boolean
 
Private Sub txtInput_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
' gestion des touches d'effacement
    If (KeyCode = vbKeyBack) Or (KeyCode = vbKeyDelete) Then
        blnStop = True
    Else
        blnStop = False
    End If
 
End Sub
 
Private Sub txtInput_Change()
    Dim sWord As String
 
    If blnStop Then
        blnStop = False
    Else
        sInput = Left(Me.txtInput, Me.txtInput.SelStart)
        sWord = GetFirstCloserWord(sInput)
        If sWord & "" <> "" Then
            blnStop = True
            Me.txtInput.Text = sWord
            Me.txtInput.SelStart = Len(sInput)
            Me.txtInput.SelLength = 999999
        End If
    End If
 
End Sub
 
Private Function GetFirstCloserWord(ByVal Word As String) As String
 
    Dim c As Range
    For Each c In ActiveSheet.Range(r).Cells
        If c.Value Like Word & "*" Then
            GetFirstCloserWord = c.Value
            Exit Function
        End If
    Next c
    Set c = Nothing
 
End Function

17/11/2008, 22h56
JackOuYA

:king:
18/11/2008, 00h23
Jabveneau

Oh my God , toutes ces réponses !!!!!

pour ta proposition de code , Caféine , je regarde ça demain car il me faut un peu de temps ...

Et sinon , ucfoutu , ... devant la difficulté de faire des textbox à "saisie semi automatique" je les ai remplacé par des combobox qui marchent précisément comme je veux ... les 2 seules petites contrariétés étant la petite flêche ( qui en l'occurence ne m'interesse pas ), servant à développer la liste-source et que j'aurais préféré ne pas voir ... , et le fait qu'un combobox n'est pas "multiligne" .

Manifestement , j'ai du mal expliquer ce que je cherche à faire car ce que tu décris ressemble à la saisie automatique des sms des téléphones portables et du coup , tu me liste des problèmes que je ne rencontre pas le moins du monde avec mes combobox "détournées" ...
Ma cliente étant ma frangine infirmière remplaçante , je décris le problème qu'elle rencontre :
elle arrive pour faire un remplacement dans un nouveau coin couvrant par exemple une dizaine de commune
il lui faut remplir sa liste "Patients" grace a l'userform (nom , prénom , et de multiples détails ... par exemple le nom du village du patient :

1er patient : elle tape intégralement le nom de la ville : "Chambourg"
(la liste-source vide à l'ouverture de ce dossier incorpore alors ce premier village)

2iè patient : elle tape intégralement le nom de la seconde ville "Reignac"
(la liste-source incorpore alors ce second village )
etc etc ...

très rapidement , elle retombe sur les mêmes villages et grâce aux contrôles a saisie automatique , "Chambourg" est proposé dès la frappe de la lettre "C" , ou "Ch" dans le cas d'un autre village de la liste nommé "Cristol"

Tu penses bien qu'il est totalement exclue de "brancher" le controle sur une liste-source constituée des 38800 communes française , mais bien plutôt de fabriquer la liste-source au fur et à mesure des entrées successives
Tu conviendras aussi qu'une combobox "classique" , avec sa liste-source déroulante n'est pratique que si la liste-source proposée est assez complête , et son éventuelle modification plutôt rare... mais dans le cas présent où le proportion "nouveau village" / "village déjà inscrit dans la liste-source " va être assez équilibrée , l'utilisation d'une combobox est plus laborieuse

Ce que je te décris là est précisément le fonctionnement des cellules de feuilles Excel , qui te propose "Leroy Merlin" au moment de la frappe "L" si ( et uniquement si ) tu as rentré ce nom dans une de tes cellule précédentes

Voilà , on peut imaginer que ça marche comme ça pour le contrôle "Ville" , mais aussi pour le contrôle "Adresse" car il lui arrive souvent d'avoir plusieurs patients dans le même hameau ou la même maison de retraite ... comme tu le vois , c'est précisément dans un souci d'ergonomie que je cherche la formule "magique" ...

Désolé pour ce roman ... et grand merci à tous

YackOuYa , bonjour ... , si ça te gonfle pas trop de lire les aventures de ma soeur , ci dessus , tu y trouveras les raisons qui font que ta proposition ne colle pas ... néanmoins , bises et merci ...

Citation:

Envoyé par cafeine

Salut,

voici une acrobatie de proposition de textbox en autocompletion.

à mettre dans le module de code du formulaire avec une txtbox nommée txtInput.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
' rentre ici la plage des données en autocomplétion
Private Const r As String = "A1:A11"
Private sInput As String
' variable de blocage de la procédure Change
Dim blnStop As Boolean
 
Private Sub txtInput_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
' gestion des touches d'effacement
    If (KeyCode = vbKeyBack) Or (KeyCode = vbKeyDelete) Then
        blnStop = True
    Else
        blnStop = False
    End If
 
End Sub
 
Private Sub txtInput_Change()
    Dim sWord As String
 
    If blnStop Then
        blnStop = False
    Else
        sInput = Left(Me.txtInput, Me.txtInput.SelStart)
        sWord = GetFirstCloserWord(sInput)
        If sWord & "" <> "" Then
            blnStop = True
            Me.txtInput.Text = sWord
            Me.txtInput.SelStart = Len(sInput)
            Me.txtInput.SelLength = 999999
        End If
    End If
 
End Sub
 
Private Function GetFirstCloserWord(ByVal Word As String) As String
 
    Dim c As Range
    For Each c In ActiveSheet.Range(r).Cells
        If c.Value Like Word & "*" Then
            GetFirstCloserWord = c.Value
            Exit Function
        End If
    Next c
    Set c = Nothing
 
End Function

Pas mal ça, mais il faut avoir une feuille Excel fichtrement remplie! A voir: une variante qui affiche toute une liste de propositions dans une listbox et d'insérer l'élément de listbox sélectionné dans la textbox.

18/11/2008, 22h19
Jabveneau

Re bonjour a vous tous

Bonne nouvelle : je crois qu'on peut considerer le problème comme résolu , car le code proposé par Caféîne marche , a première vue , nickel ... c'est exactement ce que j'imaginais ...

Et comme , en prime , dans le code que tu proposes , il y a un certain nombre de trucs totalement nouveaux pour moi , je suis paré pour les longues soirées d'hiver qui s'annoncent ... j'ai de quoi me gratté la tête au coin de la cheminée , un bon bout de temps , en essayant de comprendre le comment du pourquoi ..
Donc rendez vous au printemps ! ...

Hip hip hip pour Caféîne et grand merci a vous tous , de vous être penché sur mes petits soucis et sur ma soeur ....