Discussion :

[max_c]

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... )

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 :

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
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.

[AlainTech]

Pas testé mais je penserais à ça:

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
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.

[max_c]

Merci AlainTech!!!

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

Le code bloque sur:

Code :

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

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.

[biggione]

précise le nom : nomdelafeuille.userform.saisibanom

genre:

Code :

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

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 :

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

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

[AlainTech]

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

Code :

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

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

[SilkyRoad]

bonjour

la variable Cellu est deja de type Range

fait un essai en remplaçant

Code :

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

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

par

Code :

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

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

bonne journée
michel


edition

Oouupss ...trop tard

[max_c]

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

Max.

[jmfmarques]

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