voila je cherche a faire une recherche en VBA entre un combobox et une
chekbox
je m'explique mon combobox récupere ça liste sur la feuille 1 (exemple :
toto en a15 ou titi en a1) je voudrait que quand le combobox a recuperer
"toto"ou "titi" ma checkbox indique "vrai"en b15pour "toto" ou "vrai"en b1
pour "titi"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie, en l'aménageant :
Private Sub CheckBox1_Click() Dim Ligne As Long Ligne = Application.Match(ComboBox1.Value, Range("A1", _ Range("A65536").End(xlUp)), 0) Range("B" & Ligne).Value = "VRAI" CheckBox1.Value = False End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Range("A65536").End(xlUp).Offset(1, 0).Value = _ ComboBox1.Value End Sub
Cordialement. Daniel "novice" a écrit dans le message de news: OT$
bonjour a tous
voila je cherche a faire une recherche en VBA entre un combobox et une chekbox je m'explique mon combobox récupere ça liste sur la feuille 1 (exemple : toto en a15 ou titi en a1) je voudrait que quand le combobox a recuperer "toto"ou "titi" ma checkbox indique "vrai"en b15pour "toto" ou "vrai"en b1 pour "titi"
merci a tous de votre aide
Bonjour.
Essaie, en l'aménageant :
Private Sub CheckBox1_Click()
Dim Ligne As Long
Ligne = Application.Match(ComboBox1.Value, Range("A1", _
Range("A65536").End(xlUp)), 0)
Range("B" & Ligne).Value = "VRAI"
CheckBox1.Value = False
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("A65536").End(xlUp).Offset(1, 0).Value = _
ComboBox1.Value
End Sub
Cordialement.
Daniel
"novice" <pasdepub@yahoo.fr> a écrit dans le message de news:
OT$dwA4NGHA.2320@TK2MSFTNGP11.phx.gbl...
bonjour a tous
voila je cherche a faire une recherche en VBA entre un combobox et une
chekbox
je m'explique mon combobox récupere ça liste sur la feuille 1 (exemple :
toto en a15 ou titi en a1) je voudrait que quand le combobox a recuperer
"toto"ou "titi" ma checkbox indique "vrai"en b15pour "toto" ou "vrai"en
b1
pour "titi"
Private Sub CheckBox1_Click() Dim Ligne As Long Ligne = Application.Match(ComboBox1.Value, Range("A1", _ Range("A65536").End(xlUp)), 0) Range("B" & Ligne).Value = "VRAI" CheckBox1.Value = False End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Range("A65536").End(xlUp).Offset(1, 0).Value = _ ComboBox1.Value End Sub
Cordialement. Daniel "novice" a écrit dans le message de news: OT$
bonjour a tous
voila je cherche a faire une recherche en VBA entre un combobox et une chekbox je m'explique mon combobox récupere ça liste sur la feuille 1 (exemple : toto en a15 ou titi en a1) je voudrait que quand le combobox a recuperer "toto"ou "titi" ma checkbox indique "vrai"en b15pour "toto" ou "vrai"en b1 pour "titi"
merci a tous de votre aide
novice
merci beaucoup ça ma été trés utile maintenant il faut que je fasse la meme chose avec une texbox
merci encore
"Daniel" a écrit dans le message de news:%23K0S1%
Bonjour. Essaie, en l'aménageant :
Private Sub CheckBox1_Click() Dim Ligne As Long Ligne = Application.Match(ComboBox1.Value, Range("A1", _ Range("A65536").End(xlUp)), 0) Range("B" & Ligne).Value = "VRAI" CheckBox1.Value = False End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Range("A65536").End(xlUp).Offset(1, 0).Value = _ ComboBox1.Value End Sub
Cordialement. Daniel "novice" a écrit dans le message de news: OT$
bonjour a tous
voila je cherche a faire une recherche en VBA entre un combobox et une chekbox je m'explique mon combobox récupere ça liste sur la feuille 1 (exemple : toto en a15 ou titi en a1) je voudrait que quand le combobox a recuperer "toto"ou "titi" ma checkbox indique "vrai"en b15pour "toto" ou "vrai"en b1 pour "titi"
merci a tous de votre aide
merci beaucoup ça ma été trés utile maintenant il faut que je fasse la meme
chose avec une texbox
merci encore
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%23K0S1%234NGHA.344@TK2MSFTNGP11.phx.gbl...
Bonjour.
Essaie, en l'aménageant :
Private Sub CheckBox1_Click()
Dim Ligne As Long
Ligne = Application.Match(ComboBox1.Value, Range("A1", _
Range("A65536").End(xlUp)), 0)
Range("B" & Ligne).Value = "VRAI"
CheckBox1.Value = False
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("A65536").End(xlUp).Offset(1, 0).Value = _
ComboBox1.Value
End Sub
Cordialement.
Daniel
"novice" <pasdepub@yahoo.fr> a écrit dans le message de news:
OT$dwA4NGHA.2320@TK2MSFTNGP11.phx.gbl...
bonjour a tous
voila je cherche a faire une recherche en VBA entre un combobox et une
chekbox
je m'explique mon combobox récupere ça liste sur la feuille 1 (exemple :
toto en a15 ou titi en a1) je voudrait que quand le combobox a recuperer
"toto"ou "titi" ma checkbox indique "vrai"en b15pour "toto" ou "vrai"en
b1
pour "titi"
merci beaucoup ça ma été trés utile maintenant il faut que je fasse la meme chose avec une texbox
merci encore
"Daniel" a écrit dans le message de news:%23K0S1%
Bonjour. Essaie, en l'aménageant :
Private Sub CheckBox1_Click() Dim Ligne As Long Ligne = Application.Match(ComboBox1.Value, Range("A1", _ Range("A65536").End(xlUp)), 0) Range("B" & Ligne).Value = "VRAI" CheckBox1.Value = False End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Range("A65536").End(xlUp).Offset(1, 0).Value = _ ComboBox1.Value End Sub
Cordialement. Daniel "novice" a écrit dans le message de news: OT$
bonjour a tous
voila je cherche a faire une recherche en VBA entre un combobox et une chekbox je m'explique mon combobox récupere ça liste sur la feuille 1 (exemple : toto en a15 ou titi en a1) je voudrait que quand le combobox a recuperer "toto"ou "titi" ma checkbox indique "vrai"en b15pour "toto" ou "vrai"en b1 pour "titi"
