Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Validation de données de deux listes dans 2 feuilles différentes
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 !
Re : Validation de données de deux listes dans 2 feuilles différentes
Re,
Ok, super ! j'ai pluka apprendre à faire des combobox ! Et je vais revenir ici pleurer que je n'y arrive pas.
Mais si c'est fait pour ça....alors
Tant mieux ! c'est ce dont j'ai besoin ! 🙂
A bientôt
PS :euh.... juste pour avoir une piste. La liste que je crée par vba, ça peut être un tableau virtuel qui va chercher les données dans différentes pages ? Du style Feuil1.Range("X:X") And Feuil2.Range("X:X") ?
Re : Validation de données de deux listes dans 2 feuilles différentes
Bonjour Calvus, 00, le forum,
Deux solutions pour créer la liste :
Code:
Private Sub ComboBox1_GotFocus()
Dim c As Range
ComboBox1.Clear
For Each c In Feuil2.[C3:C8]
If c <> "" Then ComboBox1.AddItem c
Next
For Each c In Feuil3.[A2:A5]
If c <> "" Then ComboBox1.AddItem c
Next
ComboBox1.DropDown 'facultatif
End Sub
Code:
Private Sub ComboBox1_GotFocus()
Dim a, b, e, liste$(), n&
a = Feuil2.[C3:C8]: b = Feuil3.[A2:A5] 'matrices, plus rapides
For Each e In a
If e <> "" Then
n = n + 1
ReDim Preserve liste(1 To n)
liste(n) = e
End If
Next
For Each e In b
If e <> "" Then
n = n + 1
ReDim Preserve liste(1 To n)
liste(n) = e
End If
Next
ComboBox1.List = liste
ComboBox1.DropDown 'facultatif
End Sub
La 2ème est plus rapide sur de grands tableaux.
a et b doivent avoir chacun au moins 2 éléments.
Et si l'on veut éviter les doublons utiliser un Dictionary.
Edit : liste peut aussi être triée par la macro Quick sort (faire une recherche sur ces mots).
Re : Validation de données de deux listes dans 2 feuilles différentes
salut
Annulation…
Désolé Calvus, ma boule de cristal est moins performante que celle de Job 😕 : elle ne m’a pas proposé une vision nette de ce que tu espérais, je m’étais tenu à ta demande pour une fois ! N’est-ce pas ?
- 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