Autres Menu déroulant saisie prédictive

Dudu2 à dit:

Bonsoir,
OK, donc les ComboBoxes en cellules ne te conviennent pas spécialement.
Comme tu veux, je ferai l'intégration demain.

Cliquez pour agrandir...

Dudu2 à dit:

Bonjour @Quicksland,

Je te donne la version qui utilise la seule Saisie Assistée (sans ComboBox de Validation dans les cellules). Il faut double-cliquer dans la cellule pour lancer le UserForm de saisie.

C'est aussi un exemple à conserver pour la mise en œuvre de la Saisie Assistée dans une ComboBox qui s'avère extrêmement simple.

Mélanger l'ajout de plat dans la liste des plats avec la saisie d'un plat en cellule n'est à mon avis pas très judicieux et rendrait plus complexe la gestion de la saisie.

Il te faut un bouton dédié que tu dois pouvoir développer.
Edit: Sinon place cette requête dans un nouveau sujet et je suis sûr qu'un XLDnaute se proposera pour le faire, sinon moi-même.

Cliquez pour agrandir...

Dudu2 à dit:

Ok, voilà.

J'ai pas compris pourquoi t'avais ajouté un ligne vide en tête de liste des plats.
Pour vider une cellule pas besoin de double-cliquer pour lancer le UserForm de saisie, il suffit d'utiliser la touche Suppr sur la cellule en question.

Si tu ne veux pas que la valeur de la cellule s'affiche au départ dans la ComboBox, alors dans le code du UserForm_SaisiePlat il faut supprimer la ligne ValeurInitiale:=ActiveCell.Value, _

VB:

    'Appel la Saisie Assistée
    IndiceSélection = ComboBoxSaisieAssistéeEnter(Me.ComboBoxSaisie, _
                                                  KeepRangeListeValeurs, _
                                                  ValeurInitiale:=ActiveCell.Value, _
                                                  TypeFiltrage:=2)

Cliquez pour agrandir...

Quicksland à dit:

Super c'est vraiment bien 👍

C'est une erreur ... J'ai fait une mise a jour liste plats a l'arrache et lors de mon copier coller j'ai louper la première ligne 🙄

Tout est parfait et je te remercie pour ton aide

Bonne soirée

Cliquez pour agrandir...

Dudu2 à dit:

Voilà...

Cliquez pour agrandir...

Dudu2 à dit:

Ou encore cette version avec mon calendrier perso pour la date (double-cliquer aussi).

Cliquez pour agrandir...

Dudu2 à dit:

Tu prends exemple sur le fichier en Post #27 (à reprendre car modifié pour une petite correction si vbModeless) dans lequel la mise en œuvre est très simple.

Il faut intégrer:
- le UserForm_Calendrier
- le Module_Calendrier
Et faire:
Cellule.Value = Calendrier
ou
DateChoisie = Calendrier
If DateChoisie <> 0 then Cellule.Value = DateChoisie

Tu peux aussi utiliser l'une des nombreuses options facultatives du calendrier:

VB:

Public Function Calendrier(Optional Mode As Integer = vbModal, _
                           Optional ModelessGarderOuvert As Boolean = False, _
                           Optional TargetObject As Variant = Nothing, _
                           Optional TargetObjectEnglishDateFormat As String = "dd/mm/yyyy", _
                           Optional FonctionSurDateChoisie As String = "", _
                           Optional DateInitiale As Date = 0, _
                           Optional Texte As String = "", _
                           Optional TexteBackColor As Long = -1, _
                           Optional TexteForeColor As Long = -1, _
                           Optional TexteHeight As Long = -1, _
                           Optional AfficheJoursFériés As Boolean = False) As Date

Cliquez pour agrandir...