Liste de choix - Sélection automatique

[howvrell]

Bonjour,

Une liste de choix est dans la colonne A - cellule 15 "G.C.". En fonction de ce que l'on choisit dans cette colonne, la colonne C - cellule 15 "Dst", on a un choix.

Pour un GC différent correspond une liste de Dst différent.

Ma question est que quand on choisit le GC, est-il possible de forcer l'apparition du 1er Dst de sa liste correspondante ?

J'espère avoir été clair.

Merci pour votre aide à venir.

Jérôme

 

[Compte Supprimé 979]

Re : Liste de choix - Sélection automatique

Salut Howvrell,

La seule possibilité est d'utiliser du VBA avec l'évènement "Worksheet_Change"

Est-ce que tu connais ?

A+

 

[howvrell]

Re : Liste de choix - Sélection automatique

Non.

Merci en tout cas pour ton aide.

jerome

 

[pierrejean]

Re : Liste de choix - Sélection automatique

bonjour hawvrell

Salut Bruno

Vois si cela te convient

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 14 Then
 Set c = ActiveSheet.Columns(15).Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
 If Not c Is Nothing Then
   Target.Offset(0, 2) = c.Offset(0, 1)
 End If
End If
End Sub

 

[tototiti2008]

Re : Liste de choix - Sélection automatique

Bonjour à tous,

un code un peu différent pour un résultat analogue :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, ActiveSheet.Range("A15:A36")) Is Nothing Then
        If Target.Cells.Count = 1 Then
            If Target.Value <> "" Then
                ActiveSheet.Range("C" & Target.Row).Value = Application.WorksheetFunction.VLookup(Target.Value, ActiveSheet.Range("O2:P18"), 2, False)
            Else
                ActiveSheet.Range("C" & Target.Row).Value = ""
            End If
        End If
    End If
End Sub

 

[howvrell]

Re : Liste de choix - Sélection automatique

Merci pierrejean et tototiti2008, vous m'avez bien aidé.
C'est absolument ce que je voulais.

Bravo à tous les deux

Encore merci

Jérôme