Bonjour le forum,
J essaye que quand je selectionne un nom dans la listbox LB_Unité et aprés valide que ce nom se positionne dans la sheets("Faisan").[B2]. j ai fait ca mais ca ne marche pas je dois oublier quelques choses car souvent erreur '9' ou rien dans la [B2].
Merci
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
18
19
20
21 Private Sub CB_ValdezCreationUG_Click() 'message de controle If CB_Faisan = False And CB_Lievre = False Then MsgBox "Attention! Vous avez oublié de selectionner une espèce. Modifiez..." End If If LB_Unité.ListIndex = -1 Then MsgBox "Attention!Vous n'avez pas selectionné d'unité de gestion." End If If LB_Nom.ListIndex = -1 Then MsgBox "Attention!Vous n'avez pas selectionné votre nom." End If 'positionne la selection dans la cellule correspondante If CB_Faisan = True Then 'CB__Faisan est un checkBox si cocher alors 'positionne la selection de LB_Unité dans la cellule B2 Sheets("Faisan").Range("B2") = Me.LB_Unité End If End Sub
Partager