Discussion :

[pifou031]

Bonjour à tous,

Je suis nouveau ici et je viens demander un peu d'aide.
Dans le cadre de la création d'une micro entreprise de ma conjointe, je suis en train de mettre en place un fichier Excel de gestion, adapté à ses besoins. Certaines fonctions m'obligent à passer par des lignes de codes. Comme je suis novice en la matière, je me suis contenté de rechercher les codes désirés sur des forums et les adapter à mon fichier... seulement là, je ne trouve pas de fonction équivalente à ce que je cherche.
Voici ce que je souhaite réaliser (fichier exemple en PJ) :
En feuille 1, colonne A, j'ai une liste de références par code unique chrono (codes produit par exemple).
En feuille 2, je rempli un formulaire (édition d'une facture par exemple) dans un tableau en sélectionnant en colonne A un code produit (n'importe lequel), via liste déroulante et en colonne B un nombre (prix par exemple). Le formulaire peux contenir 1 seule ligne ou N lignes (pas plus de 40) mais ne comporte pas de doublons. Il y a également toujours un nombre en face d'un code produit.
Ce formulaire possède une référence en cellule A1 (le N° de facture par exemple). Ce numéro changera à chaque nouvelle édition.

Lors de l'appui sur le bouton de commande, je souhaite que les nombres du formulaire qui se trouvent en faces des codes produits sélectionnés soient copiés en feuille 1 dans la 1ère colonne vide sur chaque ligne correspondant au code produit (c'est à dire que dans l'exemple joint, les nombres 240, 25 et 120 de la feuille 2 se retrouvent respectivement en cellule B2, B5 et B7 de la feuille 1.

Petite précision, une fois copié, ce même bouton enchaîne sur l'effacement des cellules du formulaire incrémentation de 1 du numéro du formulaire (code déjà réalisé mais non transmis dans l'exemple).

J'espère avoir été un minimum clair afin que vous puissiez m'aider.
D'avance merci,

Pierre

[ARTURO83]

Bonjour,

le fichier, bouton de sauvegarde facture sur feuille 2
Pièce jointe 482398

Le code utilisé

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Compare Text
 
Sub Recopie_Valeurs()
    Dim DerLig_F1 As Long, DerLig_F2 As Long, DerCol_F1 As Long
    Dim F1 As Worksheet, F2 As Worksheet
    Dim N°_Fact As Long, IMax As Long, i As Long
    'Dim c As String
 
    Application.ScreenUpdating = False
    Set F1 = Sheets("1")
    Set F2 = Sheets("2")
    DerLig_F1 = F1.[A1000].End(xlUp).Row
    DerLig_F2 = F2.[A1000].End(xlUp).Row
 
    N°_Fact = F2.[A1]
    ReDim Code(DerLig_F2) As String
    ReDim Valeur(DerLig_F2) As Long
    For i = 3 To DerLig_F2
        If Cells(i, "A") = "" Then Exit For
        Code(i) = F2.Cells(i, "A")
        Valeur(i) = F2.Cells(i, "B")
        IMax = i
    Next i
 
    DerCol_F1 = F1.[XFD1].End(xlToLeft).Column + 1
    For i = 3 To IMax
        Set c = F1.Columns("A").Find(Code(i), LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            F1.Cells(c.Row, DerCol_F1) = Valeur(i)
        End If
    Next i
 
    F1.Cells(1, DerCol_F1).NumberFormat = """F""0000"
    F1.Cells(1, DerCol_F1) = N°_Fact
    F2.[A1].NumberFormat = """F""0000"
    F2.[A1].FormulaR1C1 = "=MAX('1'!R)+1"
 
    Set c = Nothing
    Set F1 = Nothing
    Set F2 = Nothing
End Sub

Cdlt

[pifou031]

Bonsoir,

Merci ARTURO83 pour ton aide rapide et efficace...j'ai adapté le code à mon fichier, cela fonctionne parfaitement.