Discussion :

[elodc]

Bonjour,

Je suis confrontée à un petit problème dans mon programme VBA :
j'ai une liste de validation en A1 et une liste de validation qui se met à jour en cascade avec la fonction indirect et des cellules nommées dans la cellule B1.

par exemple en A1 : la liste des continents et en B1 des pays de ces continents.

je voudrais que quand la personne choisisse une valeur en A1 par exemple L'europe, en B1 vienne se remplir automatiquement le premier de la liste des pays dépendants : pr exemple l'Allemagne.

mes listes de validation sont bien crées, pas de soucis de ce coté, c est plus pour mettre la valeur par défaut que je coince.

Avez vous une idée ?

merci !

[mercatog]

Bonjour

Code à mettre dans le module de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$A$1" Then
    On Error GoTo Fin
    Application.EnableEvents = False
    If Target.Text = "" Then
        Target.Offset(, 1).ClearContents
    Else
        Target.Offset(, 1).Value = Range(Target.Text)(1).value
    End If
Fin:
    Application.EnableEvents = True
End If
End Sub

[elodc]

Merci de votre aide,

j'ai enlevé la gestion des erreurs pour voir ce qu'il se passait car la procédure déclenchait une erreur, et quand il arrive sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.Offset(, 1).Value = Range(Target.Text)(1).value

il m'affiche un message d'erreur :

la méthode Range de l'objet _worksheet a échoué

[mercatog]

en cascade avec la fonction indirect et des cellules nommées

J`ai supposé que les noms des plages se trouvent sur la même feuille. Sinon adapte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.Offset(, 1).Value = Worksheets("NomDeLaFeuille").Feuil1.Range(Target.Text)(1).Value

[elodc]

merci merci !! ! j'ai juste retiré le feuil1 pour laisser Worksheets("NomDeLaFeuille").Range(Target.Text)(1).Value et ça marche super bien !!

J`ai supposé que les noms des plages se trouvent sur la même feuille. Sinon adapte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.Offset(, 1).Value = Worksheets("NomDeLaFeuille").Feuil1.Range(Target.Text)(1).Value

[mercatog]

Oui c'était une coquille de ma part.
Je t'avais d'abord proposé le codename Feuil1. Pensant t'embrouiller, j'ai décidé de changer par le nom de la feuille et ai oublié d'effacer Feuil1