XL 2016 Multiple combobox recherche intuitive

[Jean_Valjean]

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]

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

 

[Jean_Valjean]

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]

Bonjour
Une piste à explorer

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]

Bonjour
Une piste à explorer

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]

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]

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]

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