VBA Excel liste déroulante

Version imprimable

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:

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

1 pièce(s) jointe(s)

bonsoir
voir coté l’événement worksheetChange

Code:

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

11/02/2019, 14h47
Lioisa

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.