Discussion :

[bob651]

Bonsoir
j'ai un problème avec les combobox
J'ai une combobox qui est rempli à partir des informations provenant d'une feuille (je balaye l'ensemble de ma feuille)
J'aimerais savoir comment récupérer les coordonnées de l'information que je valide dans ma combobox (après le choix).
Exemple: liste de la combobox: essai1, essai2, essai3
Je choisis essai2, je voudrais savoir comment recupérer la position de essai2 dans ma feuille de calcul.
Merci d'avance pour votre aide
A+
Bob

[Antoniom]

Hello,

Voici en PJ un petit début...

Bye, Anton.

[bob651]

Je me suis mal exprimé:
prenons l'exemple que tu as fourni (cf fichier excel)
si dans la combobox je selectionne essai 2, je voudrais recuperer les coordonnée de essai2 dans la feuille, c'est à dire les coordonnée de la cellule, ici les coordonnées sont: i=2 (ligne) j=1 (colonne)
Car en récupérant les coordonnées de mon choix (ici essai 2) je pourrais rajouter une ligne au dessus par exemple ou remplir la case juste à coté.

[DeaD78]

Salut,

Simplement avec les méthodes .Row, .Column ou .Address ?

Au moment où tu balaies ta feuille pour rentrer les trucs dans ta ComboBox, tu utilises ces méthodes pour voir où tu en es (si tu balaies avec deux boucles For i et For j, tu n'en as même pas besoin). Bref, tu stockes ça dans une variable.

En fait, je ne vois vraiment pas ton problème qui doit pourtant bel et bien exister. Alors pourquoi ne pas poster ton code de remplissage histoire de voir ? Tu aurais sûrement plus d'aide qu'avec une question aussi "théorique" et des informations qui font cruellement défaut.

[garion28]

ce que tu voudrai faire c'est écrire a coté de la valeur ciblé par ta combobox ?

[bob651]

Voici le code quand je clic sur le bouton qui lance la USF
je balaye l'ensemble de ma feuille (Feuille numero 2).

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 decoupage_Click()
Dim i As Integer
Dim j As Integer
    For j = 1 To 8
        For i = 4 To 100
 
 
            If Feuil2.Cells(i, j) <> "" Then
            UserForm8.ComboBox1.AddItem Feuil2.Cells(i, j)
            End If
 
        Next i
    Next j
UserForm8.Show
End Sub

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
 
Private Sub OK_Click()
UserForm8.Hide
Dim s As String
Dim a As Integer
Dim b As Integer
s = UserForm8.Combobox1.Value
    For i = 4 To 100 'balayage ligne
        For j = 1 To 8 'balayage colonne
 
            If Feuil2.Cells(i, j) = s Then 'recherche de la position de s dans ma 'feuille de calcul
 
                Feuil2.Rows(i + 1).Select
                Selection.Insert
                Feuil2.Cells(i + 1, j + 1) = "trucmuche"
 
 
            End If
 
        Next j
    Next i
End Sub

ma solution est de rebalayer toute la feuille et de chercher la case qui correspond à la valeur de la ComboBox, mais si il y a une deuxième case avec la même valeur je l'oublie.

[DeaD78]

Ta solution ne m'a pas l'air mauvaise du tout.

Où se trouve la deuxième case avec la même valeur que tu "oublies" ?

Je pense qu'il faudrait que tu fasses, à la fin de ton If, un j = 0 et i = i +1.

Teste et dis-moi.

[bob651]

Les codes

Code :

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

UserForm8.Combobox1.Feuil2.Row

ou

Code :

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

UserForm8.Combobox1.Feuil2.Column

ne fonctionnent pas?

[Invité]

Bonjour,

A toutes fins utiles, vous pourriez avoir 2 colonnes dans votre Combobox, dont la 1ère avec une largeur = 0 (donc non visible) et renseigner celle-ci avec l'adresse de la cellule, donc plus besoin de balayer la plage de cellule.

PS : pensez à indiquer votre version d'Excel. Vous cliquer sur le bouton "Editer" dans votre 1er message puis vous choisissez la version en cliquant sur "Intitulé" à gauche du titre.

[bob651]

Merci beaucoup pour votre aide.
Je viens d'essayer la méthode en rajoutant 2 colonnes, une pour le numéro de la ligne, et une pour le numéro de la colonne

Voici ce que je viens d'écrire:
Initialisation de l'USF:

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
Dim i As Byte, j As Byte
parent.ColumnCount = 3
parent.ColumnWidths = "80;10;10"
End Sub

Balayage de ma feuille:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim i As Integer
    Dim j As Integer
    For j = 1 To 8
        For i = 4 To 100
 
            If Feuil2.Cells(i, j) <> "" Then
 
            UserForm8.parent.AddItem Feuil2.Cells(i, j)
            UserForm8.parent.List(UserForm8.parent.ListCount - 1, 2) = i
            UserForm8.parent.List(UserForm8.parent.ListCount - 1, 3) = j
            End If
 
        Next i
    Next j

Le numéro de la ligne apparait bien mais pas le numéro de la colonne. Quelqu'un a une idée?
Sinon à quoi sert le "-1" après liscount?


Merci d'avance

[bob651]

Je crois que j'ai résolu mon problème:
les colonnes sont numérotées à partir de 0
additem rajoute à la colonne 0
pour accéder à la valeur de la première colonne j'ai ça: UserForm8.parent.Value
Mais comment fait-on pour accéder aux valeurs des deux autres colonnes?

[Invité]

Bonjour,

Regardez ici :
http://silkyroad.developpez.com/VBA/...serForm/#LII-F
et particulièrement :

Extraire la valeur de la 3eme colonne d'une Listbox, dans la ligne sélectionnée.

il s'agit ici d'une ListBox mais le principe est le même pour une ComboBox.

Vous pouvez en profiter pour trouver bien d'autres enseignements sur l'utilisation des contrôles d'un UserForm.

[bob651]

C'est bon j'avais trouvé la réponse entre temps en lisant ce tutorial. Merci beaucoup