Bonjour ?
Je voudrais, à partir d’une listbox, renseigner la cells(4,14) d’un objet en feuil1.
Je pars d’un module 1 qui m’envoie sur un user form1 où un bouton me renvoie sur un userform3 où se trouve une listbox1 où je dois choisir un nom qui sera copié dans la cellule 4,14). Mais voilà, non seulement la première instruction (en rouge), ne fonctionne pas, mais le « pas à pas » colore le end sub (en rouge) en jaune puis un curseur clignotant se place là et je n’ai plus la main.

Option Explicit

Private Sub AfficheSelect(ByVal str As Variant)
     MsgBox "Vous avez sélectionné : " & ListBox1.List(0) & ".", , "Message"
End Sub

Private Sub CommandButton1_Click()
      
Sheets("Feuil1").Cells(4, 14).Value = ListBox1.List(0)

Call AfficheSelect(ListBox1.List(0))
End Sub

Private Sub UserForm_Initialize()
    ListBox1.AddItem "DUPONT"
End Sub

Je suis devant un mur. Normalement il devrait retourner à userform1 pour poursuivre le programme …
Qui peux m’aider ?
Merci.

Salut,

les couleurs sont pas passées ! pas facile de comprendre ce que tu nous racontes

peux tu nous le refaire en reprecisant les zones qui pose probleme et nous donner le contenu du message d'erreure
si il y en a un.

et en ademettant que ce que tu nous as donné fonctionne, je ne vois rien qui specifi un retour sur le userform1 qui, si j'ai bien compis, devrait ce produire apres la msgbox.

A+

Je ne peux rien dire non plus sinon de changer ceci

Private Sub AfficheSelect(ByVal str As Variant)
     MsgBox "Vous avez sélectionné : " & str & ".", , "Message"
End Sub

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Salut à tous,

Tu dis que ton bouton est sur un UserForm1 et ta listbox sur un Userform3, est-ce exacte ? Si oui je verrais plutôt le code comme cela :

Private Sub CommandButton1_Click() 

Dim sVarLb As String
       sVarLb = UserForm3.ListBox1.List(0)
      
Sheets("Feuil1").Cells(4, 14).Value = sVarLb 

Call AfficheSelect(sVarLb)
 
End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

Salut Exploreur,
J'aurais dû faire comme toi et nettoyer ma boule de cristal ...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Salut les gars,

Exploreur: bien vu

MPi : j'ai bien une boule de christal aussi, mais je l'ai eu d'occase par un pote qui l'a herrité de son arriere grand mere...
donc apres toute ces années elle est un peu rayée et du coup je vois pas bien... mon pote m'avait bien expliqué qu'il est preferable d'utiliser les lunnettes triple foyers de son arriere grand mere pour que cela marche mieux mais bon...  voir le monde a travers un microscope c'est pas trop mon truc... et puis imagine qu' a chaque fois que tu regardes quelque par tu vois que des accariens... finalement mon pote a revendu les lunettes a un type qui fumait des petards en lui expliquant que les lunettes decuplait l'effet... ouai ouai qui fumait ... en fait le type il a essayé une fois et il a tellement flippé qu'il a decidé d'arreter... tu parles l'effet des petards sur la vision des accariens pfffff... le coup flip dit donc



A+

Merci à tous, pour les conseils où la bonne humeur.
J'étais fatigué de tourner en rond et je devais avoir les yeux rouges Bigfish -excuses
Bien vu pour le lien avec userform1, il suffisait d'unload userform3 pour me redonner la main.
j'ai récupéré ton code, Explorer, et ça m'a permis de retrouver des choses que j'avais perdues en route. En particulier c'était la cellule 4,15 et non la 4,14 qui était fusionnée (je développe bordélique. VB6 est plus sympa pour ça) - merci.
La vie est belle.
Bon weekend à tous