XL 2019 liste déroulant

khalid77777 · 20 Juillet 2023

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 · 20 Juillet 2023

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 · 20 Juillet 2023

sylvanu à dit:
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 · 20 Juillet 2023

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 · 20 Juillet 2023

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

accepte

sylvanu · 20 Juillet 2023

Un essai en PJ avec :

VB:

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 · 20 Juillet 2023

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

sylvanu · 20 Juillet 2023

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

khalid77777 · 20 Juillet 2023

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

sylvanu · 20 Juillet 2023

Vous ne répondez jamais aux questions ?

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

khalid77777 · 20 Juillet 2023

sylvanu à dit:
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 · 20 Juillet 2023

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 · 20 Juillet 2023

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 · 20 Juillet 2023

VB:

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 · 20 Juillet 2023

Merci bcp

XL 2019 liste déroulant

khalid77777

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

khalid77777

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

khalid77777

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

khalid77777

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

khalid77777

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

khalid77777

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

khalid77777

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

khalid77777

XLDnaute Nouveau

Discussions similaires

XL 2019 liste déroulant

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency