dans une cellule ou a été crée un liste deroulante (donée validation liste
etc etc....)
à t on la possibilité d inscrire un terme qui n est pas dans la liste .
sinon comment faire une liste deroulante et avoir cette possibilité
Si l'élément frappé n'appartient pas à la liste, il est ajouté (Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Target.Value Range("liste").Sort key1:=Range("liste")(1) End If End If End Sub
Nom de champ:Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée validat ion liste etc etc....) à t on la possibilité d inscrire un terme qui n est pas dans la list e . sinon comment faire une liste deroulante et avoir cette possibilité
merci à tous
Bonjour,
Avec Données/Validation/Liste:
http://cjoint.com/?jynJo56QFM
Si l'élément frappé n'appartient pas à la liste, il est ajouté
(Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then
Range("liste").End(xlDown).Offset(1, 0) = Target.Value
Range("liste").Sort key1:=Range("liste")(1)
End If
End If
End Sub
Nom de champ:Liste =DECALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée validat ion liste
etc etc....)
à t on la possibilité d inscrire un terme qui n est pas dans la list e .
sinon comment faire une liste deroulante et avoir cette possibilité
Si l'élément frappé n'appartient pas à la liste, il est ajouté (Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Target.Value Range("liste").Sort key1:=Range("liste")(1) End If End If End Sub
Nom de champ:Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée validat ion liste etc etc....) à t on la possibilité d inscrire un terme qui n est pas dans la list e . sinon comment faire une liste deroulante et avoir cette possibilité
merci à tous
lulu debutant
merci JB
l exemple correspond tout a fait à ce que je veux faire mais je n ai pas saisi comment indiquer le nom de champ: Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
merci de ton aide
Bonjour,
Avec Données/Validation/Liste:
http://cjoint.com/?jynJo56QFM
Si l'élément frappé n'appartient pas à la liste, il est ajouté (Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Target.Value Range("liste").Sort key1:=Range("liste")(1) End If End If End Sub
Nom de champ:Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée validation liste etc etc....) à t on la possibilité d inscrire un terme qui n est pas dans la liste . sinon comment faire une liste deroulante et avoir cette possibilité
merci à tous
merci JB
l exemple correspond tout a fait à ce que je veux faire
mais je n ai pas saisi comment indiquer le nom de champ:
Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
merci de ton aide
Bonjour,
Avec Données/Validation/Liste:
http://cjoint.com/?jynJo56QFM
Si l'élément frappé n'appartient pas à la liste, il est ajouté
(Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then
Range("liste").End(xlDown).Offset(1, 0) = Target.Value
Range("liste").Sort key1:=Range("liste")(1)
End If
End If
End Sub
Nom de champ:Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée validation liste
etc etc....)
à t on la possibilité d inscrire un terme qui n est pas dans la liste .
sinon comment faire une liste deroulante et avoir cette possibilité
l exemple correspond tout a fait à ce que je veux faire mais je n ai pas saisi comment indiquer le nom de champ: Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
merci de ton aide
Bonjour,
Avec Données/Validation/Liste:
http://cjoint.com/?jynJo56QFM
Si l'élément frappé n'appartient pas à la liste, il est ajouté (Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Target.Value Range("liste").Sort key1:=Range("liste")(1) End If End If End Sub
Nom de champ:Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée validation liste etc etc....) à t on la possibilité d inscrire un terme qui n est pas dans la liste . sinon comment faire une liste deroulante et avoir cette possibilité
merci à tous
JB
Utiliser la commande :
Insertion/Nom/Définir:
DECALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
-F est la colonne qui contient la liste (qui commence en F2). -Cette liste peut être sur un autre onglet.
JB
merci JB
l exemple correspond tout a fait à ce que je veux faire mais je n ai pas saisi comment indiquer le nom de champ: Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
merci de ton aide
Bonjour,
Avec Données/Validation/Liste:
http://cjoint.com/?jynJo56QFM
Si l'élément frappé n'appartient pas à la liste, il est ajout é (Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Target.Value Range("liste").Sort key1:=Range("liste")(1) End If End If End Sub
Nom de champ:Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée val idation liste etc etc....) à t on la possibilité d inscrire un terme qui n est pas dans la liste . sinon comment faire une liste deroulante et avoir cette possibilité
merci à tous
Utiliser la commande :
Insertion/Nom/Définir:
DECALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
-F est la colonne qui contient la liste (qui commence en F2).
-Cette liste peut être sur un autre onglet.
JB
merci JB
l exemple correspond tout a fait à ce que je veux faire
mais je n ai pas saisi comment indiquer le nom de champ:
Liste =DECALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
merci de ton aide
Bonjour,
Avec Données/Validation/Liste:
http://cjoint.com/?jynJo56QFM
Si l'élément frappé n'appartient pas à la liste, il est ajout é
(Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then
Range("liste").End(xlDown).Offset(1, 0) = Target.Value
Range("liste").Sort key1:=Range("liste")(1)
End If
End If
End Sub
Nom de champ:Liste =DECALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée val idation liste
etc etc....)
à t on la possibilité d inscrire un terme qui n est pas dans la liste .
sinon comment faire une liste deroulante et avoir cette possibilité
-F est la colonne qui contient la liste (qui commence en F2). -Cette liste peut être sur un autre onglet.
JB
merci JB
l exemple correspond tout a fait à ce que je veux faire mais je n ai pas saisi comment indiquer le nom de champ: Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
merci de ton aide
Bonjour,
Avec Données/Validation/Liste:
http://cjoint.com/?jynJo56QFM
Si l'élément frappé n'appartient pas à la liste, il est ajout é (Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Target.Value Range("liste").Sort key1:=Range("liste")(1) End If End If End Sub
Nom de champ:Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée val idation liste etc etc....) à t on la possibilité d inscrire un terme qui n est pas dans la liste . sinon comment faire une liste deroulante et avoir cette possibilité
merci à tous
lulu debutant
Désole ni arrive pas j ai repris les meme terme que l exemple donné je fait ma liste en C6 de la feuille1
mon debut de liste est F6 mon nom de champ est listeÞCALER(Feuil1!$F$6;;;NBVAL(Feuil1!$F:$F)-1)
dans le projet VB de la feuille1 j ai coller
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$6" Then If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Target.Value Range("liste").Sort key1:=Range("liste")(1) End If End If End Sub
ce que je n arrive pas a faire c est lorsque je fais ma liste deroulante dans l onglet source que tu m as donné il est indiqué liste moi j ai la plage de cellule selectionné. je pense que mon probleme est la !!!
Utiliser la commande :
Insertion/Nom/Définir:
DECALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
-F est la colonne qui contient la liste (qui commence en F2). -Cette liste peut être sur un autre onglet.
JB
merci JB
l exemple correspond tout a fait à ce que je veux faire mais je n ai pas saisi comment indiquer le nom de champ: Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
merci de ton aide
Bonjour,
Avec Données/Validation/Liste:
http://cjoint.com/?jynJo56QFM
Si l'élément frappé n'appartient pas à la liste, il est ajouté (Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Target.Value Range("liste").Sort key1:=Range("liste")(1) End If End If End Sub
Nom de champ:Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée validation liste etc etc....) à t on la possibilité d inscrire un terme qui n est pas dans la liste . sinon comment faire une liste deroulante et avoir cette possibilité
merci à tous
Désole ni arrive pas
j ai repris les meme terme que l exemple donné
je fait ma liste en C6 de la feuille1
mon debut de liste est F6
mon nom de champ est
listeÞCALER(Feuil1!$F$6;;;NBVAL(Feuil1!$F:$F)-1)
dans le projet VB de la feuille1 j ai coller
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then
If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then
Range("liste").End(xlDown).Offset(1, 0) = Target.Value
Range("liste").Sort key1:=Range("liste")(1)
End If
End If
End Sub
ce que je n arrive pas a faire c est lorsque je fais ma liste deroulante
dans l onglet source que tu m as donné il est indiqué liste moi j ai la plage
de cellule selectionné.
je pense que mon probleme est la !!!
Utiliser la commande :
Insertion/Nom/Définir:
DECALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
-F est la colonne qui contient la liste (qui commence en F2).
-Cette liste peut être sur un autre onglet.
JB
merci JB
l exemple correspond tout a fait à ce que je veux faire
mais je n ai pas saisi comment indiquer le nom de champ:
Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
merci de ton aide
Bonjour,
Avec Données/Validation/Liste:
http://cjoint.com/?jynJo56QFM
Si l'élément frappé n'appartient pas à la liste, il est ajouté
(Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then
Range("liste").End(xlDown).Offset(1, 0) = Target.Value
Range("liste").Sort key1:=Range("liste")(1)
End If
End If
End Sub
Nom de champ:Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée validation liste
etc etc....)
à t on la possibilité d inscrire un terme qui n est pas dans la liste .
sinon comment faire une liste deroulante et avoir cette possibilité
Désole ni arrive pas j ai repris les meme terme que l exemple donné je fait ma liste en C6 de la feuille1
mon debut de liste est F6 mon nom de champ est listeÞCALER(Feuil1!$F$6;;;NBVAL(Feuil1!$F:$F)-1)
dans le projet VB de la feuille1 j ai coller
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$6" Then If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Target.Value Range("liste").Sort key1:=Range("liste")(1) End If End If End Sub
ce que je n arrive pas a faire c est lorsque je fais ma liste deroulante dans l onglet source que tu m as donné il est indiqué liste moi j ai la plage de cellule selectionné. je pense que mon probleme est la !!!
Utiliser la commande :
Insertion/Nom/Définir:
DECALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
-F est la colonne qui contient la liste (qui commence en F2). -Cette liste peut être sur un autre onglet.
JB
merci JB
l exemple correspond tout a fait à ce que je veux faire mais je n ai pas saisi comment indiquer le nom de champ: Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
merci de ton aide
Bonjour,
Avec Données/Validation/Liste:
http://cjoint.com/?jynJo56QFM
Si l'élément frappé n'appartient pas à la liste, il est ajouté (Liste dans le tableur)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If IsError(Application.Match(Target.Value, Range("liste"), 0)) Then Range("liste").End(xlDown).Offset(1, 0) = Target.Value Range("liste").Sort key1:=Range("liste")(1) End If End If End Sub
Nom de champ:Liste ÞCALER(Feuil1!$F$2;;;NBVAL(Feuil1!$F:$F)-1)
JB
bonjour à tous
dans une cellule ou a été crée un liste deroulante (donée validation liste etc etc....) à t on la possibilité d inscrire un terme qui n est pas dans la liste . sinon comment faire une liste deroulante et avoir cette possibilité
