Bonjour
le code suivant concerne une listbox placée ds un userform. Lorsque l'on choisit parmi une liste par un clic un élément alors la cellule ev2 va prendre la valeur de la cellule (x+2,150).
Si ce code fonctionne bien 1 voire 2 fois il plante de manière incompréhensible de temps en tps lorsque l'on cliq sur la list.
Ts les autres éléments (listbox, optionbutton...) fonctionne correctement (g testé ss appuyer sur la listbox ya pas eu de pb
Avez vous un autre code à proposer effectuant les memes operations ?
merci

voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub ListBox3_Click()
 
Dim x
x = 1
 
    While x <> ListBox3.ListIndex
    x = x + 1
    Wend
    Range("ev2").Value = Cells(x + 2, 150)
 
End Sub