Mise à jour d'une liste

Bonjour à toues et tous

j'ai très bien été aidé la semaine dernière et je reviens avec une autre question

j'ai déjà eu la réponse, mais ell est perdue

Question

j'ai une liste déroulante qui alimente un ComboBox, et je souhaite que si le nom entré,soit ajouté à la liste si il est manquant

 Private Sub CbbLocalités_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    Dim sFlag As String
    Dim iRow As Integer
   ' Dim X As Integer

     Me.Label13.Visible = True
   Me.Label13.BackColor = RGB(255, 255, 153)

    '                         Modif de curulis57 Anseremme

    If Right$(Me.CbbLocalités.Text, 1) = Chr$(43) Then
        'recherche si existe
       sFlag = Left$(Me.CbbLocalités.Text, Len(Me.CbbLocalités.Text) - 1)
        For X = 0 To CbbLocalités.ListCount - 1
            If sFlag = Me.CbbLocalités.List(X) Then Exit Sub
        Next
        'inscription dans BD et actualisation de CbbLocalités
       iRow = Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row + 1
        Sheets("BD").Cells(iRow, 1) = sFlag
        Me.CbbLocalités.List = Sheets("BD").Range("A1:A" & iRow).Value
        'effacement du "+" dans CbbLocalités
        Me.CbbLocalités.Text = sFlag
    End If

End Sub

Private Sub CbbNom_Change()
  If Encours = True Then Exit Sub
  Encours = True

  Me.CbbPrénoms.ListIndex = -1

  InitListBox Me.CbbNoms, 2
  Encours = False
End Sub

Un grand merci à tous

Amitiés

Pierrot

Bonjour,

Est-ce ceci le code perdu ?

https://forum.excel-pratique.com/viewtopic.php?f=2&t=76950&p=442461&hilit=Me.CbbLocalit%C3%A9s.Text#p442461https://forum.excel-pratique.com/viewtopic.php?f=2&t=76950&p=442461&hilit=Me.CbbLocalit%C3%A9s.Text#p442461

ric

Salut, ric

C'est le code perdu, mais je te joins le fichier, je n'arrive pas à ajouter une localité

amitiés

Puierrot

Bonjour,

Si le code est nouveau, on saisit les 4 chiffres et le nom. Puis, on ajoute un " + " derrière, collé ou pas.

Ainsi, ce nouveau code sera dans ce nouvel enregistrement et il sera aussi inclus dans la liste de la feuille BD.

ric

ric, cela ne fonctionne pas comme j'aimerais

seul le chiffre s'affiche et en tête de liste dans la colonne A Feuille BD

Merci pour tout

Pierrot

Bonjour Pierre,

Ici, ça fonctionne impec.

Il faut saisir ... exemple :

1555 Montréal +

ou

1555 Montréal+

le + collé ou pas.

ric

Bonjour et merci eric, cela fonctionne bien chez moi aussi

bonne soirée

Amitiés

Pierrot

Bonjour

voila la modife pour tes 2 combo a voir

' a modifier******************* OK
    With Feuil1
       CbbLocalités.List = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row).Value
       CbbIdentifiant.List = .Range("B1:B" & .Range("B" & Rows.Count).End(xlUp).Row).Value
    End With

évite de mettre des accents dans ton code

A+

Maurice

Bonjour, Mauice,

ou dois-je coller les codes que tu viens de m'envoyer ?

amitiés

Pierrot

Bonjour

dans a la fin Initialize

retour de ton fichier

A+

Maurice

Salut, Maurice, c'est parfait

un tout gros merci

amitiés

Pierrot