OVH Cloud OVH Cloud

recherche a l'aide d'une combobox

3 réponses
Avatar
debutant
bonjour

j'ai une userform avec un checkbox et un combobox qui a ces donnés sur ma
feuille1 et je voudais que l'orsque je prend une donné dans le combobox ma
checkbox (qui marque "vrai") corresponde a mon combobox

je ne sait pas si c'est faisable mais merci de votre aide

3 réponses

Avatar
Hervé
Bonsoir,
Je ne suis pas sûr d'avoir bien saisie, tu veux que le caption de ta
checkbox est la valeur choisie dans le combobox ? Si c'est cela, teste ceci
:

Private Sub ComboBox1_Click()
CheckBox1.Caption = ComboBox1.Text
End Sub

Hervé.
"debutant" a écrit dans le message de news:
43fb1491$0$167$
bonjour

j'ai une userform avec un checkbox et un combobox qui a ces donnés sur ma
feuille1 et je voudais que l'orsque je prend une donné dans le combobox ma
checkbox (qui marque "vrai") corresponde a mon combobox

je ne sait pas si c'est faisable mais merci de votre aide





Avatar
debutant
non ce que je recherche c'est lorsque qu'il y a par exemple "toto" dans mon
combobox la checkbox recherche la donné "toto" et et m'indique vrai
mais merci tout de meme


"Hervé" a écrit dans le message de
news:%23eY%
Bonsoir,
Je ne suis pas sûr d'avoir bien saisie, tu veux que le caption de ta
checkbox est la valeur choisie dans le combobox ? Si c'est cela, teste
ceci

:

Private Sub ComboBox1_Click()
CheckBox1.Caption = ComboBox1.Text
End Sub

Hervé.
"debutant" a écrit dans le message de news:
43fb1491$0$167$
bonjour

j'ai une userform avec un checkbox et un combobox qui a ces donnés sur
ma


feuille1 et je voudais que l'orsque je prend une donné dans le combobox
ma


checkbox (qui marque "vrai") corresponde a mon combobox

je ne sait pas si c'est faisable mais merci de votre aide









Avatar
Hervé
Bonsoir,
Désolé de n'avoir pas compris. Alors en admettant que la plage de tes
valeurs soit la colonne A (il te suffit d'adapter cette ligne "Set Plage =
.Range(.[A1], .[A65536].End(3))
" dans la fonction "ChercherValeur"), un clic sur le combobox provoque la
recherche de la valeur choisie dans la plage, si trouvée la checkbox est
cochée sinon décochée. A mettre dans le module de ta form :
'-----------------------------------------------------------------------
Private Sub ComboBox1_Click()
CheckBox1.Value = ChercherValeur(ActiveSheet, _
ComboBox1.Text)
End Sub


Function ChercherValeur(Fe As Worksheet, _
Valeur) As Boolean
Dim Plage As Range
Dim Cel As Range

With Fe
Set Plage = .Range(.[A1], .[A65536].End(3))
End With
Set Cel = Plage.Find(Valeur, , -4163, 1)
If Not Cel Is Nothing Then
ChercherValeur = True
End If

Set Cel = Nothing
Set Plage = Nothing

End Function
'-----------------------------------------------------------------------------

Hervé.

"debutant" a écrit dans le message de news:
43fb6f85$0$170$
non ce que je recherche c'est lorsque qu'il y a par exemple "toto" dans
mon
combobox la checkbox recherche la donné "toto" et et m'indique vrai
mais merci tout de meme


"Hervé" a écrit dans le message de
news:%23eY%
Bonsoir,
Je ne suis pas sûr d'avoir bien saisie, tu veux que le caption de ta
checkbox est la valeur choisie dans le combobox ? Si c'est cela, teste
ceci

:

Private Sub ComboBox1_Click()
CheckBox1.Caption = ComboBox1.Text
End Sub

Hervé.
"debutant" a écrit dans le message de news:
43fb1491$0$167$
bonjour

j'ai une userform avec un checkbox et un combobox qui a ces donnés sur
ma


feuille1 et je voudais que l'orsque je prend une donné dans le combobox
ma


checkbox (qui marque "vrai") corresponde a mon combobox

je ne sait pas si c'est faisable mais merci de votre aide