Discussion :

[narutobaka]

Bonjour,

Je suis en train de réfléchir à un problème qui est le suivant :

Pour un affichage excel je dois gérer un ordre d'affichage dans des onglets.

J'aimerai que le choix d'ordre d'affichage soit gérer par l'utilisateur en fonction de la liste d'élément stocké dans une base de donnée.

Je voulais savoir quel type d'objet utiliser pour permettre à un utilisateur d'ordonner des données et surtout de pouvoir récupéré l'ordre des données sélectionnés afin de pouvoir l'enregistrer.

Je ne sais pas si je me suis correctement exprimé.

Je continue mes recherches

Si vous avez une idée n'hésitez pas

++

[narutobaka]

Bonjour,

Ayant programmé sous Delphi je me rappel d'un outil qui s'appellait un TMemo.

Je voulais savoir si qqn savait si il y a un équivalent de cette outil qui permet entre autre d'indexer la liste des lignes.

++

[narutobaka]

Bonjour

Je viens de créer ceci donc avec une listbox et 2 boutons :

Une variable qui vérifie qu'un item est choisit dans la listbox :

Code :

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

Public ListBoxItemIndexSelect As Long = -1

On récupére l'élément selectionné au clic dans la listbox :

Code :

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

1
2
3
4
5
Private Sub ListBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        'MsgBox(ListBox1.SelectedIndex)
        ListBoxItemIndexSelect = ListBox1.SelectedIndex
        MsgBox(ListBox1.Items.Count)
    End Sub

le traitement sur le bouton permettant de remonter une valeur dans le listbox

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
Private Sub btnup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnup.Click
        Dim currentItemVal As String
        Dim upItemVal As String
        Dim tmpItemVal As String
        Dim indexItem As Integer
 
        If ListBoxItemIndexSelect <> -1 Then
            If ListBoxItemIndexSelect <> 0 Then
                indexItem = ListBox1.SelectedIndex
                currentItemVal = ListBox1.SelectedItem
                upItemVal = ListBox1.Items(indexItem - 1)
                tmpItemVal = upItemVal
 
                ListBox1.Items(indexItem - 1) = currentItemVal
                ListBox1.Items(indexItem) = tmpItemVal
                ListBox1.SetSelected(indexItem, False)
                ListBox1.SetSelected(indexItem - 1, True)
                ListBoxItemIndexSelect -= 1
                'MsgBox(upItemVal)
                'MsgBox(ListBox1.SelectedIndex)
                'MsgBox(ListBox1.SelectedItem)
            Else
                MsgBox("Il s'agit de la premiere maitrise")
            End If
        Else
            MsgBox("veuillez selectionner un une maitrise")
        End If
    End Sub

et le celui pour le bouton permettant de faire descendre une valeur

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
Private Sub btndown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndown.Click
        Dim currentItemVal As String
        Dim dowmItemVal As String
        Dim tmpItemVal As String
        Dim indexItem As Integer
 
        If ListBoxItemIndexSelect <> -1 Then
            If ListBoxItemIndexSelect <> ListBox1.Items.Count - 1 Then
                indexItem = ListBox1.SelectedIndex
                currentItemVal = ListBox1.SelectedItem
                dowmItemVal = ListBox1.Items(indexItem + 1)
                tmpItemVal = dowmItemVal
 
                ListBox1.Items(indexItem + 1) = currentItemVal
                ListBox1.Items(indexItem) = tmpItemVal
                ListBox1.SetSelected(indexItem, False)
                ListBox1.SetSelected(indexItem + 1, True)
                ListBoxItemIndexSelect += 1
                'MsgBox(ListBox1.SelectedIndex)
            Else
                MsgBox("Il s'agit de la derniere maitrise")
            End If
        Else
            MsgBox("veuillez selectionner un une maitrise")
        End If
    End Sub

Ceci pour illustrer l'outil que je recherche.

Je voulais savoir si qqn en connait un équivalent.

A moins que qqn me file un cou de main pour carrément apprendre à créer un outil?

voilà voilà

merci d'avance pour votre aide