Actualiser une liste deroulante (Validation des donnees)
1 réponse
nosferalto
Bonsoir =E0 tous !=20
J'ai un petit probleme;
j'ai un classeur qui contient deux feuilles.=20
Une qui affiche les listes deroulantes et l'autre contient=20
les donn=E9es.
Quand je seleciotnne dans ma feuil1 un choix de ma liste=20
d=E9roulante tout marche bien, imaginons 15.
maintenant je vais dans la feuil2 ou se situe les donn=E9es=20
et je change le 15 en 565...=20
Mon probleme :
Quand je reviens dans la feuil1 le choix 15 que j'ai fait=20
reste =E0 15 et ne s'actualise pas...
Je cherche donc =E0 trouver un moyen -si il existe .sic.-=20
qui me permettrait d'actualiser automatiquement le 15 en=20
565...
J'espere une fois de + etre assez clair dans mes=20
explications.
Merci =E0 tous pour votre aide !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Actualiser la liste de validation si modif dans la plage de réf :
La liste de validation est en A1 de "Feuil1" La liste de référence nommée "laListe" est en "Feuil2" Dans le module de "Feuil1" : Private Sub Worksheet_Deactivate() ActiveWorkbook.Names.Add Name:="indX", RefersTo:=Application.Match([Feuil1!A1], [laListe], 0) End Sub
Dans le module de "Feuil2" : Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [laListe]) Is Nothing Then Exit Sub On Error Resume Next If Application.Match(zz.Value, [laListe], 0) = [indX] Then [Feuil1!A1] zz.Value End Sub
AV
"nosferalto" a écrit dans le message news: 07b401c3890b$b5260840$ Bonsoir à tous !
J'ai un petit probleme; j'ai un classeur qui contient deux feuilles. Une qui affiche les listes deroulantes et l'autre contient les données. Quand je seleciotnne dans ma feuil1 un choix de ma liste déroulante tout marche bien, imaginons 15. maintenant je vais dans la feuil2 ou se situe les données et je change le 15 en 565... Mon probleme : Quand je reviens dans la feuil1 le choix 15 que j'ai fait reste à 15 et ne s'actualise pas... Je cherche donc à trouver un moyen -si il existe .sic.- qui me permettrait d'actualiser automatiquement le 15 en 565... J'espere une fois de + etre assez clair dans mes explications. Merci à tous pour votre aide !
Actualiser la liste de validation si modif dans la plage de réf :
La liste de validation est en A1 de "Feuil1"
La liste de référence nommée "laListe" est en "Feuil2"
Dans le module de "Feuil1" :
Private Sub Worksheet_Deactivate()
ActiveWorkbook.Names.Add Name:="indX", RefersTo:=Application.Match([Feuil1!A1],
[laListe], 0)
End Sub
Dans le module de "Feuil2" :
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [laListe]) Is Nothing Then Exit Sub
On Error Resume Next
If Application.Match(zz.Value, [laListe], 0) = [indX] Then [Feuil1!A1] zz.Value
End Sub
AV
"nosferalto" <nosferalto@yahoo.fr> a écrit dans le message news:
07b401c3890b$b5260840$a101280a@phx.gbl...
Bonsoir à tous !
J'ai un petit probleme;
j'ai un classeur qui contient deux feuilles.
Une qui affiche les listes deroulantes et l'autre contient
les données.
Quand je seleciotnne dans ma feuil1 un choix de ma liste
déroulante tout marche bien, imaginons 15.
maintenant je vais dans la feuil2 ou se situe les données
et je change le 15 en 565...
Mon probleme :
Quand je reviens dans la feuil1 le choix 15 que j'ai fait
reste à 15 et ne s'actualise pas...
Je cherche donc à trouver un moyen -si il existe .sic.-
qui me permettrait d'actualiser automatiquement le 15 en
565...
J'espere une fois de + etre assez clair dans mes
explications.
Merci à tous pour votre aide !
Actualiser la liste de validation si modif dans la plage de réf :
La liste de validation est en A1 de "Feuil1" La liste de référence nommée "laListe" est en "Feuil2" Dans le module de "Feuil1" : Private Sub Worksheet_Deactivate() ActiveWorkbook.Names.Add Name:="indX", RefersTo:=Application.Match([Feuil1!A1], [laListe], 0) End Sub
Dans le module de "Feuil2" : Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [laListe]) Is Nothing Then Exit Sub On Error Resume Next If Application.Match(zz.Value, [laListe], 0) = [indX] Then [Feuil1!A1] zz.Value End Sub
AV
"nosferalto" a écrit dans le message news: 07b401c3890b$b5260840$ Bonsoir à tous !
J'ai un petit probleme; j'ai un classeur qui contient deux feuilles. Une qui affiche les listes deroulantes et l'autre contient les données. Quand je seleciotnne dans ma feuil1 un choix de ma liste déroulante tout marche bien, imaginons 15. maintenant je vais dans la feuil2 ou se situe les données et je change le 15 en 565... Mon probleme : Quand je reviens dans la feuil1 le choix 15 que j'ai fait reste à 15 et ne s'actualise pas... Je cherche donc à trouver un moyen -si il existe .sic.- qui me permettrait d'actualiser automatiquement le 15 en 565... J'espere une fois de + etre assez clair dans mes explications. Merci à tous pour votre aide !
