Combobox & adressage

Version imprimable

14/12/2010, 16h25
tomy7

Combobox & adressage

Bonjour,
y'a t'il une fonction permettant de récupérer l'adresse de la cellule sélectionnée dans le combobox?

exemple:
Je remplie un combobox à l'aide de la colonne B

B1: "Titi"
B2:"Toto"
B3:"Tato"
B4:"Tota"
...

lorsque l'utilisateur sélectionne "Toto"
Je voudrais savoir ou se situe "Toto"?
Connettant cette ligne, je peux remplir automatiquement un formulaire sur la seconde feuille.

j'aimerai éviter les fonctions Find et Vlook mais toute proposition est acceptée!
Merci,
Tom
14/12/2010, 16h37
Jean-Philippe André

Hello,
je propose un Match() comme formule :mrgreen:

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim i As String
Dim j As String
 
'address line
i = ComboBox1.Value
j = WorksheetFunction.Match(.... 
    Sheet3.Range("B3").Value = Sheet1.Range("B" & j).Value
 
End Sub

comment utiliser le match dans ce cas là?

14/12/2010, 17h35
Jean-Philippe André

SAlut,

l'aide en ligne :f1: est tout designe pour avoir la syntaxe a appliquer.

Tu dois passer les parametres suivants:
- valeur recherchee
- colonne dans laquelle doit s'effectuer la recherche
- 0

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim i As String
Dim j As Range
Dim lastrow As String
 
lastrow = Sheet1.Range("B65536").End(xlUp).Row
 
i = ComboBox1.Value
j = WorksheetFunction.Match(i, Range("B3:B" & lastrow), 0)
 
Sheet3.Range("B3").Value = Sheet1.Range("B" & j).Value
 
End Sub

J'ai un bug et je ne vois pas d'ou provient l'erreur, une idée?

14/12/2010, 18h59
Jean-Philippe André

j n'est pas un range, c'est un Double,
la fonction Match retourne un double ;)

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub CommandButton1_Click() Dim i As String Dim j As Double Dim lastrow As String lastrow = Sheet1.Range("B65536").End(xlUp).Row i = ComboBox1.Value j = WorksheetFunction.Match("" & i, Range("B3:B" & lastrow), 0) Sheet3.Range("B3").Value = Sheet1.Range("B" & j).Value End Sub
ok je l'ai changé mais toujours ce problème error 1004: "Unable to get the match property of the worksheetfunction class"

pourtant quand je clic sur debug et je vérifie mes variables i & lastrow, elles ont la valeur souhaitées.

mais j= 0

une idée?

moi je propose de passer par la propriété ListFillRange du ComboBox

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub test()
Dim R, c as Range
Set R=Range(ComboBox1.ListFillRange)
For each c in R
If c.Text=ComboBox1.Text Then
Msgbox c.Row 'ton code ici
end if
next c
end sub

15/12/2010, 12h18
tomy7

Aliasjadawin,

je ne veux pas de msgbox me disant dans quelle cellule se situe "Toto". Je veux utiliser cette localisation afin de collecter d'autre donner sur cette ligne dans le but de remplir un formulaire sur la feuille suivante.

Mais merci d'essayer de m'aider.
Tom
15/12/2010, 12h25
Jean-Philippe André

Salut,
en fait, le code fourni te permet de savoir a quel endroit chercher ta valeur.
Reste a toi de l'adapter avec ton code deja existant :mouarf:
16/12/2010, 11h41
aliasjadawin

Exactement, le msgbox était un exemple, c'est ce qu'il y a après qui est intéressant (l'adresse), je n'ai fait que répondre à ta demande, je n'ai pas à te mâcher le travail mais juste t'éclairer. Je trouve ta réaction plutôt ... moyenne. Bref, en tout cas tant mieux si tu as résolu ton problème.
Cordialement