XL 2016 Ajouter des valeurs dans des listes en cascade

[syrus]

Bonjour
Je m 'arrache la tète sur mon problème depuis des jours.
Je m en remet donc a vous pour m'expliquer ou mon raisonnement lâche et comment réaliser mon VBA
donc j'ai un formulaire dans lequel j'ai des listes en cascade ( en gros je fait un premier choix dans la liste 1 qui me donne des résultats dans la liste 2 en fonction du choix de la 1)
Jusqu’à la pas de problème....

Maintenant je veux créer un formulaire qui me permet de rajouter des valeurs dans mes listes
Mais je bloque, je ne voit pas comment rajouter en fin liste la nouvelle valeur en fonction de la colonne choisie

Merci
Cordialement

 

[sylvanu]

Bonsoir Syrus,
Que diable vouliez vous faire par :
DLig = .Range("cellue de la liste choisie" & Rows.Count).End(xlUp).Row
.Range("cellue de la liste choisie" & DLig + 1).Value = Nversion.Value

 

[sylvanu]

Re moi,
Déclarez Colonne en public. ( Avant Private Sub Nversion_Change() mettre Public Colonne. Car actuellement Colonne est local donc non utilisable par subandsave_click.
Et j'ai changé subandsave_click par ça, ça a l'air de marcher .... sauf la sauvegarde évidemment.

Private Sub subandsave_click()
Dim DLig As Long
 DLig = (ThisWorkbook.Sheets("BDDV").Cells(65536, Colonne).End(xlUp).Row)
 ThisWorkbook.Sheets("BDDV").Cells(DLig + 1, Colonne).Value = Nversion.Value
 
  Chemin = "C:\dossier\blabla"
    ActiveWorkbook.SaveAs Filename:=Chemin & "\" & "version" & ".xlsm"
 
End Sub

 

[syrus]

Bonjour
Un grand merci a vous
Il ne me reste plus qu'a bien comprendre votre code, afin de comprendre mes erreurs

Bonsoir Syrus,
Que diable vouliez vous faire par :
DLig = .Range("cellue de la liste choisie" & Rows.Count).End(xlUp).Row
.Range("cellue de la liste choisie" & DLig + 1).Value = Nversion.Value

La meme choses que vous avez fait ^^ mais je me suis perdu en route
Pour info le code que j'ai fournie, est un morceau épuré, d'un plus vaste fichier aux multiples ramifications......
( et mon expérience en VBA se compte en jours )

Encore une fois merci

Cordialement

 

[syrus]

Dernier petit question mais je crois me douter de la réponse
est il possible de recharger dynamiquement la liste le userfrome de départ?
comme je l'ai dit plus haut le fichier test1 fait partie d'un plus gros fichier
en faite le userfrome de base (typeliste) contient de nombreux champs qui sont remplis avant, donc le unload n'est pas adapté
Actuellement l'utilisateur doit re sélectionner la liste (c'est pas très grave, mais bon avec certains utilisateurs ....)
donc j'aurais voulu ne recharger que la combobox