transférer selection de listBox dans cellule
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:
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 |