Discussion :

[valery.petit]

Bonjour,

Voila pour le taf je suis en train de développer une petite application qui grossi de jour en jour.

- Je stock dans une cellule des mots séparé par une virgule, et dans la cellule d'à coté leur abréviation.
Le but et de créer un dictionnaire afin de les utiliser pour traduire des expressions.
Plusieurs mot peuvent avoir la même abréviations.

- Dans un soucie de clarté et afin de limiter les erreurs, je voudrais éditer le dictionnaire via une interface.
j'ai donc créé un userform avec le code qui va bien.

Dans une liste j'affiche via un split() les mots l'un au dessus de l'autre et à coté (dans une zone de texte) l'abréviation correspondante.
(c'est en train de prendre forme, j'ai également un petit éditeur pour ajouter des mot et actualiser la liste)

J'en viens au fait ;-) :
J'aimerai pouvoir ranger les mots dans la liste via des flèches haut/bas.
ça implique que quand je clique sur la flèche haut, je déplace le mot correspondant (sur lequel j'aurai préalablement cliqué dans la liste de l'userform) d'un pas à gauche dans la liste présente dans ma cellule excel....

j’avoue que je ne sais pas trop comment m'y prendre et je ne vois pas trop d’exemple sur internet sur ce sujet.
je n'ai peut-être pas utilisé la bonne méthode me direz vous

Merci pour vos retour, idée farfelue ou critiques constructive.

Bon Weekend.

[Patrice740]

Bonjour,

J'aurai commencé par stocker chaque mot dans une cellule et son abréviation dans celle d'à coté.

[valery.petit]

Salut,

Pour le moment c'est encore comme ça, la chaîne de caractère séparée par des virgules c'est une évolution que je voudrais mettre en place pour que personne n'aille toucher à mon tableau avec ses grosses pattes....

En fait en faisant mes recherches, je me rend compte que je n'ai pas suffisamment compris la fonction Split()
du coup il y à peut-être moyen que ce soit plus simple au final (si c'est bien expliqué )

admettons que j'ai ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
"SI,RECHERCHEV,SOMME,NB,ESTNUM,STXT" dans la cellule A1
 
chaine = Range ("A1").value
 
fr = Split(chaine, ",")
 
fr(0) '=> renvoie : SI
fr(1) '=> renvoie : RECHERCHEV
fr(2) '=> renvoie : SOMME
fr(3) '=> renvoie : NB
fr(4) '=> renvoie : ESTNUM
fr(5) '=> renvoie : STXT

je voudrais juste intervertir fr(x) avec fr(x-1) si je clique sur la flèche haute et fr(x) avec fr(x+1) si je clique sur la flèche basse

le problème après sera de réécrire mon tableau sous forme de chaine dans ma cellule. (concat ?)

[Algoplus]

Bonjour,

Une solution possible:

on split (par ",") la cellule contenant les mots dans un tableau
on alimente la listbox.list avec ce tableau

ensuite deux commandebutton ( ou autre procédé...) un pour "monter" l'autre pour "descendre".

pour le bouton "monter":
dans la listbox permuter la sélection avec le mot précédent ( en passant par une variable temporaire)

avec les indices (listindex) ancienne position et nouvelle position opérer de même dans le tableau initial

"déspliter" le tableau dans une variable, par une boucle sur le tableau qui concatène la variable et la valeur de l'élément du tableau suivi de "," jusqu'à l'avant dernier, puis concaténer la variable avec le dernier élément du tableau.

affecter cette variable à la cellule

adapter pour le bouton "descendre"

A+

Edit:
avec un SpinButton :un seul bouton à coder.

[valery.petit]

Oui ça n'est pas très compliqué en fait.
Désolé c'est pas très propre. je n'ai pas mon programme sous la main

Code :

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

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
 
"SI,RECHERCHEV,SOMME,NB,ESTNUM,STXT" dans la cellule A1
 
IF Monte = true THEN
 
Chaine = Range ("A1").value
LIGNE_SELECT = ...... 'Numéro de la ligne sélectionnée dans la liste de l'userform
 
fr = Split(Chaine, ",")
'fr(0) => renvoie : SI
'fr(1) => renvoie : RECHERCHEV
'fr(2) => renvoie : SOMME
'fr(3) => renvoie : NB
'fr(4) => renvoie : ESTNUM
'fr(5) => renvoie : STXT
 
Inter_Ligne = fr(LIGNE_SELECT)
Inter_Sup = fr(LIGNE_SELECT +1)
 
fr(LIGNE_SELECT +1) = Inter_Ligne
fr(LIGNE_SELECT) = Inter_Sup
 
END IF
 
'Je Concatène pour réécrire dans la cellule 
.....
'J'actualise l'affichage de la liste
....
'Je décrémente le numéro de la ligne sélectionnée afin de rester sur la même valeur
.....

à l'origine je pensais à une rotation vers la gauche ou vers la droite, mais ça aurai impliqué toute les valeurs du tableau.
là ça a l'air pas mal.

Merci à vous!!!

[Algoplus]

Bonjour,

Code :

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

1
2
3
4
5
...
Inter_Sup = fr(LIGNE_SELECT +1)
 
fr(LIGNE_SELECT +1) = Inter_Ligne
...

cela sous entend que la valeur choisi sera uniquement "descendue" dans le tableau .on ne peut "le remonter"

En passant par un spinbutton, c'est le spinbutton qui donne l'indice futur:

Sélection dans la listbox le 4éme élément (index:5), affectation à la valeur du spinbutton.
Dans le spinbutton en cliquant vers le haut sa valeur diminue de 1 (4) , et vers le bas augmente de 1 (6).
on a alors l'indice futur.
attention à gérer les indices limites!

En faisant la permutation dans le tableau et dans la listbox, on conserve la sélection sur l'élément initialement choisi, pas besoin de rafraichir l'affichage de la listbox ni de gérer l'indice de l'élément à afficher.