bonjour
merci PIERRE JY
merci MFERRAND
j'ai trouvé ceci qui fonctionne bien
Private Sub ComboBox1_Change()
Dim X As Long
With Me.ComboBox1
If .ListIndex <> -1 Then
X = Application.Match(.Value, Range(.RowSource), 0)
Me.TextBox1 = Range(.RowSource)(X, 1) ' le 1 verie suivant la colonne voulu
Else
MsgBox "Choisir d'abord un item dans la liste déroulante."
End If
End With
End With
End Sub
donc je met ce post comme resolu
merci encore une fois
désolé
car jetait sur 2 problématique
donc je n'ai toujours pas troué de solution a ce post
encore une fois pardon
re
ta solution PIERRE JY fonctionne
Private Sub CheckBox1_Click()
Feuil1.Shapes("Case à cocher 1").OLEFormat.Object.Value = CheckBox1.Value
End Sub
merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiii