Modification d'une colonne identique sur plusieurs feuille

Bonjour à toutes et à tous ,

Première visite de ma part,

Donc pas vraiment de maitrise de ce forum.

Si jamais il ya qqchose de particulier à faire

dites le moi .

Mon souci :

J’ai une liste de matériel servant à un inventaire et suivi de commande

Cette liste est dans une colonne présente dans toutes les feuilles de mon classeur.

Je voudrais que quand j’ajoute une référence dans cette colonne, elle s’ajoute aussi dans les autres feuilles.

En pj le doc test

Pour résumer la colonne D4 de la feuille inventaire est la colonne de référence pour toutes les autres feuilles, et si on la modifie, la même colonne dans les autres feuilles se modifie.

(ajout ou suppression)

Merci d'avance pour vos réponses

Bruno

Salut BVanth,

ainsi sans doute...

A coller dans le module 'ThisWorkbook'.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'
Application.EnableEvents = False
Application.ScreenUpdating = False
'
If Not Intersect(Target, Range("D:D")) Is Nothing Then
    iRow = Sh.Range("D" & Rows.Count).End(xlUp).Row
    For x = 1 To Sheets.Count
        If x <> Sh.Index Then _
            Sheets(x).Range("D3:D" & Sheets(x).UsedRange.Rows.Count).ClearContents: _
            Sheets(x).Range("D3:D" & iRow).Value = Sh.Range("D3:D" & iRow).Value
    Next
End If
'
Application.EnableEvents = True
Application.ScreenUpdating = True
'
End Sub

A+