Microsoft 365 Combobox avec donnée horizontal

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion beloquinto
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
beloquinto

beloquinto

XLDnaute Nouveau
Bonjour
j'ai besoin de votre aide pour mettre une combobox (VBA) horizontal cellules AA4:AA171 qui va cherhcer les données lignes par lignes AD4:AO4

je ne souhaite pas utilisé de données validations.

Merci d'avance de votre aide.
 

Pièces jointes

Trier par date Trier par votes
Bonjour à tous, merci pour vos réponse
@M12, pourquoi mettre un "%" après le "i" ?

pour être plus claire je souhaite une combobox (liste) dans les cellules AA4:AA171 qui récupère les données ligne par ligne de AD4:AO4. de la manières validation des donnèes (liste).

Donc par exemple pour une combobox dans AA4 j'ai la liste des données de la même ligne AD4:AO4

merci de votre aide
 
Dernière édition:
Vote positif 0 Vote négatif
beloquinto à dit:
Bonjour à tous, merci pour vos réponse
@M12, pourquoi mettre un "%" après le "i" ?

pour être plus claire je souhaite une combobox (liste) dans les cellules AA4:AA171 qui récupère les données ligne par ligne de AD4:AO4. de la manières validation des donnèes (liste).

Donc par exemple pour une combobox dans AA4 j'ai la liste des données de la même ligne AD4:AO4

merci de votre aide
Cliquez pour agrandir...

Re,
C'est le cas,
pour info le "%" équivaut à l'expression "As Integer"
As-tu au moins testé que chaque ligne dans ta liste déroulante te donne les indications des colonnes correspondantes à la SEULE ligne
 
Vote positif 0 Vote négatif
Bonjour beloquinto, M12, sousou,

Voyez le fichier joint et ces macros pour la ComboBox :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
    If Intersect(ActiveCell, [AA4:AA171]) Is Nothing Then .Visible = False: Exit Sub
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    .Visible = True
    .Activate
End With
End Sub

Private Sub ComboBox1_GotFocus()
Dim c As Range
With ComboBox1
    .Clear 'RAZ
    .AddItem "<vide>"
    For Each c In ActiveCell(1, 4).Resize(, 12)
        If c <> "" Then .AddItem c
    Next
    Application.ScreenUpdating = True 'mise à jour de l'écran
    .DropDown 'déroule la liste
End With
End Sub

Private Sub ComboBox1_Change()
With ComboBox1
    If .ListIndex > -1 Then ActiveCell = IIf(.ListIndex = 0, "", .Text): ActiveCell(1, 0).Select
End With
End Sub
A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
job75 à dit:
Bonjour beloquinto, M12, sousou,

Voyez le fichier joint et ces macros pour la ComboBox :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
    If Intersect(ActiveCell, [AA4:AA171]) Is Nothing Then .Visible = False: Exit Sub
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    .Clear 'RAZ
    .Visible = True
    .Activate
End With
End Sub

Private Sub ComboBox1_GotFocus()
Dim c As Range
With ComboBox1
    .AddItem "<vide>"
    For Each c In ActiveCell(1, 4).Resize(, 12)
        If c <> "" Then .AddItem c
    Next
    Application.ScreenUpdating = True 'mise à jour de l'écran
    .DropDown 'déroule la liste
End With
End Sub

Private Sub ComboBox1_Change()
With ComboBox1
    If .ListIndex > -1 Then ActiveCell = IIf(.ListIndex = 0, "", .Text): ActiveCell(1, 0).Select
End With
End Sub
A+
Cliquez pour agrandir...

Super merci, ça fonctionne nickel

merci beaucoup pour ton aide
 
Vote positif 0 Vote négatif
Bonjour beloquinto, le forum,

Le fonctionnement du fichier (1) n'est pas tout à fait satisfaisant, du moins chez moi.

Je sélectionne AA5 pour afficher la ComboBox, j'enregistre et ferme le fichier.

Je rouvre le fichier et clique sur la flèche de la ComboBox : la liste ne se déroule pas correctement.

Ce fichier (2) y remédie avec ce nouveau code :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
    If Intersect(ActiveCell, [AA4:AA171]) Is Nothing Then .Visible = False: Exit Sub
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    .Visible = True
    Application.OnTime 1, Me.CodeName & ".Activation" 'activation différée
End With
End Sub

Sub Activation()
ComboBox1.Activate
End Sub

Private Sub ComboBox1_GotFocus()
Static flag As Boolean 'mémorise la variable
If flag Then Exit Sub
Dim c As Range
With ComboBox1
    .Clear 'RAZ
    .AddItem "<vide>"
    For Each c In ActiveCell(1, 4).Resize(, 12)
        If c <> "" Then .AddItem c
    Next
    flag = True
    ActiveCell.Activate 'désactive ComboBox1
    .DropDown 'déroule la liste
    .Activate 'réactive ComboBox1
    flag = False
End With
End Sub

Private Sub ComboBox1_Change()
With ComboBox1
    If .ListIndex > -1 Then ActiveCell = IIf(.ListIndex = 0, "", .Text): ActiveCell(1, 0).Select
End With
End Sub
La petite gymnastique active/désactive/réactive permet de dérouler correctement la liste.

Bonne journée.
 

Pièces jointes

Vote positif 0 Vote négatif
Une solution peut-être plus simple avec ce fichier (3) :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
With ComboBox1
    If Intersect(ActiveCell, [AA4:AA171]) Is Nothing Then .Visible = False: Exit Sub
    .Clear 'RAZ
    .AddItem "<vide>"
    For Each c In ActiveCell(1, 4).Resize(, 12)
        If c <> "" Then .AddItem c
    Next
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    .Visible = True
    Application.ScreenUpdating = True 'mise à jour de l'écran
    .Activate
End With
End Sub

Private Sub ComboBox1_GotFocus()
ComboBox1.DropDown 'déroule la liste
End Sub

Private Sub ComboBox1_Change()
With ComboBox1
    If .ListIndex > -1 Then ActiveCell = IIf(.ListIndex = 0, "", .Text): ActiveCell(1, 0).Select
End With
End Sub
Mais il faut en plus ce code dans ThisWorkbook pour créer la liste si la ComboBox est affichée :
VB: 
Private Sub Workbook_Open()
Dim c As Range
With Sheets("ARM").ComboBox1
    If Not .Visible Then Exit Sub
    .AddItem "<vide>"
    For Each c In .TopLeftCell.Offset(, 3).Resize(, 12)
        If c <> "" Then .AddItem c
    Next
End With
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Une solution peut-être plus simple avec ce fichier (3) :
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
With ComboBox1
    If Intersect(ActiveCell, [AA4:AA171]) Is Nothing Then .Visible = False: Exit Sub
    .Clear 'RAZ
    .AddItem "<vide>"
    For Each c In ActiveCell(1, 4).Resize(, 12)
        If c <> "" Then .AddItem c
    Next
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    .Visible = True
    Application.ScreenUpdating = True 'mise à jour de l'écran
    .Activate
End With
End Sub

Private Sub ComboBox1_GotFocus()
ComboBox1.DropDown 'déroule la liste
End Sub

Private Sub ComboBox1_Change()
With ComboBox1
    If .ListIndex > -1 Then ActiveCell = IIf(.ListIndex = 0, "", .Text): ActiveCell(1, 0).Select
End With
End Sub
Mais il faut en plus ce code dans ThisWorkbook pour créer la liste si la ComboBox est affichée :
VB: 
Private Sub Workbook_Open()
Dim c As Range
With Sheets("ARM").ComboBox1
    If Not .Visible Then Exit Sub
    .AddItem "<vide>"
    For Each c In .TopLeftCell.Offset(, 3).Resize(, 12)
        If c <> "" Then .AddItem c
    Next
End With
End Sub
Cliquez pour agrandir...


Franchement merci pour ton aide. je vais pouvoir avancé, par hasard comme ça tu serais comment ajouter aussi les couleurs des cellules correspondante dans la combobox ?
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 Sélectionner plage nommée via un comboBox
Réponses
3
Affichages
319
fanfan38
fanfan38
J
  • Résolu(e)
Microsoft 365 ComboBox en cascade
2 3
Réponses
40
Affichages
1 K
AtTheOne
AtTheOne
P
  • Résolu(e)
Microsoft 365 Erreur d’exécution de type 13
Réponses
4
Affichages
483
Ptitloups56
P
Chubby
  • Résolu(e)
Microsoft 365 Modification esthétique tab
2
Réponses
18
Affichages
183
Chubby
Chubby
A
  • Question Question
Microsoft 365 VBA et "Slicer" dans un TCD (source modèle de données)
Réponses
2
Affichages
138
Amilo
A
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
cathodique
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
620
Musbek
M
V
  • Question Question
Autres Importer des données avec condition depuis l'onglet source
Réponses
4
Affichages
491
vdudu
V
A
  • Résolu(e)
Microsoft 365 Afficher Masquer tableau selon critères + MàJ Autom. TCD en VBA
Réponses
8
Affichages
415
Amilo
A
C
  • Résolu(e)
Microsoft 365 Combobox dans excel
Réponses
8
Affichages
212
fanch55
fanch55
W
  • Question Question
XL 2016 ComboBox en fichier partagé
2
Réponses
15
Affichages
732
TooFatBoy
TooFatBoy
luno123
  • Question Question
Autres Croiser deux fichiers de salariés afin de comparer les soldes de CP et RTT
Réponses
4
Affichages
135
luno123
luno123
N
  • Question Question
Microsoft 365 Créer une fenêtre de vente qui alimentera un cumul dans un tableau
Réponses
2
Affichages
300
job75
job75
H
  • Résolu(e)
XL 2021 Rétablir la valeur initiale d'une combobox
Réponses
7
Affichages
228
hyule
H
V
  • Résolu(e)
Microsoft 365 Convertir des dates au format US avec heures/minutes au format FR
Réponses
6
Affichages
241
AtTheOne
AtTheOne
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
303
TooFatBoy
TooFatBoy
O
  • Question Question
XL 2019 Inscription club sportif
Réponses
11
Affichages
267
Gégé-45550
Gégé-45550
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
271
ChTi160
ChTi160
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
169
sylvanu
sylvanu
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
314
sylvanu
sylvanu
Retour