Modifier le contenu de plusieurs onglets en modifiant le contenu d'un seul

Question

Je reviens vers vous avec une nouvelle question, vos réponses vont forcément m'aider à la réalisation de mon projet de stage et pourront aider d'autres gens. **_Le sujet:_** dans ma mission je veux faire un outil automatisé de suivi de la production, j'ai fais des MFC. vert = la tâche est achevé et le jaune = la tâche est en cours. **_La problématique:_** dans le classeur vous trouverez 3 anglets, les superviseurs vont travailler sur 1 seul onglet (pas toujours le même (aujourd'hui anglet 1 demain 3 ...)). Je veux que quand il y a une modification sur un onglet les autres onglets ce mettent à jours automatiquement. les possibilités de modification: suppression ou ajout d'une ligne entière. changement du contenu de la colonne SUIVI. changement du contenu de la colonne N pièce...

Theze · Accepted Answer

Re,

Voici le code commenté pour plus de compréhension :

'cette procédure est généré quand un changement de valeur s'effectue dans une cellule de n'importe quelle feuille...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    'si target est supérieur à une cellule (par exemple sélection puis suppression), fin de procédure
    If Target.Count > 1 Then Exit Sub

    'empêche les procédures événementielles "Workbook_SheetChange()" et
    '"Worksheet_Change()" de ce produire à nouveau car des valeurs de cellule vont être modifiées
    Application.EnableEvents = False

    Select Case Sh.Name

        'si le changement de valeur s'effectue dans les feuilles "Feuil2" et "Feuil4"...
        Case "Feuil2", "Feuil4"
            'si cette modif s'effectue sur une colonne différente de B et D va à l'étiquette Fin...
            If Target.Column <> 2 And Target.Column <> 4 Then GoTo Fin

            'sinon, répercute la valeur modifiée sur les autres cellules des trois feuilles
            '+1 pour "Feuil1" à cause du nombre de colonnes différent par rapport aux autres feuilles
            'il faut savoir que la valeur est réinscrite dans la cellule où elle a été rentrée mais ça simplifie le code
            Worksheets("Feuil1").Cells(Target.Row, Target.Column + 1).Value = Target.Value
            Worksheets("Feuil2").Cells(Target.Row, Target.Column).Value = Target.Value
            Worksheets("Feuil4").Cells(Target.Row, Target.Column).Value = Target.Value

        Case "Feuil1"
            'idem que ci-dessus mais pour les colonnes C et E concernant la feuille "Feuil1"
            If Target.Column <> 3 And Target.Column <> 5 Then GoTo Fin

            Worksheets("Feuil1").Cells(Target.Row, Target.Column).Value = Target.Value
            Worksheets("Feuil2").Cells(Target.Row, Target.Column - 1).Value = Target.Value
            Worksheets("Feuil4").Cells(Target.Row, Target.Column - 1).Value = Target.Value

    End Select

'étiquette servant à aiguiller le code ici dans le cas où ce ne sont pas les colonnes cible
'et ceci afin de rétablir les procédures événementielles afin la fin...
Fin:

    'rétabli les événements
    Application.EnableEvents = True

End Sub

Theze · Answer

En écrivant "anglet" je suppose que tu veux dire "onglet" ? Sinon, tu parles soit de la ville du Sud-Ouest soit d'une entaille à angle droit ! Tu parles de mise à jour mais quelles cellules de quelles colonnes car les tableaux ne sont pas vraiment identiques ? Feuil2, Feuil4 oui, Feuil1 non ...

Patty5046 · Answer

Pour ce soir voici déjà le travail pour : Pour la suite, il fera jour demain, je l'espère A+...

Theze · Answer

Code à mettre dans le module du classeur (double-clic sur ThisWorkbook et coller dans la partie de droite). Les colonnes cibles sont E et C pour Feuil1 et B et D pour Feuil2 et Feuil4. Pour que ça fonctionne, il te faut supprimer la première ligne de la feuille Feuil1 afin qu'il y est correspondance de ligne ou alors insérer une ligne au dessus des tableaux des feuilles Feuil2 et Feuil4 : Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Count &gt; 1 Then Exit Sub Application.EnableEvents = False Select Case Sh.Name Case "Feuil2", "Feuil4" If Target.Column &lt;&gt; 2 And Target.Column &lt;&gt; 4 Then GoTo Fin Worksheets("Feuil1").Cells(Target.Row, Target.Column + 1).Value = Target.Value Worksheets("Feuil2").Cells(Target.Row, Target.Column).Value = Target.Value Worksheets("Feuil4").Cells(Target.Row, Target.Column).Value = Target.Value Case "Feuil1" If Target.Column &lt;&gt; 3 And Target.Column &lt;&gt; 5 Then GoTo Fin Worksheets("Feuil1").Cells(Target.Row, Target.Column).Value = Target.Value Worksheets("Feuil2").Cells(Target.Row, Target.Column - 1).Value = Target.Value Worksheets("Feuil4").Cells(Target.Row, Target.Column - 1).Value = Target.Value End Select Fin: Application.EnableEvents = True End Sub...

Patty5046 · Answer

Oui, en ce moment je suis un peu dans le cirage et n'ai pas du tout pensé à ce qu'a fait Theze. Sûr qu'au niveau compréhension, c'est plus facile à décortiquer. Bravo Theze A+...