Combobox modifiable

j'ai une combobox1 dans la colonne D dans la feuil1 alimentée par une liste de noms Feuil3 colonneA (liste)qui fonctionne bien à chaque lignes, mais les noms nouveaux que je saisi dans la colonne D ne se retrouve pas sur la liste de base. Je voudrais que ça se met à jour automatiquement sur cette (liste) de base

Bonjour,

un essai à tester, à copier dans la feuille de code de la feuille comportant la combobox1:

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
    With Feuil3
     If ComboBox1.Value <> "" And ComboBox1.ListIndex = -1 Then
        dl = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Cells(dl, 1) = ComboBox1
        ComboBox1.ListFillRange = "Feuil3!A1:A" & dl
     End If
    End With
    ComboBox1.Value = ""
End If

End Sub

la nouvelle valeur est ajoutée en appuyant sur la touche <Entrée> quand le curseur est sur la nouvelle valeur de la combo.

A voir pour adapter l'action provoquant l'ajout.

A+

j'ai essayé ta macro mais elle bloque je te joins mon fichier simplifié

en feuil1 Dans ma macro "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"j'ai essayé d'entrer un bout du code mais ça bloque à l'execution, j'ai fais pas mal de recherche en vain je te cache pasje suis un peu perdu

je joins le fichier "Saisi classeur" pour plus de compréhension

Cordialement

Bonjour deneuville, AlgoPlus et le forum,

Pourquoi des mots de passe pour ouvrir les modules, je comprend pas vous voulez de l'aide mais pas en bloquant par des pass

cordialement

bon courage

ah oui ce fichier est utiliser par plusieurs personnes dans l'asso

je pense qu'il s'ouvre tu as juste la boite de dialogueà activer

Re et non souvre pas

je te joins le fichier sans MdP vérifie ce qui manque dans ma procédure stp.

avec mes excuses Cordialement

11essai-classeur1.zip (23.23 Ko)

re et bonjour FERDINAND,

deux bricoles modifiées

Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
    With Feuil3
     If ComboBox2.Value <> "" And ComboBox2.ListIndex = -1 Then
        dl = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Cells(dl, 1) = ComboBox2
        ComboBox2.ListFillRange = "NOMS!A2:A" & dl     'A2 et non A26
     End If
    End With
    ComboBox2.Value = ""     'combobox2 et non combobox1
End If

End Sub

A+

je pense que l'on sais mal compris ! mais c'est sur la combobox1 qui y a problème d'ajout de noms

selectionne la cellule D8 feuil1 passe en mode création visualise le code qui correspond à la macro combobox1 (change) si tu peux m'aider sur la procedure il doit pas avoir grand chose mais je sèche (tu as un commentaire sur ce que je recherche)

cordialement

j'ai essayé ta macro mais elle bloque je te joins mon fichier simplifié

dans le classeur exploitable, ce qui ressemblait à mon code présentait deux broutilles.

Après correction ça fonctionne.

Désolé que ça ne puisse te servir.

Bonne suite

Rechercher des sujets similaires à "combobox modifiable"