[VBA-E] label.caption en fonction d'un combobox

Bonjour,

Débutant, j'essaie de construire mon code vba en copiant et adaptant ce que je peux trouver sur le net... (un peu comme tout le monde je suppose...:lol: )

Voilà mon souci:
sur un userform se trouve une combobox ('comboville') et un label ('saisibanom').

J'aimerais que lorsque je fais un choix dans ma combobox, le label affiche une valeur de cellule (retrouvée dans une plage ('fliste') d'une feuille ('franchises)).

Voici le code que j'emploie actuellement:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub ComboBoxville_Change()   Dim cellu As Range, M As String   M = ComboBoxville.Text   Range("fliste").Activate   Set cellu = ActiveCells.Find(M)   If Not cellu Is Nothing Then   saisibanom.Caption = Range(cellu).Offset(0, 2)   End If   End Sub

---

Malheureusement, le bébogueur lors de l'execution indique une erreur au niveau de ' Range(fliste).Activate '

Je vous remercie pour votre aide !

Max.

Pas testé mais je penserais à ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub ComboBoxville_Change()   Dim cellu As Range, M As String   M = ComboBoxville.Text   Set cellu = Range("fliste").Find(M)   If Not cellu Is Nothing Then   saisibanom.Caption = Range(cellu).Offset(0, 2)   End If   End Sub

---

Ton erreur venait probablement du fait qu'on ne peut pas activer plusieurs cellules en même temps.

Merci AlainTech!!!

Malheureusement, nous allons de Charybe en Scylla!!! pour tomber sur un deuxième problème... :aie:

Le code bloque sur:

Code:

---

1 2	saisibanom.Caption = Range(cellu).Offset(0, 2)

---

'saisibanom' est un label

le message d'erreur indique:
" La méthode 'Range' de l'objet '_Global' a échoué "

Grand merci!
Max.

précise le nom : nomdelafeuille.userform.saisibanom

genre:

Code:

---

1 2 3

nomdelafeuille.userform1.saisibanom.caption = cellu.Offset(0, 2)

---

tu peux essayer de meme avec range (feuille ou tu as ta range):

Code:

---

1 2	nomdelafeuille.cellu.offset(0,2)

---

Je n'ai pas analysé tout le code la première fois.
Regarde si ceci peut convenir:

Code:

---

saisibanom.Caption = cellu.Offset(0, 2)

---

bonjour

la variable Cellu est deja de type Range

fait un essai en remplaçant

Code:

---

saisibanom.Caption = Range(cellu).Offset(0, 2)

---

par

Code:

---

saisibanom.Caption = cellu.Offset(0, 2)

---

bonne journée
michel


edition

Oouupss ...trop tard

Un grand merci à tous! En espérant pouvoir vous aider un de ces 4 à mon tour! :mrgreen:

Max.

Citation:

---

En espérant pouvoir vous aider un de ces 4 à mon tour!

---

Ce sont là des mots qui font plaisir, Max_c, car ils ont tout leur sens sur un forum comme celui-ci.
Tu pourras un jour aider à ton tour, sois sans crainte. Ce ne sera certes pas SilkyRoad, mais d'autres... et l'aide que tu pourras apporter sera la bienvenue.
Je te remercie d'avoir compris qu'un forum de développement est exactement ce que tu as deviné : un lieu où l'on vient partager avec ceux qui en ont besoin ce que l'on sait... pas seulement un lieu où l'on vient rechercher "sa solution personnelle". MERCI