OVH Cloud OVH Cloud

Insertion dans une cellule avec un listbox

6 réponses
Avatar
Alba
Bonsoir,

c'est la premi=E8re fois que j'utilise un listbox et je suis un peu
d=E9rout=E9e je dois dire.


Je mets un fichier joint c'est toujours plus concret je pense.

http://cjoint.com/confirm.php?cjoint=3DbwuoU6wlYY

Premi=E8rement je n'arrive pas =E0 lui dire d'ins=E9rer dans la cellule
concern=E9e
Mon liste box se nomme "Ville" et je veux b=EAtement qu'il colle la
ville que je lui indique dans la colonne concern=E9e
Mais si je lui dis :
Range("F3").Value =3D Ville.Value
Il n'aime pas du tout ! Je pr=E9sume que ce n'est valable que pour des
textbox !!

En plus dans ce listebox "Ville" je vais avoir selon mon choix depuis
un combox code postale, diff=E9rentes possibilit=E9s qui vont s'afficher,
je dois donc s=E9lectionner l'un ou l'autre afin d'ins=E9rer mon choix
dans la cellule.

Il doit s=E9rieusement me manquer un =E9pisode sur les listbox.
Merci de votre aide

6 réponses

Avatar
JB
Bonsoir,

Exemple de formulaire avec code postaux;

http://cjoint.com/?bwuBjQiHJy

JB

Bonsoir,

c'est la première fois que j'utilise un listbox et je suis un peu
déroutée je dois dire.


Je mets un fichier joint c'est toujours plus concret je pense.

http://cjoint.com/confirm.php?cjoint=bwuoU6wlYY

Premièrement je n'arrive pas à lui dire d'insérer dans la cellule
concernée
Mon liste box se nomme "Ville" et je veux bêtement qu'il colle la
ville que je lui indique dans la colonne concernée
Mais si je lui dis :
Range("F3").Value = Ville.Value
Il n'aime pas du tout ! Je présume que ce n'est valable que pour des
textbox !!

En plus dans ce listebox "Ville" je vais avoir selon mon choix depuis
un combox code postale, différentes possibilités qui vont s'afficher,
je dois donc sélectionner l'un ou l'autre afin d'insérer mon choix
dans la cellule.

Il doit sérieusement me manquer un épisode sur les listbox.
Merci de votre aide


Avatar
Alba
Bonsoir JB,

Je l'adore cet exemple là (je crois que j'ai tous les fichier de JB
sur mon pc, tous sans exception :-), une mine d'or !)

Il y a au moins deux semaines que je tente de l'adapter à mon fichier
mais je désespère, il y a toujours des bugs avec mon userform à moi
et je ne comprends pas toujours ce qu'il me dit.

Je n'arrive vraiment pas a le transférer, je dois faire beaucoup de
modifications pour l'adapter a mon fichier ???

On 22 jan, 20:27, "JB" wrote:
Bonsoir,

Exemple de formulaire avec code postaux;

http://cjoint.com/?bwuBjQiHJy

JB


Avatar
JB
http://cjoint.com/?bwvJ4QFwSn

JB
Bonsoir JB,

Je l'adore cet exemple là (je crois que j'ai tous les fichier de JB
sur mon pc, tous sans exception :-), une mine d'or !)

Il y a au moins deux semaines que je tente de l'adapter à mon fichier
mais je désespère, il y a toujours des bugs avec mon userform à moi
et je ne comprends pas toujours ce qu'il me dit.

Je n'arrive vraiment pas a le transférer, je dois faire beaucoup de
modifications pour l'adapter a mon fichier ???

On 22 jan, 20:27, "JB" wrote:
Bonsoir,

Exemple de formulaire avec code postaux;

http://cjoint.com/?bwuBjQiHJy

JB




Avatar
Alba
Et dire qu' il me faut des heures pour y arriver...et encore.

Merci infiniment JB, c'est trop bien !
j'ai juste un petite soucis dans le combox CP, si je choisis de ne pas
faire la recherche avec la flêche mais de saisir le code au clavier,
dès le troisième chiffre saisis, alors il bug avec une erreur
d'execution 13.

Est-ce qu'il y a moyen de corrigé ce petit problème là ?

Mais il n'y a rien d'urgent bien entendu.

Encore merci de ton aide
Avatar
JB
Vesrsion Zone de texte pour le CP:

http://cjoint.com/?bwv45KkCus

Private Sub cp_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
d = Application.Match(Me.cp, [codesPostaux], 0)
If IsError(d) Then
d = Application.Match(Val(Me.cp), [codesPostaux], 0)
End If
If Not IsError(d) Then
Me.Ville.Clear
For i = d To d + Application.CountIf([codesPostaux], Me.cp) - 1
Me.Ville.AddItem Range("villes")(i)
Next i
Me.Ville.ListIndex = 0
Else
MsgBox Me.cp & " Inconnu"
Cancel = True
End If
End Sub

Supprimer le code de Initalize qui remplissait le ComboBox

JB
Et dire qu' il me faut des heures pour y arriver...et encore.

Merci infiniment JB, c'est trop bien !
j'ai juste un petite soucis dans le combox CP, si je choisis de ne pas
faire la recherche avec la flêche mais de saisir le code au clavier,
dès le troisième chiffre saisis, alors il bug avec une erreur
d'execution 13.

Est-ce qu'il y a moyen de corrigé ce petit problème là ?

Mais il n'y a rien d'urgent bien entendu.

Encore merci de ton aide


Avatar
Alba
Génial !
Il me reste a comprendre toute la procédure.

Merci de ta patience JB


On 22 jan, 21:59, "JB" wrote:
Vesrsion Zone de texte pour le CP: