Discussion :

[Bastienleduc]

Bonjour,

J'essaie depuis quelques heures de créer un petit programme basique en vain. J'ai un tableau avec plusieurs colonnes et lignes. Sur mon interface j'ai une combobox pour chaque colonne. Lorsque qu'une combobox change, je souhaite que les autres change aussi en fonction de cette dernière. Sur mon tableau cela revient à lire une ligne de donnée en partant d'une certaine colonne.

J'aimerais utiliser quelque chose comme ceci mais ca ne fonctionne pas :

Code :

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

1
2
3
Private Sub ComboBox1_Change()
Combobox2.ListIndex = Combobox1.ListIndex
End Sub

J'ai essayé aussi avec un système de boucle pour lire le tableau mais sans succès. Si quelqu'un peut m'aider, je vous en serai reconnaissant.


Merci

[Transitoire]

Bonsoir, n'avez vous pas la possibilité d'un seul combobox multicolonne voir ci dessous et dossier de test?

TestCombobox multicolonne.xlsm

Cordialement

[jerome.vaussenat]

Salut,

et pour avoir toutes les infos affichiées, tu peux créer une zone de texte (dans le code suivant, je l'ai appelée "Lesjours"

et ajouter ce code

Code :

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

1
2
3
Private Sub ComboBox1_Change()
    Me.lesjours.Value = Me.ComboBox1.Column(1)
End Sub

De cette manière, dès que tu change le contenu de la liste, le contenu de la zone de texte se modifie et reçoit le contenu de la colonne N°2. Et oui, la première a le N° 0 !

[Bastienleduc]

Merci pour vos réponses, du coup je modifié mon idée de départ et ca devrait fonctionner! Il me faut cependant un bouton incrémental qui me permette de faire défiler la combobox. Le bouton fonctionne mais pas l'incrémentation alors qu'il n'y a pas plus basique comme fonction... Je commence à désespérer avec ce langage

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
Private Sub CommandButton1_Click()
i = i + 1
ComboBox1.ListIndex = 0 + i
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Integer
With ComboBox1
        .ColumnCount = 3
        .List = Range("A1:C4").Value
End With
End Sub
 
Private Sub ComboBox1_Change()
  Me.TextBox1.Value = Me.ComboBox1.Column(1)
End Sub

Quelqu'un a une idée ?

[jerome.vaussenat]

Salut,

Et oui, c'est un problème de déclaration de variables ...

tu utilise I comme variable mais tu ne l'as pas déclaré. Du coup, elle n'existe que le temps de l'exécution de la macro. A chaque fois, on repart à 0 !

Pour en savoir plus sur les variables et leur déclaration, va voir là :
https://silkyroad.developpez.com/VBA/LesVariables/#LI

Pour ton problème, voici un bout de code

Code :

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

1
2
3
4
5
Sub toto()
Static i As Integer
i = i + 1
ActiveCell = i
End Sub

La ligne en rouge permet de définir une variable qui va être conservée jusqu'à la fermeture d'Excel. Donc, à chaque exécution, tu conserves le contenu précédent.

En espérant t'avoir aidé

[Bastienleduc]

Ah je ne connaissais pas la balise Static...

Merci de ton aide ! J'essaie d'aller au bout de mon app et je reviens vers vous si je coince