Discussion :

[malaju]

Bonjour,
Je suis en train de réaliser un conjugueur pour verbes en langue provençale. Le principe est le suivant : l'utilisateur tape le verbe dont il veut connaitre la conjugaison dans une zone de liste. Dans le champ d'à coté s'affiche le verbe de référence pour la conjugaison de son verbe (exemple le verbe "afaire" se conjugue comme le verbe "faire").*L'utilisateur n'a plus alors qu'à cliquer sur un des boutons en dessous pour afficher la conjugaison (conjugaison complète, mode indicatif, mode subjonctif, mode conditionnel-impératif).
Tout cela fonctionne parfaitement mais il reste un problème que je n'arrive pas à résoudre. La langue provençale utilise beaucoup de voyelles accentuées dont certaines ne sont pas sur les claviers AZERTY.*Pour écrire ces lettres, il faut soit passer par l'insertion de symboles (qui n'est pas possible dans le champ de liste déroulante) soit faire [Alt]+code ASCII de la lettre souhaitée (exemple pour Ó il faut faire [Alt]+224).*Le problème est que les utilisateurs ne connaissent pas tous nécessairement tous les codes ASCII des caractères.*Aussi pour leur simplifier la tâche j'ai eu l'idée de créer des boutons (touches) des principales lettres accentuées utilisées en provençal.*Il suffit alors lorsque l'on doit entrer une lettre accentuée de cliquer sur la touche correspondante pour que la lettre s'insère à l'emplacement du curseur dans la zone de liste (exemple pour le verbe ABSÒUDRE on tape ABS puis on clique sur le bouton[Ò] la lettre s'écrit à la suite du S et on peut continuer à taper les lettres UDRE).
J'ai fait 2 rangées de bouton : celle du haut avec des Boutons (Contrôle de formulaire) et celle du bat avec des Boutons (ActiveX).*J'ai créé une macro par bouton (exemple BoutonAMajAccentGrave_Cliquer), lancer l'enregistreur de macro et affecter chaque macro enregistrée à son bouton mais ça ne fonctionne pas.
Je joins mon fichier Excel pour que vous puissiez juger et voir ce qu'il y a à faire pour faire fonctionner les macros de mes boutons.
Merci d'avance pour votre aide.
counjug-verbe_pr_sesido_1.6.xlsm

[patricktoulon]

bonsoir
je me trompe peu être mais a ma connaissance il n'est pas possible de capter le selstart et sellength dans un item d'une combobox

alors a moins qu'il y ai un seul caractère a changer n'importe ou dans le texte c'est mort

pour un seul caractères la fonction replace suffit

mais si tu 2 u et que tu dois en changer qu'un c'est walouh walouh

ajoute un textbox qui change avec la liste fait la correction dedans avec selstart et mid et le keypress pour changer le mot dans la liste

perso je vois bien un popup moi
a méditer

[unparia]

Bonjour
Je n'ouvre jamais de classeur tiers et n'ai donc pas ouvert le tien.
Si je m'en tiens à ceci :

Il suffit alors lorsque l'on doit entrer une lettre accentuée de cliquer sur la touche correspondante pour que la lettre s'insère à l'emplacement du curseur dans la zone de liste (exemple pour le verbe ABSÒUDRE on tape ABS puis on clique sur le bouton[Ò] la lettre s'écrit à la suite du S et on peut continuer à taper les lettres UDRE)

ET SI TU UTILISES UNE COMBOBOX
ET SI TES BOUTONS DE CARACTERES sont des contrôles activex
La zone d'édition d'une combobox n'est jamais rien d'autre qu'une textbox "accolée" à une liste et réagit et se gère comme une textbox
Ceci marche (combobox1 étant ton contrôle et commanbutton1 le bouton) :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
 ComboBox1.Text = ComboBox1.Text & Chr(211)
End Sub

Il est même possible de modifier un caractère en y plaçant le caret et avec ce code (ici en exemple avec commandbutton2)

Code :

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

1
2
3
4
5
Private Sub CommandButton2_Click()
 toto = ComboBox1.Text
 Mid(toto, ComboBox1.SelStart) = Chr(211)
 ComboBox1.Text = toto
End Sub

Et tu peux même aller plus loin. Ce code permet de remplacer un caractère là où tu places le caret ou d'en ajouter un si le caret est à la fin.

Code :

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

1
2
3
4
Private Sub CommandButton2_Click()
 ComboBox1.SelLength = 1
 ComboBox1.SelText = Chr(211)
End Sub

[patricktoulon]

bien vu jacques j'ai pas penser a la case value éditable suis je bête

[unparia]

Salut Patrick

Il y a mille fois mieux à faire (sans son "clavier/boutons" et sans conjugaison de touches imposées à l'utilisateur).
Une sorte d'intellisense, en quelque sorte.
Mais j'ai voulu rester sur les rails du demandeur et à son niveau.

[malaju]

Merci à tous les deux pour votre investissement.
J'ai testé les 3 codes fournis par unparia et c'est le 3° qui correspond le mieux à ce que je voulais.
unparia tu dis : "Il y a mille fois mieux à faire (sans son "clavier/boutons" et sans conjugaison de touches imposées à l'utilisateur).
Une sorte d'intellisense, en quelque sorte.
Mais j'ai voulu rester sur les rails du demandeur et à son niveau. "
Je sais que je ne suis pas un crack en vba, mais peut-être peux-tu m'en dire plus.*J'ai quand même quelques notions de programmation (basic, C, java) et peut-être que je serais à même de comprendre en faisant travailler les petits neurones qui me restent (lol) ????