ComboBox que si la valeur n'exste pas dans un tableau il la crée Résolu/Fermé

Question

Bonjour, 

J'ai un problème. Je travail sur un programme de geston de partition, et j'aimerais que une combobox me selectionne des editions dans une liste, et s'il n'existe pas dans cette liste, il me crée directement dans la liste

Merci

PlacageGranby · Answer

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.

drumer57 · Answer

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?

PlacageGranby · Answer

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.

drumer57 · Answer

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

PlacageGranby · Answer

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

drumer57 · Answer

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?

drumer57 · Answer

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?

PlacageGranby · Answer

Le code pour peupler le combobox à l'ouverture est dans workbook open

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.

drumer57 · Answer

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

PlacageGranby · Answer

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

drumer57 · Answer

C'est parfait, ca marche, merci beaucoup, beaucoup !

PlacageGranby · Answer

Re-Bonjour

Exemple qui supprime la ligne X
Rows(X).Delete Shift:=xlUp

Le Shift:=xlUp   faire remonter les lignes pour combler le vide.

ComboBox que si la valeur n'exste pas dans un tableau il la crée

12 réponses

Discussions similaires

Newsletters