XL 2019 liste déroulant

[khalid77777]

Bonjour,
je veux m'aider je veux saisie Prévision liste déroulant donne des résultats dans un tableau budget.


Merci d'avance pour votre aide

 

[sylvanu]

Bonjour Khalid,
Dites au moins quelle liste déroulante vous voulez ?
Mais quelle liste ? 1,2,3,4 kg ou plus ?

En PJ j'ai mis de 1 à 20kg.

 

[khalid77777]

Bonjour Khalid,
Dites au moins quelle liste déroulante vous voulez ?
Mais quelle liste ? 1,2,3,4 kg ou plus ?

En PJ j'ai mis de 1 à 20kg.

Bonjour sylvanur , je veux quand je saisie en cellule L4 automatiquement affiche dans tableau

 

[sylvanu]

je veux quand je saisie en cellule L4 automatiquement affiche dans tableau

On ne peut que le faire avec une macro en VBA, acceptez vous les macros ?

 

[khalid77777]

On ne peut que le faire avec une macro en VBA, acceptez vous les macros ?

accepte

 

[sylvanu]

Un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [M4]) Is Nothing Then
        Dim L%, C%
        If [K4] = "" Then Exit Sub
        If [I4] = "Bovin" Then
            L = Application.Match([K4], [F10:F64], 0): C = 8
        Else
            L = Application.Match([K4], [L10:L37], 0): C = 14
        End If
        Application.EnableEvents = False
        Cells(L + 9, C) = Target
        [K4:M4].ClearContents
    End If
Fin:
Application.EnableEvents = True
End Sub

Il faut choisir Bovin ou Ovin, choisir l'article, et mettre le poids.
Quand on valide le poids, celui ci est entré automatiquement dans la bonne cellule.

 

[khalid77777]

Merci sylvanur ,si le tableau de budget il dans autre feuille

 

[sylvanu]

Pas compris.
Mettez un fichier représentatif. Pourquoi ne pas avoir mis le bon fichier dès le départ ?

 

[khalid77777]

Pas compris.
Mettez un fichier représentatif. Pourquoi ne pas avoir mis le bon fichier dès le départ ?

 

[sylvanu]

Vous ne répondez jamais aux questions ?

Et après vous allez demander de mettre en F1 la liste des produits validés ?

 

[khalid77777]

Vous ne répondez jamais aux questions ?

Et après vous allez demander de mettre en F1 la liste des produits validés ?

oui

 

[sylvanu]

Vous ne répondez jamais aux questions ?
Vous ne faites jamais de phrases complètes ?
Vous ne dites jamais ce que vous voulez ?
Bonne après midi.

 

[khalid77777]

Désolé pour le dérangement, je suis faible en français, et merci pour l'aide. La demande était, puis-je mettre un tableau (budget) dans une autre feuille, et lors de la sélection sur liste déroulant , vous me donnez résultat . Je veux seulement que le résultat soit être dans une autre feuille.

 

[sylvanu]

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [M4]) Is Nothing Then
        Dim L%, C%
        If [K4] = "" Then Exit Sub
        If [I4] = "Bovin" Then
            L = Application.Match([K4], [Bovin], 0): C = 8
        Else
            L = Application.Match([K4], [Ovin], 0): C = 14
        End If
        Application.EnableEvents = False
        Sheets("Budget").Cells(L + 4, C) = Target
        [K4:M4].ClearContents
    End If
Fin:
Application.EnableEvents = True
End Sub

 

[khalid77777]

Merci bcp