Discussion :

[Jacky1002]

Bonjour à toutes et à tous
cest mon premier post sur ce forum

ca fais 2 semaines que je bosse sur un tableur de gestion de stock mais mes connaissance en VBA sont limités et ça y est je coince...

je vous présente mon classeur (pour l'instant 300 pièces):

Feuille 1 nommée "Stock" (300 lignes)
Colonne A : Code de la pièce détachée ("0001" ; "0002"...."0300")
Colonne I : Nom de la pièce
Colonne J : Marque de la pièce
Colonne K : Référence de la pièce
Colonne L : quantité installée
Colonne N : Quantité minimum
Colonne P : Stock actuel

Ensuite 300 feuilles (1 par pièce) nommée avec le code de la pièce (colonne A de la feuille "Stock")

je souhaite "cloner" des valeurs d'une ligne vers la feuille (par exemple : 0002) qui correspond au code de la colonne A.

je mexplique :
Si en début de ligne (colonne A)de la feuille Stock j'ai 0002 alors je veu copier les valeurs des colonne I, J, K, L, N, P de la meme ligne vers la feuille portant le nom "0002" dans les cellules B2, G2, E2, J2, J3, J4.
(je ne veu pas me baser sur les nom de ligne d'XL car jai des bouton de tri sur les colonnes donc nom de ligne XL changent.)

Mais si je modifie les valeur sur la feuille stock ou sur la feuille de la pièce (0002) je voudrais que ca changedes 2 cotés

j'espère je ne pas avoir été trop compliqué dans mes explications.
d'avance merci
Jacky

[dodo28]

Bonjour Jacky,
Peux tu mettre un exemple de ton classeur?
merci

[casavba]

Bonjour,

Tu peux utiliser des évenements dans ton classeur pour arriver à tes fins par exemple.

VOici à titre illustratif deux évenements à mettre dans le classeur :

1 - Workbook_SheetActivate
2 - Workbook_SheetDesactivate

Je suppose dans l'exemple que ta feuille synthèse est nommée "Stock" et que les noms de pièces (ou de feuilles) sont saisies dans la colonne A à partir de la ligne 2 càd la cellule A2.
Tu peux adapter cet exemple à ton besoin

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
Const Summary As String = "Stock"
Const NumLigne As Integer = 2
Const NumColonne As Integer = 1
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim c As Range
Dim wSh As Object
 
If Sh.Name = Summary _
    Then
        For Each Sh In ThisWorkbook.Sheets
            If Sh.Name <> Summary Then
                Set wSh = Worksheets(Summary)
                 With wSh
                        For Each c In .Range(.Cells(NumLigne, NumColonne), _
                                    .Cells(.Cells(Rows.Count, NumColonne).End(xlUp).Row, NumColonne))
                            If c.Text = Sh.Name Then _
                                c.Offset(, 1).Value = Worksheets(Sh.Name).Range("B2").Value
                                'ici tu mets les cellules que tu veux mettre à jour
                                '
                                '
                        Next c
                   End With
             End If
        Next Sh
 
    Else
 
End If
 
End Sub
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 
Dim c As Range
Dim wSh As Object
 
With Sh
 If .Name = Summary _
    Then
        For Each c In .Range(.Cells(NumLigne, NumColonne), _
                        .Cells(.Cells(Rows.Count, NumColonne).End(xlUp).Row, NumColonne))
                For Each wSh In ThisWorkbook.Sheets
                    If wSh.Name <> Summary And c.Value = wSh.Name Then
                            For i = NumLigne To wSh.Cells(Rows.Count, NumColonne).End(xlUp).Row
                                If wSh.Cells(i, NumColonne) = c.Value Then
                                        wSh.Cells(i, NumColonne + 1) = c.Offset(, 1).Value
                                        'ici tu mets les cellules que tu veux mettre à jour
                                        '
                                        '
                                End If
                            Next i
                    End If
                Next wSh
        Next c
 End If
End With
 
End Sub

Il faut mettre ce code dans le module "ThisWorkbook"

Si t'as des questions par rapport au code ou sur la manière de l'adapter, n'hésites pas.


Bonne journée