Combobox efface textbox

Version imprimable

09/10/2021, 11h54
dubdub87000

1 pièce(s) jointe(s)

Combobox efface textbox

Bonjour

Je viens vers vous car j'ai un petit problème j'ai une combobox qui s'alimente avec la colonne des noms donc quand je tape une lettre si il existe il me rempli et rempli les autres textbox

Je voudrais que si le nom n'existe pas il puisse effacer les autres textbox exemple si je tape la lettre D il me présente Dupont ce qui est normal car il existe dans tableau

mais par exemple si je rajoute ensuite la lettre A par exemple pour Dallas je voudrais qu'ils puissent effacer les autres texbox

s'il vous plaît

En remerciant d'avance

Pièce jointe 606292

Bonjour

peut étre comme ceci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub ComboBox1_Change()
Dim Fin As Integer
    Fin = Feuil1.Range("B" & Rows.Count).End(xlUp).Row
 
            If Me.ComboBox1.Value <> "" Then
                 Me.Label5.Caption = Clear
                 Me.TextBox1.Value = Clear
                 Me.TextBox2.Value = Clear
                    For ligne = 2 To Fin
 
                        If Feuil1.Cells(ligne, 2).Value = Me.ComboBox1.Value Then
                            Me.Label5.Caption = Feuil1.Cells(ligne, 1).Value
                            Me.TextBox1.Value = Feuil1.Cells(ligne, 3).Value
                            Me.TextBox2.Value = Feuil1.Cells(ligne, 4).Value
                        End If
 
                    Next ligne
 
                Else
 
                If Me.ComboBox1.Value <> Feuil1.Range("B" & Rows.Count).End(xlUp).Row Then
 
                            Me.Label5.Caption = Clear
                            Me.TextBox1.Value = Clear
                            Me.TextBox2.Value = Clear
                End If
 
            End If
 
End Sub

Du coup,je ne sais pas si le esle est utile.

Dans ce cas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub ComboBox1_Change()
 
Dim Fin As Integer
 
    Fin = Feuil1.Range("B" & Rows.Count).End(xlUp).Row
 
            If Me.ComboBox1.Value <> "" Then
                 Me.Label5.Caption = Clear
                 Me.TextBox1.Value = Clear
                 Me.TextBox2.Value = Clear
                    For ligne = 2 To Fin
 
                        If Feuil1.Cells(ligne, 2).Value = Me.ComboBox1.Value Then
                            Me.Label5.Caption = Feuil1.Cells(ligne, 1).Value
                            Me.TextBox1.Value = Feuil1.Cells(ligne, 3).Value
                            Me.TextBox2.Value = Feuil1.Cells(ligne, 4).Value
                        End If
 
                    Next ligne
 
 
            End If
 
End Sub

Bonjour,

Citation:

j'ai une combobox qui s'alimente avec la colonne des noms donc quand je tape une lettre

Une combobox est par définition une "zone de liste modifiable".
Autant donc l'alimenter pour en gérer la valeur ensuite et modifier la propriété Caption d'un contrôe Label, ou la propriété Text d'un contrôle Textbox.

