Clic listbox

[JC17]

Bonjour tout le monde,
Je viens pour un problème que, je pense, vous règlerez rapidement.
Mon objectif est que, lorsque je clique sur un élément de ma listbox, son nom s'affiche sur ma feuil2. Ca eu marché mais ça ne marche plus et je commence à tourner en rond.
Dans l'attente qu'une bonne âme me dise quelle erreur de code j'ai fait...
MERCI...
JC

 

[bqtr]

Re : Clic listbox

Bonjour JC,

Tu as mis Option Explicit au début de ta procédure, cela oblige à déclarer toutes les variables.

Donc pour le i il faut le déclarer comme ceci :

Private Sub ListBox1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
.../...

Ensuite à quoi correspond :

SelectSite, AccueilSitess, AccueilBE, se sont des USF ?

Si oui sont t'ils bien nommés ainsi, Ils doivent être ouvert si tu t'y reféres.

A+

 

[JC17]

Re : Clic listbox

Bonjour bqtr (?),
Merci pour la tentative mais elle ne marche pas... Elle me relance un "Echec sélection de l'objet range" (ou quelque chose comme ça)...
Pour ce qui est de Selectsites, etc, ce sont effectivement des USF mais comme j'ai copier-coller pour joindre un bout du fichier, ils n'apparaissent pas dans la version que j'ai jointe.

 

[JC17]

Re : Clic listbox

Bon bhein en fait, je crois que j'ai trouvé tout seul...

Sheets("Feuil1").Range("C1").Select

Il y avait cette ligne en trop....
Merci quand même
A bientôt
JC