Discussion :

[dodo28]

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

[dodo28]

desolé
la formule est bonne erreur de feuille
trop etourdi