Insertion automatique dans une liste déroulante
Bonjour à toutes et à tous,
Je souhaiteria savoir s'il est possible d'insérer automatiquement une donnée dans une liste dont cette dernière est la référence pour une liste déroulante (validation / liste) ? l'objectif est de simplifier l'ajout d'une nouvelle donnée sans pour autant aller saisir l'information dans la zone de sélection de la liste déroulante
pour illustrer mes propos, vous trouverez un fichier d'exemple
merci pour vos commentaires avisés
Salut,
Les majuscules ne sont pas très bien vues sur ce Forum, édite peut-être ton titre en conséquence
Regarde si les réponses que j'avais reçues sur ce fil ne peuvent pas t'aider :
Bonne journée.
Bonjour Yvouille
malheureusement, non. Ce dont j'ai besoin c'est un code ou formule permettant d'ajouter la donnée, saisie dans la cellule B4, dans la liste (à partir de F2)
merci de vos commentaires
Je suis désolé que ça ne puisse pas t'aider.
Pour les majuscules, je me référais à la charte du Forum Explications et règles à respecter, point 3
Salut
bien noté pour le titre
cela a été faéit par erreur
par contre, est-ce que quelqu'un aurait un début de piste pour ma question ?
bonjour
cela fonctionne, je vais l'adapter à un fichier de travail et je vous reviens avec mes commentaires et/ou difficultés s'il y a
encore merci
bonsoir
j'ai tenté d'adapter le code et la formule repris sur le fichier envoyé par banzai mais cela ne fonctionne pas
le code a été inséré dans la feuille 5 qui s'appelle offre tarifaire ancienne vers
la formule que j'ai adapté est la suivante : '=DECALER('offre tarifaire ancienne vers'!$AH$2;;;NBVAL('offre tarifaire ancienne vers'!$AH:$AH)-1)
voici le code que j'ai recopié :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$AD$1" Then
If Target <> "" Then
Application.EnableEvents = False
[Destinations].Cells([Destinations].Rows.Count + 1, 1) = Target
With [Destinations]
.Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Target = ""
Application.EnableEvents = True
End If
End If
End Submerci de votre aide
bonjour
j'ai retesté et cela ne fonctionne toujours pas voici le message de débogage
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$AD$2" Then
If Target <> "" Then
Application.EnableEvents = False
[Destinations].Cells([Destinations].Rows.Count + 1, 1) = Target With [Destinations]
.Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Target = ""
Application.EnableEvents = True
End If
End If
End Sub
Je pense qu'il doit y avoir une manip pour valider le code, j'ai vérifié dans outils / options / calcul => sur odre
bref je ne comprends pas
merci de vos lumières
-- 23 Mar 2011, 11:08 --
en pj le fichier concerné
Bonsoir
j'ai appliqué à la lettre tes remarques sur la pj, cela ne fonctionne toujours pas
help !
Bonsoir
Je viens d'ouvrir ton fichier
J'ai rajouté un nom dans la case AD2 puis entrée (bien sur)
Le nom a été rajouté dans la liste colonne AH
Et dans la liste déroulante dans AD4 le nouveau nom est bien présent
Je n'en sais pas plus
Si quelqu'un d'autre peut vérifier
Bonne nuit
Bonjour Banzai
j'ai réessayé sur un autre pc et cela fonctionne !!
encore merci pour ton aide