XL 2019 Formule ou validation des données ?

[fanou06]

Bonjour,

Je souhaiterais faire en sorte "d'automatiser" une réponse selon une donnée.
Je m'explique.

En 1 : je rentre un modèle de véhicule
En 2 : selon le véhicule entré j'aimerais que cela me mette si c'est un coupé ou une berline ou un SUV

Par exemple :

	1	2
A	BMW 430Ci	Coupé
B	BMW X1 330d	SUV
C	BMW X5 330i	SUV
D	BMW 320i	Berline

 

[fanou06]

Merci pour votre aide.

 

[nat54]

Bonjour,
Pas sûre d'avoir tout compris alors un essai

 

[fanou06]

Ca ne marche pas . . .
Si dans l'exemple je change de véhicule ça ne change rien 🙁
Qui peut me dire (sans forcément m'envoyer de fichier) comment procéder ?
Et-ce une fonction Validation des données / INDIRECT ?

Merci.

 

[cp4]

Ca ne marche pas . . .
Si dans l'exemple je change de véhicule ça ne change rien 🙁
Qui peut me dire (sans forcément m'envoyer de fichier) comment procéder ?
Et-ce une fonction Validation des données / INDIRECT ?

Merci.

Bonjour,

@nat54 😉

@fanou06 🙂: ça serait plus simple que tu joignes ton fichier.

Bonne journée.

 

[cp4]

Le fichier de nat54 en retour.

 

[fanou06]

Ok, je veux bien envoyer le fichier en expliquant ce que je souhaite.
Car là je cherche mais je bataille . . . 🙁 🙁 🙁

 

[fanou06]

Voilà un exemple, onglet où il y aura liste des modèles.
Onglet de choix. En sélectionnant le modele on a le type.

Merci.

 

[cp4]

Voilà un exemple, onglet où il y aura liste des modèles.
Onglet de choix. En sélectionnant le modele on a le type.

Merci.

Apparemment, tu n'as pas exploité le fichier du post#6.
1 - plage de données transformée en tableau structuré dont le nom est "tableau1"
2 - liste de validation en insérant cette formule dans le champ source: =INDIRECT("tableau1[modele]")
3 - code ci-dessous mis dans le module de code de la feuille "choix"

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Ligne As Long, Source As Range
    Set Source = [tableau1]
    If Not Intersect(Range("B5"), Target) Is Nothing And Target.Count = 1 Then
        If Target = "" Then
            Target.Offset(, 1) = ""
        Else
            Ligne = Application.IfError(Application.Match(Target, Source.Columns(1), 0), 0)
            Target.Offset(, 1) = Source(Ligne, 2)
        End If
    End If
End Sub

A+

 

[fanou06]

Merci, je teste.

 

[fanou06]

Merci, mais je ne maitrise pas encore les macros 🙁