Dans un userform, j'utilise une liste modifiable.
Cette liste est nommée et définie avec la fonction "décaler".
Tout est OK. Lorsque je complète cette liste manuellement dans la
feuille "Tables", elle se redimensionne comme il faut (prise en compte
des nouvelles valeurs).
Lorsque le user entre une valeur qui n'est pas dans la liste, c'est bon
aussi dans la feuille où sont récupérées les données (feuille "Liste"
dans le cas présent).
Mon problème est comment peut-on ajouter systématiquement la valeur
saisie par le user dans la liste qui est dans la feuille "Tables" ?
Merci d'avance à celle ou celui qui pourra m'expliquer comment faire.
Daniel (il y a des homonymes... moi je suis néophyte sur excel)
Si l'élément frappé n'appartient pas à la liste, il est ajouté(Liste dans le tableur):
http://cjoint.com/?hugGdvQvL2
Private Sub Choix_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsError(Application.Match(Me.Choix, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Me.Choix Range("liste").Sort key1:=Range("liste")(1) End If End Sub
Nom de champ:
Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
Cordialement
Bonsoir à toutes et à tous,
Dans un userform, j'utilise une liste modifiable. Cette liste est nommée et définie avec la fonction "décaler". Tout est OK. Lorsque je complète cette liste manuellement dans la feuille "Tables", elle se redimensionne comme il faut (prise en compte des nouvelles valeurs). Lorsque le user entre une valeur qui n'est pas dans la liste, c'est bon aussi dans la feuille où sont récupérées les données (feuille " Liste" dans le cas présent). Mon problème est comment peut-on ajouter systématiquement la valeur saisie par le user dans la liste qui est dans la feuille "Tables" ?
Merci d'avance à celle ou celui qui pourra m'expliquer comment faire.
Daniel (il y a des homonymes... moi je suis néophyte sur excel)
Bonjour,
Si l'élément frappé n'appartient pas à la liste, il est
ajouté(Liste dans le tableur):
http://cjoint.com/?hugGdvQvL2
Private Sub Choix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsError(Application.Match(Me.Choix, Range("liste"), 0)) Then
Range("liste").End(xlDown).Offset(1, 0) = Me.Choix
Range("liste").Sort key1:=Range("liste")(1)
End If
End Sub
Nom de champ:
Liste =DECALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
Cordialement
Bonsoir à toutes et à tous,
Dans un userform, j'utilise une liste modifiable.
Cette liste est nommée et définie avec la fonction "décaler".
Tout est OK. Lorsque je complète cette liste manuellement dans la
feuille "Tables", elle se redimensionne comme il faut (prise en compte
des nouvelles valeurs).
Lorsque le user entre une valeur qui n'est pas dans la liste, c'est bon
aussi dans la feuille où sont récupérées les données (feuille " Liste"
dans le cas présent).
Mon problème est comment peut-on ajouter systématiquement la valeur
saisie par le user dans la liste qui est dans la feuille "Tables" ?
Merci d'avance à celle ou celui qui pourra m'expliquer comment faire.
Daniel (il y a des homonymes... moi je suis néophyte sur excel)
Si l'élément frappé n'appartient pas à la liste, il est ajouté(Liste dans le tableur):
http://cjoint.com/?hugGdvQvL2
Private Sub Choix_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsError(Application.Match(Me.Choix, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Me.Choix Range("liste").Sort key1:=Range("liste")(1) End If End Sub
Nom de champ:
Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
Cordialement
Bonsoir à toutes et à tous,
Dans un userform, j'utilise une liste modifiable. Cette liste est nommée et définie avec la fonction "décaler". Tout est OK. Lorsque je complète cette liste manuellement dans la feuille "Tables", elle se redimensionne comme il faut (prise en compte des nouvelles valeurs). Lorsque le user entre une valeur qui n'est pas dans la liste, c'est bon aussi dans la feuille où sont récupérées les données (feuille " Liste" dans le cas présent). Mon problème est comment peut-on ajouter systématiquement la valeur saisie par le user dans la liste qui est dans la feuille "Tables" ?
Merci d'avance à celle ou celui qui pourra m'expliquer comment faire.
Daniel (il y a des homonymes... moi je suis néophyte sur excel)
