Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Consultant ERP
    Inscrit en
    février 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Consultant ERP
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : février 2019
    Messages : 2
    Points : 1
    Points
    1

    Par défaut VBA Excel liste déroulante

    Bonjour,


    Je tente de développer une application sur EXCEL de gestion de facture rien de bien compliqué mais je bloque

    Je souhaite transférer sur la feuille "facture" des données du client se trouvant sur la feuille"données globales" sélectionné dans une liste déroulante de la feuille "Facture". La plage de données varie suivant le client et ses données sont dans des colonnes non contiguës

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Sub Extraire_donnees()
    '
    ' Extraire_donnees Macro
     
    'Sélectionne le nom du commerçant
        Range("H10:J10").Select
        ' selectionne les données
        Sheets("Données globlales").Select
        'filtre les données
        ActiveSheet.Range("$A$1:$G$675").AutoFilter Field:=5, Criteria1:="BAILLY"
        'copie les données suivant le nom du commerçant
        Range("B3:B21").Select
        Selection.Copy
        Range("B3:B21,F3:G21").Select
        Range("F3").Activate
        Application.CutCopyMode = False
        Selection.Copy
        'sélectionne la facture et copie
        Sheets("Facture").Select
        ActiveWindow.LargeScroll Down:=1
        Range("B33").Select
        ActiveSheet.Paste
    End Sub
    J'espère avoir été clair et merci de votre aide

  2. #2
    Membre émérite Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    décembre 2013
    Messages
    1 465
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : décembre 2013
    Messages : 1 465
    Points : 2 377
    Points
    2 377

    Par défaut

    bonsoir
    voir coté l’événement worksheetChange
    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 <> "$C$2" Then Exit Sub
    Dim Tablo
    Dim i As Long
    Tablo = Sheets("CLIENT").Range("A2", "C" & Sheets("CLIENT").Range("C" & Rows.Count).End(xlUp).Row)
    With Sheets("FACTURE")
    For i = LBound(Tablo, 1) To UBound(Tablo, 1)
        If IsNumeric(Application.Match(CStr(Tablo(i, 1)), .Cells(2, 3), 0)) Then
            .Cells(3, "C") = Tablo(i, 2)
            .Cells(4, "C") = Tablo(i, 3)
        End If
    Next i
    End With
    End Sub
    esemple ci joint à adapter à tes besoins
    Fichiers attachés Fichiers attachés
    Un peu d'aide nous fait grand bien, un second sert de soutien........BIEN A VOUS ("ABDOU LETUNISIEN")

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Consultant ERP
    Inscrit en
    février 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Consultant ERP
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : février 2019
    Messages : 2
    Points : 1
    Points
    1

    Par défaut VBA Excel liste déroulante

    Merci pour cette réponse...

    Mais elle ne correspond pas à ce que je cherche.

    A partir d'un nom de client sélectionné dans une liste déroulante de la feuille FACTURE je souhaite récupérer les informations le concernant dans la feuille "données globales" et le copier dans la facture (plage B33:D83) La plage des données client est variables et les colonnes non contiguës.

Discussions similaires

  1. [VBA][Excel] liste déroulante validation
    Par nicolas_151 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 22/08/2008, 14h30
  2. [VBA-Excel] - Liste déroulante
    Par a.dequidt dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 08/09/2007, 10h44
  3. [VBA-EXCEL] Liste déroulante
    Par cd090580 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 21/07/2006, 08h34
  4. [VBA-E] liste déroulante
    Par mulanzia2003 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 07/02/2006, 14h19
  5. [Débutant] VBA Excel : Liste déroulante
    Par ptitsoleil87 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 14/12/2005, 14h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo