XL 2016 Multiple combobox recherche intuitive

Jean_Valjean · 3 Mars 2022

Bonjour,

J'essaie de remplacer de simples listes déroulantes par des combobox intuitives sur des plages de cellules. J'arrive bien à faire fonctionner la chose sur la première plage (forme). J'ai tenté de passer par ElseIf dans ma procédure Not Intersect pour ajouter l'un puis l'autre combo dont j'ai besoin (façonnage, accessoire), ça ne veut pas (Cf.fichier joint).

J'ai toujours la possibilité de coller un combo pour chaque ligne dont j'ai besoin afin de contourner la procédure Worksheet_SelectionChange mais c'est moins sympa.

Merci de vos idées ou pistes de réflexion.

fanch55 · 5 Mars 2022

Comme promis,
Classeur finalisé avec la recherche intuitive ( une vraie ... )
Nota; les listes-déroulantes ont été converties en Tableaux structurés standard .

fanch55 · 3 Mars 2022

Bonjour,
Pour faire coausette 😉 , le classeur ci-joint est un exemple pour ne se servir que d'un seul combobox à tout faire ...

Jean_Valjean · 3 Mars 2022

J'adore ce combobox à tout faire avec un code assez compact ! 😉 A tout hasard, est-ce qu'il saurait aussi intégrer la saisie intuitive ce combobox magique ?

yal · 3 Mars 2022

Bonjour
Une piste à explorer

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Application.EnableEvents = False
  If Not Intersect(Range("D19:D38"), Target) Is Nothing And Target.Count = 1 Then
    ' Instructions
  End If
 
  If Not Intersect(Range("D19:D38"), Target) Is Nothing And Target.Count = 1 Then
    ' Instructions
  End If
 
  If Not Intersect(Range("D19:D38"), Target) Is Nothing And Target.Count = 1 Then
    ' Instructions
  End If
 
  Application.EnableEvents = False
End Sub

Jean_Valjean · 3 Mars 2022

yal à dit:

Bonjour
Une piste à explorer

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Application.EnableEvents = False
  If Not Intersect(Range("D19:D38"), Target) Is Nothing And Target.Count = 1 Then
    ' Instructions
  End If
 
  If Not Intersect(Range("D19:D38"), Target) Is Nothing And Target.Count = 1 Then
    ' Instructions
  End If
 
  If Not Intersect(Range("D19:D38"), Target) Is Nothing And Target.Count = 1 Then
    ' Instructions
  End If
 
  Application.EnableEvents = False
End Sub

Merci beaucoup, je viens d'explorer cette piste et elle fonctionne ! Je me compliquais bien la vie avec mon EsleIf...

fanch55 · 4 Mars 2022

rebonjour à tous,

If Not Intersect(Range("d19:d38"), Target) Is Nothing And Target.Count = 1 Then

Attention au Target.count sur des cellules fusionnées,
le count sera toujours = aux nombre de cellules fusionnées.
Donc le test n'est pas bon ...

Le classeur box à tout faire n'est pas finalisé, je vais vous en fournir un complet .

fanch55 · 5 Mars 2022

Comme promis,
Classeur finalisé avec la recherche intuitive ( une vraie ... )
Nota; les listes-déroulantes ont été converties en Tableaux structurés standard .

Jean_Valjean · 5 Mars 2022

Un grand merci pour le temps passé, c'est exactement ce dont j'ai besoin, en carrément mieux ! 🙂

Titof06 · 20 Juin 2025

fanch55 à dit:
Comme promis,
Classeur finalisé avec la recherche intuitive ( une vraie ... )
Nota; les listes-déroulantes ont été converties en Tableaux structurés standard .

Bonjour fanch55,

J'ai voulu adapter votre "saisie intuitive" sur mon fichier, mais j'ai un message d'erreur, et je ne sais pas pourquoi.
Je voulais également mettre dans l'onglet Rouge "Stats_Achats Par Article" la même chose pour les 4 choix possibles, à savoir en G2, G4, G6 et G8.
Pour chacun des choix j'ai fait les LD_xxx et T_xxx.

Si vous pouviez me dire pourquoi j'ai ce message d'erreur, je vous en remercie par avance.

Voici le lien WeTransfert car le fichier pèse 7 Mo : https://we.tl/t-CDQe7yX4sn

Je vous souhaite une agréable journée,

Titof06

fanch55 · 20 Juin 2025

Bonjour,
La Combobox1 doit être appelée CBX .
Le Champ nommé T_Fournisseurs doit être supprimé
La table de la feuille "Fourn" doit être convertie en tableau de nom T_Fournisseurs .

Titof06 à dit:
Je voulais également mettre dans l'onglet Rouge "Stats_Achats Par Article" la même chose pour les 4 choix possibles, à savoir en G2, G4, G6 et G8.

Vous ne pourrez pas utiliser mon code , la base des articles telle qu'elle est, ne peut pas être convertie en tableau .
Personnellement vu le nombre d'enregistrements, j'aurai mis la table des articles et des commandes dans un vrai gestionnaire de bases tel qu'access, mysql ou sqlite

Titof06 · 20 Juin 2025

fanch55 à dit:
Bonjour,
La Combobox1 doit être appelée CBX .
Le Champ nommé T_Fournisseurs doit être supprimé
La table de la feuille "Fourn" doit être convertie en tableau de nom T_Fournisseurs .

Vous ne pourrez pas utiliser mon code , la base des articles telle qu'elle est, ne peut pas être convertie en tableau .
Personnellement vu le nombre d'enregistrements, j'aurai mis la table des articles et des commandes dans un vrai gestionnaire de bases tel qu'access, mysql ou sqlite

Re-Bonjour fanch55,

Je vous remercie du conseil, je vais voir comment je peux l'organiser.

Je vous souhaite une agréable fin de journée,

Titof06

XL 2016 Multiple combobox recherche intuitive

Jean_Valjean

XLDnaute Nouveau

Pièces jointes

fanch55

fanch55

XLDnaute Barbatruc

Pièces jointes

Jean_Valjean

XLDnaute Nouveau

yal

XLDnaute Occasionnel

Jean_Valjean

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Pièces jointes

Jean_Valjean

XLDnaute Nouveau

Titof06

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

Titof06

XLDnaute Occasionnel

Discussions similaires

XL 2016 Multiple combobox recherche intuitive

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Occasionnel

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency