Discussion :

[Lioisa]

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

[BENNASR]

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

[Lioisa]

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.