Quant aux End(xl..., cette fonction est plus qu'inusitées avec l'apparition des tableaux structurés.

Ici, mais c'est mon avis, j'aurais opté pour un Label plutôt qu'une Texbox.
Ce étant donné que la valeur retournée dépend de la Combobox.

Soit:
Un tableau structuré T_Famille comprenant 2 colonnes Parent, Voiture.
Un formulaire doté d'une zone de liste modifiable Cbx_Parent et d'un label Lb_Voiture
Le changement de la zone de liste modifiable impactera la propriété Caption du contrôle Label.

Dans un module standard
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Option Explicit Public Sub lavoiture() With Usf_choix With .Cbx_Parent 'Effacement des items .Clear 'Complétude des items .List = Range("T_Famille[Parent]").Value 'Initalisation à vide .ListIndex = -1 End With .Lb_Voiture.Caption = "" .Show End With End Sub
Dans l'espace VBE du formulaire
Code:

1 2 3 4 5 6 7 8 9 Option Explicit Private Sub Cbx_Parent_Change() Dim eq As Long 'Recherche de la ligne où se trouve l'item sélectionné eq = Evaluate("=MATCH(""" & Cbx_Parent.Value & """,T_Famille[Parent],0)") 'Retour du champ Voiture à cette ligne Lb_Voiture.Caption = Range("T_Famille[Voiture]")(eq) End Sub
Nota: Dans la fonction Evaluate, il n'est pas utile de gérer l'erreur.
La combobox étant alimentée depuis le tableau structuré.

Salut.

Je plussoie Marcel sur l'utilisation du tableau structuré. Ca simplifie grandement le code => Mon tuto sur les tableaux structurés

Vu que ta combo se remplit à partir de la plage non triée, ce qui n'est pas le top point de vue ergonomie, soit, tu pourrais te passer de la recherche de la ligne. Ton combo commence en ligne 0, ton tableau en ligne 1. Tu peux donc utiliser la propriété ListIndex du combo pour pointer vers la bonne ligne de la plage. Je pars du principe que ton userform est déchargé après utilisation, ce qui implique que les contrôles sont vides.

Perso, je n'aime pas alimenter le combobox avec une référence à une plage en utilisant RowSource. Je préfère charger les données comme Marcel le propose (nettoyage en moins)

Pour préparer et ouvrir le userform:

Code:

https://fauconnier.developpez.com/tutoriels/tableaux-structures/

Sur changement du combobox:
Code:

1 2 3 4 5 6 7 Private Sub ComboBox1_Change() With ComboBox1 TextBox1 = Range("t_Contacts[Prenom]")(.ListIndex + 1).Value TextBox2 = Range("t_Contacts[Adresse]")(.ListIndex + 1).Value Label5.Caption = Range("t_Contacts[ID]")(.ListIndex + 1).Value End With End Sub
Tu tagues Excel 365, donc tu pourrais trier les données du combobox, pour présenter la liste par ordre alphabétique:
Code:

1 2 3 4 5 6 Sub Ouvre() With UserForm1 .ComboBox1.List = Application.Sort(Range("t_Contacts[Nom]")) .Show End With End Sub
Tu devras alors utiliser Match, soit comme Marcel le propose, soit avec Application.Match, comme ci-dessous:
Code:

1 2 3 4 5 6 7 8 Private Sub ComboBox1_Change() Dim Index As Long Index = Application.Match(ComboBox1.Value, Range("t_Contacts[Nom]"), 0) TextBox1 = Range("t_Contacts[Prenom]")(Index).Value TextBox2 = Range("t_Contacts[Adresse]")(Index).Value Label5.Caption = Range("t_Contacts[ID]")(Index).Value End Sub
Je me demande comment tu vas faire si tu as plusieurs personnes du même nom. Perso, j'irais plus vite soit vers un listbox, soit vers un combobox à au moins deux colonnes pour afficher le nom et le prénom, éventuellement triés avec Sort.

Comme je vois que tu as les boutons Ajouter et Modifier, je me dis que tu vas vouloir échanger avec ta table de données. Je te conseillerais dès lors une approche plus générique.

12/10/2021, 07h34
Pierre Fauconnier

1 pièce(s) jointe(s)
Pour éviter les aller-retours vers le tableau, on peut aussi embarquer les données dans le combobox. Ici, on préciserait qu'il possède 4 colonnes et on en donnerait les largeurs.

Pièce jointe 606427

On pourrait alors alimenter les autres contrôles directement au départ du combobox, en utilisant sa propriété .List, qui renvoie un array de base 0.
Code:

1 2 3 4 5 6 7 Private Sub ComboBox1_Change() With ComboBox1 TextBox1 = .List(.ListIndex, 2) TextBox2 = .List(.ListIndex, 3) Label5.Caption = .List(.ListIndex, 0) End With End Sub
PS: Il serait intéressant de nommer correctement tes contrôles, même si je suppose que ton classeur est un classeur d'apprentissage. Adopter les bonnes pratiques dès le début me semble judicieux ;)