Ventilation de données

Bonsoir tout le monde,

  • J'ai trois tableaux dans le même classeur mais dans trois feuilles différentes
  • Le premier tableau est le seul auquel on renseigne nos données.

j’aimerai que lors de la saisie des donnés dans le premier tableau les donnés se ventilent automatiquement dans les deux autres tableaux

Merci de votre aide

29classeur1.xlsx (185.29 Ko)

bonjour

avec des =

voir les cellules en jaune

32classeur1-2.xlsx (186.82 Ko)

Bonjour tout le monde

si c'est possible j'aimerai que la ventilation se fasse en VBA

MERCI

Bonjour,

si tu veux automatiser via vba, supprime les cellules fusionnées (notamment dans base paie).

Bonsoir

suite a votre Remarque h2so4

les cellules fusionnées sont supprimées

Merci pour la remarque


29classeur1-12-1.xlsx (177.63 Ko)

Bonjour,

macro à ajouter dans le module de la feuille mouvement du personnel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 4 Then Exit Sub
    dl = Cells(Rows.Count, 4).End(xlUp).Row
    Set wsbs = Sheets("base salaire")
    Set wsbp = Sheets("base paie")
    dlws = wsbs.Cells(Rows.Count, "AA").End(xlUp).Row
    wsbs.Range("AA22:AA" & dlws).ClearContents
    dlws = wsbp.Cells(Rows.Count, "D").End(xlUp).Row
    wsbp.Range("D12:D" & dlws).ClearContents
    Range("D6:D" & dl).Copy wsbs.Range("AA22")
    Range("D6:D" & dl).Copy wsbp.Range("D12")
End Sub

ps: moi j'écrirais "salariés" plutôt que "salariers"

Bonjour,

La macro est impeccable

Tout fonctionne bien

Merci h2so4

Rechercher des sujets similaires à "ventilation donnees"