Problème de macro

PHugot · 25 Octobre 2012

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 · 25 Octobre 2012

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

Code:

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

Problème de macro

PHugot

Guest

Pièces jointes

kjin

XLDnaute Barbatruc

Discussions similaires

Problème de macro

PHugot

Guest

Pièces jointes

kjin

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency