Problemes Combobox en cellules avec Dropdown
Résolu/Fermé
Guigui2016
Messages postés
8
Date d'inscription
mercredi 26 octobre 2016
Statut
Membre
Dernière intervention
1 novembre 2016
-
26 oct. 2016 à 15:29
Guigui2016 Messages postés 8 Date d'inscription mercredi 26 octobre 2016 Statut Membre Dernière intervention 1 novembre 2016 - 1 nov. 2016 à 12:36
Guigui2016 Messages postés 8 Date d'inscription mercredi 26 octobre 2016 Statut Membre Dernière intervention 1 novembre 2016 - 1 nov. 2016 à 12:36
A voir également:
- Problemes Combobox en cellules avec Dropdown
- Verrouiller cellules excel - Guide
- Faites en sorte que la cellule a1 affiche exactement ce qui est montré sur cette image. quel mot apparaît en b1 ? - Forum Excel
- Impossible de fusionner des cellules excel ✓ - Forum Excel
- Combobox vba ✓ - Forum VB / VBA
- Figer des cellules excel - Guide
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
26 oct. 2016 à 16:55
26 oct. 2016 à 16:55
Bonjour,
Commencez par enlever les ActiveCell des Not Intersect
Commencez par enlever les ActiveCell des Not Intersect
Guigui2016
Messages postés
8
Date d'inscription
mercredi 26 octobre 2016
Statut
Membre
Dernière intervention
1 novembre 2016
27 oct. 2016 à 10:33
27 oct. 2016 à 10:33
Bonjour,
Merci pour vos propositions. Mais mon problème reste le même.
J'ai épuré mon fichier, et vous le mets ici en copie. Peut être qu'en ayant le fichier directement, ca pourra plus vous aider.
Merci,
G.
http://www.cjoint.com/c/FJBiGIPidBk
Merci pour vos propositions. Mais mon problème reste le même.
J'ai épuré mon fichier, et vous le mets ici en copie. Peut être qu'en ayant le fichier directement, ca pourra plus vous aider.
Merci,
G.
http://www.cjoint.com/c/FJBiGIPidBk
Guigui2016
Messages postés
8
Date d'inscription
mercredi 26 octobre 2016
Statut
Membre
Dernière intervention
1 novembre 2016
27 oct. 2016 à 10:43
27 oct. 2016 à 10:43
Je tiens à préciser que le problème arrive lorsque je veux passer d'une combobox à une autre. Si je clique sur une cellule entre deux combobox, ca marche parfaitement.
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
>
Guigui2016
Messages postés
8
Date d'inscription
mercredi 26 octobre 2016
Statut
Membre
Dernière intervention
1 novembre 2016
Modifié par f894009 le 27/10/2016 à 10:56
Modifié par f894009 le 27/10/2016 à 10:56
Re,
Ok, je recupere le fichier
fichier modifie, c'est moi qui ait fait des copier/coller maltpropos
Me.ComboBox1.Visible = True
ald
Me.ComboBox1.Visible = False
pour les series cellules 2 et 3
https://www.cjoint.com/c/FJBi4GuCwAf
A+
Ok, je recupere le fichier
fichier modifie, c'est moi qui ait fait des copier/coller maltpropos
Me.ComboBox1.Visible = True
ald
Me.ComboBox1.Visible = False
pour les series cellules 2 et 3
https://www.cjoint.com/c/FJBi4GuCwAf
A+
Guigui2016
Messages postés
8
Date d'inscription
mercredi 26 octobre 2016
Statut
Membre
Dernière intervention
1 novembre 2016
>
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
30 oct. 2016 à 11:26
30 oct. 2016 à 11:26
Merci bien!
Je viens de voir ton message à peine. Je regarde ca sous les prochains jours et je te tiens au courant.
Bon dimanche!
Je viens de voir ton message à peine. Je regarde ca sous les prochains jours et je te tiens au courant.
Bon dimanche!
Guigui2016
Messages postés
8
Date d'inscription
mercredi 26 octobre 2016
Statut
Membre
Dernière intervention
1 novembre 2016
>
Guigui2016
Messages postés
8
Date d'inscription
mercredi 26 octobre 2016
Statut
Membre
Dernière intervention
1 novembre 2016
1 nov. 2016 à 12:01
1 nov. 2016 à 12:01
Ca y est je viens de comparer le code que j avais soumis et le tien.
J'ai compris d'où venait l'erreur, merci encore!
J'ai compris d'où venait l'erreur, merci encore!
Guigui2016
Messages postés
8
Date d'inscription
mercredi 26 octobre 2016
Statut
Membre
Dernière intervention
1 novembre 2016
>
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 nov. 2016 à 12:36
1 nov. 2016 à 12:36
Je reviens au cas où ca puisse aider qq'un...
Je viens de remplacer
par
Je pensais que c était la même chose, mais non. Dans le premier cas, si je passe d'une combobox à une cellule qui n'en a pas, la combobox reste active dans la cellule précédente. Avec False, elle disparaît - ca règle juste un problème d'esthétique...
Je viens de remplacer
Me.ComboBox1.Visible = xlVeryHidden
par
Me.ComboBox1.Visible = False
Je pensais que c était la même chose, mais non. Dans le premier cas, si je passe d'une combobox à une cellule qui n'en a pas, la combobox reste active dans la cellule précédente. Avec False, elle disparaît - ca règle juste un problème d'esthétique...
26 oct. 2016 à 17:40
En effet, le code initial contenait Target. Vu que j avais le même problème, je les ai remplacés par Activecell. Donc ca marche ni avec l'un ni avec l'autre.
26 oct. 2016 à 18:48
plus complet: faut target
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("H13")) Is Nothing Then a1 = "Liste_" & Replace(Replace(ActiveCell.Offset(0, -2).Value, " ", ""), ":", "") a = Application.Transpose(Sheets("DB").Range(a1)) Me.ComboBox1.Clear Me.ComboBox1.List = a Me.ComboBox1.Height = ActiveCell.Height + 3 Me.ComboBox1.Width = 151 Me.ComboBox1.Top = ActiveCell.Top Me.ComboBox1.Left = ActiveCell.Left Me.ComboBox1 = ActiveCell Me.ComboBox1.Visible = True Me.ComboBox1.Activate Me.ComboBox1.DropDown ElseIf Not Intersect(Target, Range("U11, U13, H25, U25, H27, H37")) Is Nothing Then a1 = "Liste_" & Replace(Replace(ActiveCell.Offset(0, -2).Value, " ", ""), ":", "") a = Application.Transpose(Sheets("DB").Range(a1)) Me.ComboBox1.Clear Me.ComboBox1.List = a Me.ComboBox1.Height = ActiveCell.Height + 3 Me.ComboBox1.Width = 151 Me.ComboBox1.Top = ActiveCell.Top Me.ComboBox1.Left = ActiveCell.Left Me.ComboBox1 = ActiveCell Me.ComboBox1.Visible = True Me.ComboBox1.Activate Me.ComboBox1.DropDown ElseIf Not Intersect(Target, Range("H16, H23, H34")) Is Nothing Then a1 = "Liste_" & Replace(Replace(ActiveCell.Offset(0, -2).Value, " ", ""), ":", "") a = Application.Transpose(Sheets("DB").Range(a1)) Me.ComboBox1.Clear Me.ComboBox1.List = a Me.ComboBox1.Height = ActiveCell.Height + 3 Me.ComboBox1.Width = 395 Me.ComboBox1.Top = ActiveCell.Top Me.ComboBox1.Left = ActiveCell.Left Me.ComboBox1 = ActiveCell Me.ComboBox1.Visible = True Me.ComboBox1.Activate Me.ComboBox1.DropDown Else Me.ComboBox1.Visible = xlVeryHidden End If If Not Intersect(Target, Range("H27")) Is Nothing Then Formule = "=IFERROR(""+""&VLOOKUP($H$27,Liste_IndicatifTel,2,0),"""")" Range("H30, U30, U32").Formula = Formule End If End Sub27 oct. 2016 à 08:28
Avec combobox cachee sur cellule precedente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("H13")) Is Nothing Then a1 = "Liste_" & Replace(Replace(ActiveCell.Offset(0, -2).Value, " ", ""), ":", "") a = Application.Transpose(Sheets("DB").Range(a1)) Me.ComboBox1.Visible = False Me.ComboBox1.Clear Me.ComboBox1.List() = a Me.ComboBox1.Height = ActiveCell.Height + 3 Me.ComboBox1.Width = 151 Me.ComboBox1.Top = ActiveCell.Top Me.ComboBox1.Left = ActiveCell.Left Me.ComboBox1 = ActiveCell Me.ComboBox1.Visible = True Me.ComboBox1.Activate Me.ComboBox1.DropDown ElseIf Not Intersect(Target, Range("U11, U13, H25, U25, H27, H37")) Is Nothing Then a1 = "Liste_" & Replace(Replace(ActiveCell.Offset(0, -2).Value, " ", ""), ":", "") a = Application.Transpose(Sheets("DB").Range(a1)) Me.ComboBox1.Visible = True Me.ComboBox1.Clear Me.ComboBox1.List = a Me.ComboBox1.Height = ActiveCell.Height + 3 Me.ComboBox1.Width = 151 Me.ComboBox1.Top = ActiveCell.Top Me.ComboBox1.Left = ActiveCell.Left Me.ComboBox1 = ActiveCell Me.ComboBox1.Visible = True Me.ComboBox1.Activate Me.ComboBox1.DropDown ElseIf Not Intersect(Target, Range("H16, H23, H34")) Is Nothing Then a1 = "Liste_" & Replace(Replace(ActiveCell.Offset(0, -2).Value, " ", ""), ":", "") a = Application.Transpose(Sheets("DB").Range(a1)) Me.ComboBox1.Visible = True Me.ComboBox1.Clear Me.ComboBox1.List = a Me.ComboBox1.Height = ActiveCell.Height + 3 Me.ComboBox1.Width = 395 Me.ComboBox1.Top = ActiveCell.Top Me.ComboBox1.Left = ActiveCell.Left Me.ComboBox1 = ActiveCell Me.ComboBox1.Visible = True Me.ComboBox1.Activate Me.ComboBox1.DropDown Else Me.ComboBox1.Visible = xlVeryHidden End If If Not Intersect(Target, Range("H27")) Is Nothing Then Formule = "=IFERROR(""+""&VLOOKUP($H$27,Liste_IndicatifTel,2,0),"""")" Range("H30, U30, U32").Formula = Formule End If End Sub27 oct. 2016 à 10:34