Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Saisie Combobox et recupération valeur

Créer une discussion

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
E

eric72

XLDnaute Accro
Bonjour à tous,

Je vous fais part d'un petit souci avec une combobox nommée "NomPlante", celle-ci est alimentée j'aimerais par la colonne "y" dela feuille "Données", j'aimerais que, lorsque une valeur saisie ne fait pas partie de la liste, cette valeur vienne à la suite de la liste et que celle-ci soit triée par ordre alphabétique, j'ai essayé pas mal de code récupéré de ci de là, mais rien y fait.
Est-ce possible et l'un d'entre vous a-t-il la solution.
Merci une nouvelle fois à tous les experts présents sur ce forum, vous êtes géniaux.
Eric
 

Pièces jointes

Trier par date Trier par votes
Bonsoir eric72,
eric72 à dit:
Oups je crois que j'ai posé une colle, serait-ce impossible?
Cliquez pour agrandir...
eric72 à dit:
vous êtes géniaux.
Cliquez pour agrandir...
Pas du tout impossible mais ça a fait fuir tous ceux qui ne le sont pas :
VB: 
Private Sub NomPlante_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim nom$, P As Range
nom = Trim(NomPlante)
If nom = "" Then Exit Sub
Set P = Sheets("Données").Range("Nom")
If Application.CountIf(P, nom) = 0 Then
    If MsgBox("Voulez-vous enregistrer dans la base le nom '" & nom & "' ?", 4) = 6 Then
        NomPlante.RowSource = ""
        P(P.Rows.Count + 1, 1) = nom
        P.CurrentRegion.Sort P, xlAscending, Header:=xlYes 'tri
        NomPlante.RowSource = "Nom"
    End If
    Exit Sub
End If
GenrePlante = Application.VLookup(nom, Sheets("Données").Range("BasePlante"), 3, 0)
GammePlante = Application.VLookup(nom, Sheets("Données").Range("BasePlante"), 4, 0)
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Job 75,

Tout d'abord merci beaucoup pour votre réponse, je n'ai pas le temps de regarder ce week end mais je m'y met dès lundi et vous tient au courant.
Passez un bon week et à lundi.
Merci 1000 fois
Cdt
Eric
 
Vote positif 0 Vote négatif
La seule subtilité c'est qu'il faut effacer la propriété RowSource avant de modifier la base.
Cliquez pour agrandir...
Et oui. Je me suis demandé pourquoi tu remettais le RowSource à vide avant d'ajouter une ligne dans le tableau structuré.
Que se passe-t-il si tu ne le fais pas ? Il ne réactualise pas la liste qu'il ne construit qu'une fois au départ sur le RowSource défini ?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

B
  • Question Question
Microsoft 365 Alimenter combobox et ajouter la valeur si non inscrit dans la liste
Réponses
5
Affichages
679
sousou
C
  • Résolu(e)
XL 2016 Problème de DropDown d'une ComboBox (VBA)
Réponses
2
Affichages
553
crocrocro
C
L
  • Question Question
XL 2019 aligner textbox userform et valeur de cellule
Réponses
1
Affichages
420
fanfan38
Z
  • Question Question
Microsoft 365 Validation de données et saisie partielle
Réponses
3
Affichages
488
Dranreb
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
R
  • Résolu(e)
Microsoft 365 Decaler une liste déroulante suivant valeur d'une cellule
2
Réponses
16
Affichages
1 K
raf26
R
M
  • Question Question
XL 2019 UserForm, ComboBox : évènement ou valeur sur défilement de la liste
Réponses
2
Affichages
596
MilkaQuercy
M
E
  • Résolu(e)
Microsoft 365 tester valeur Combo et ajouter
Réponses
8
Affichages
421
eric72
E
C
  • Résolu(e)
Microsoft 365 Macro qui crée un lien hypertexte + se déclenche OnClick
Réponses
5
Affichages
851
AtTheOne
D
  • Question Question
Valeur ComboBox imbriquée qui ne s'affiche pas du UserForm au tableau
Réponses
10
Affichages
1 K
DelfD
D
POWERQUERY :: Importation et optimisation des étapes - Table.TransformColumns - Table.TransformRows - Record.AddField - Record.TransformFields
Réponses
0
Affichages
296
oguruma
M
  • Question Question
XL 2016 Récupérer la planification d'un excel et la croiser avec un planning d'un autre Excel
Réponses
5
Affichages
973
vgendron
K
  • Question Question
Microsoft 365 Formule INDEX/EQUIV avec plusieurs valeurs pour une même en-tête
Réponses
2
Affichages
2 K
KLfy
K
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
898
Messan
S
  • Question Question
XL pour MAC [Mac - Excel - VBA] Problème de saisie semi-automatique dans une ComboBox
Réponses
9
Affichages
1 K
Shadufi
S
C
  • Question Question
XL 2016 liste déroulante dans combobox
Réponses
4
Affichages
2 K
Compte Supprimé 979
C
R
  • Question Question
Microsoft 365 ListBox / ListView et combobox avec choix de colonnes
2
Réponses
20
Affichages
4 K
RaVenSs
R
L
  • Question Question
XL 2019 Trier une liste de noms latins en couleur sans doublons depuis une combobox d'un userform
2
Réponses
29
Affichages
3 K
lusert
L
M
  • Question Question
XL 2016 [RESOLU] Textbox selon date dans Combobox
Réponses
3
Affichages
1 K
Mulder
M
L
  • Question Question
Microsoft 365 Userform : Combobox triée/sans doublons avec saisie intuitive/recherche multimots
Réponses
8
Affichages
3 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…