Problème de macro

[PHugot]

Bonjour, je voudrais faire évoluer mon petit fichier qui gère mes classes de prépas ainsi : dans chaque feuille CPES, L1A, ...... lorsque je fais des modifications (et c'est tous les jours) je voudrais qu'à l'aide d'un bouton (ex le bouton OK dans la feuille CPES) la copie se fasse automatiquement dans la feuille base (couplée aux fichiers word) , et uniquement les lignes concernées, ex 1 à 24 pour les CPES, 25 à 70 pour les L1A..... etc. Ci-joint un fichier vide car il contient que des données personnelles d'élèves..... et si le bouton rouge pouvait passer en vert à la copie.... ce serait génial (mais pas indispensable). Merci d'avance pour votre aide. Philippe

 

[kjin]

Re : Problème de macro

Bonsoir,
Sans bouton, les données sont directement modifiées dans la feuille base
Cela suppose néanmoins que la structure des feuilles est conforme à l'exemple
Dans le module de ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Base" Or Sh.Name = "Acc" Then Exit Sub
If Target.Row < 11 Then Exit Sub
If Sh.Cells(Target.Row, 2) = "" Or Not IsNumeric(Sh.Cells(Target.Row, 2)) Then Exit Sub
With Sheets("Base")
    Application.EnableEvents = False
    .Cells(Sh.Cells(Target.Row, 2).Value + 1, Target.Column) = Target
    Application.EnableEvents = True
End With
End Sub

A+
kjin