cellule pointé par ComboBox et offset

Bonjour à vous tous,

Je voudrais savoir comment faire pour faire un offset sur une cellule pointé par un ComboBox dans une Form VBA. Donc si je sais que mon ComboBox pointe sur la cellule B2, je veux obtenir la valeur de B3 qui est "lié" à l'information de B2

j'ai essayé quelques trucs mais je ne trouve toujours pas, voici ce que j'ai essayé

Code:

---

1 2 3 4

Dim GetCell as String GetCell = ComboBox14.ListIndex Range(GetCell).Offset(0,1).Select

---

Merci encore une fois de votre aide!

Bonjour,

Que te renvoie exactement l'instruction

Code:

---

Msgbox Getcell

---

?

ca me donne:

Erreur d'exécution '1004':
La méthode 'Range' de l'objet '_Global' a échoué

Je ne tiens pas à garder ce morceau de code absolument, c'était surtout à titre indicatif pour démontrer un peu ce que je veux faire.

Merci

Bonsoir,

Tu me donnes le message d'erreur que renvoie l'exécution de ton code, mais pas ce que je te demande à savoir

Code:

---

Msgbox GetCell

---

Ecris ce bout de code AVANT ton instruction RANGE et fais-moi part de la réponse.

A mon avis, le code ne reconnaît pas l'objet Range.

getcell me retourne -1 dans le message box

Bonsoir,

Il faut que tu établisses une relation entre le résultat de ta combobox et la cellule que tu veux sélectionner.

Exemple : Si listindex = 2 ==> Cellule (A3) etc

puis sélectionner ta cellule non par l'objet Range mais par Cells(a,b)

A voir.

Autre précision : Quels sont les items de ta combobox? Autrement dit, quelles-sont les occurences qui peuvent être renvoyées par ta combobox?

A plus tard.

Bonjour Marcel,

Pour ce que la combobox doit retourner c'est un peu complexe mais je vais donner un exemple:

Code:

---

1 2 3 4

Colone B Colone C Lenovo M70e 0809CF5 IBM X3200 7328E1U

---

Bref il s'agit du Modele dans la colone B et du No de produit dans la colone C.
Donc ce que getcell.listindex me donne ne semble pas la facon de faire pour pouvoir associé les 2 colones ensemble. Comme je disais dans mon premier message, je ne tiens pas absolument à garder le code que j'ai présentement. Si je ne suis pas parti dans la bonne direction avec .listIndex je n'ai aucun problème à modifier mon code.

Merci

Bonjour Yanluo,

Si j'ai bien compris, ta combobox a pour items les valeurs de ta colonne A at tu souhaites obtenir la valeur correspondante de la colonne B.

Essaie alors :

Dans un module : charger l'userform

Code:

---

1 2 3 4

Public Sub ESSAI() Load UserForm1 UserForm1.Show End Sub

---

Les 2 codes suivants Dans le code de ton UserForm

Tu alimentes ta Combobox,

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Dim i As Byte   For i = 2 To Range("B2").End(xlDown).Row Me.ComboBox1.AddItem Sheets(1).Range("B" & i).Value Next i End Sub

---

et le bouton de validation te renvoie la cellule correspondant de ta colonne C

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() MsgBox Range(Range("B2"), Range("B2").End(xlDown)).Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Value Me.Hide End Sub

---

Merci Marcel,

Ce n'est pas tout à fait ce que je cherchais mais je suis capable quand même d'arriver au résultat voulu avec ce que tu m'as donné. Pour expliquer brièvement, je ne veux pas que la cellule associé soit dans la combobox, juste pouvoir pointer dessus pour la recopier dans un autre document.

Merci encore!