ComboBox que si la valeur n'exste pas dans un tableau il la crée
Résolu
drumer57
Messages postés
77
Date d'inscription
Statut
Membre
Dernière intervention
-
PlacageGranby Messages postés 393 Date d'inscription Statut Membre Dernière intervention -
PlacageGranby Messages postés 393 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- ComboBox que si la valeur n'exste pas dans un tableau il la crée
- Tableau word - Guide
- Cree un compte google - Guide
- Trier un tableau excel - Guide
- Tableau ascii - Guide
- Comment créer un groupe whatsapp - Guide
12 réponses
Bonjour
Tu pourrais ajouter la valeur "Autre" dans la liste.
Donc elle se retrouve dans ton combobox.
Et dans la propriété change du combobox
tu met un IF Combobox.text = "Autre"
alors tu fait apparaître un inputbox et tu vas écrire le résultat dans ta liste.
Tu pourrais ajouter la valeur "Autre" dans la liste.
Donc elle se retrouve dans ton combobox.
Et dans la propriété change du combobox
tu met un IF Combobox.text = "Autre"
alors tu fait apparaître un inputbox et tu vas écrire le résultat dans ta liste.
Super sympa de ta part de m'aider.
C'est pas mal par contre, comment je peux faire appel à l'inputbox et surtout de lui dire de me rajouter l'édition dans la liste?
C'est pas mal par contre, comment je peux faire appel à l'inputbox et surtout de lui dire de me rajouter l'édition dans la liste?
Re-Bonjour,
Au plus simple, tu peux mettre ton fichier online sur www.cjoint.fr
Ensuite, copie le lien vers le fichier dans le forum.
C'est souvent plus simple d'avoir un visuel sur ton fichier pour te proposer une réponse.
Au plus simple, tu peux mettre ton fichier online sur www.cjoint.fr
Ensuite, copie le lien vers le fichier dans le forum.
C'est souvent plus simple d'avoir un visuel sur ton fichier pour te proposer une réponse.
Voila mon programe.
Le problème je l'ai contourné mais maintenant j'ai un probleme pour supprimer une ligne et faire monter le reste.
L'utilisateur c'est Admin et le Mot de passe c'est un espace
https://www.cjoint.com/?DKyqEarohD7
Le problème je l'ai contourné mais maintenant j'ai un probleme pour supprimer une ligne et faire monter le reste.
L'utilisateur c'est Admin et le Mot de passe c'est un espace
https://www.cjoint.com/?DKyqEarohD7
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ok, je manque de temps ton analyser ton code.
Ci-joint un petit fichier tout simple.
En gros je peuple un combobox et je garde Autre à la fin.
Ca ne ressemble pas à ton fichier, mais si il peut te donner des idées ou t'inspirer
https://www.cjoint.com/?DKyqLOi9TJG
Ci-joint un petit fichier tout simple.
En gros je peuple un combobox et je garde Autre à la fin.
Ca ne ressemble pas à ton fichier, mais si il peut te donner des idées ou t'inspirer
https://www.cjoint.com/?DKyqLOi9TJG
C'est super sympa comme programme, ca pourra m'aider une prochaine fois. C'est super sympa. Tu aurais pas un bout de programme pour la supression et remonté de ligne?
Par rapport à ta liste déroulante dynamique, comment je peux faire en sorte que ce soit les lignes qui me propose et pas des colonnes?
Le code pour peupler le combobox à l'ouverture est dans workbook open
Donc inverse dans Sheets("Acceuil").ComboBox1.AddItem Sheets("Acceuil").Cells(i, 1).Value le i et le 1 et au lieu de descendre la colonne A, il va longer la ligne 1.
Private Sub Workbook_Open()
Dim i, DerLigne As Integer
' Trouve la dernière ligne contenant des données de la colonne A
DerLigne = Sheets("Acceuil").Range("A65536").End(xlUp).Row
' Ajoute le contenu de la colonne "A" dans le combobox à partir de la 2ieme ligne
For i = 2 To DerLigne
Sheets("Acceuil").ComboBox1.AddItem Sheets("Acceuil").Cells(i, 1).Value
Next
' Ajoute "Autre" dans le combobox à la fin
Sheets("Acceuil").ComboBox1.AddItem ("Autre")
End Sub
Donc inverse dans Sheets("Acceuil").ComboBox1.AddItem Sheets("Acceuil").Cells(i, 1).Value le i et le 1 et au lieu de descendre la colonne A, il va longer la ligne 1.
Enfin de compte je plane dans le programme alors que ca a l'air si simple, j'arrive pas a remplir la ComboBox avec le code
Notez que
DerLigne = Sheets("Acceuil").Range("A65536").End(xlUp).Row
est construit pour trouver la dernière ligne avec du contenu.
Il faudrait un DerCol = Range("IV1").End(xlToLeft).Column
DerLigne = Sheets("Acceuil").Range("A65536").End(xlUp).Row
est construit pour trouver la dernière ligne avec du contenu.
Il faudrait un DerCol = Range("IV1").End(xlToLeft).Column