Discussion :

[Pierre67]

Bonjour

j'ai une macro qui me crée 12 onglets (un pour chaque mois) et en colonnes les jours du mois.
Dans une cellule A7, j'ai un nombre (effectif des agents)

l'utilisateur est amené à saisir pour chaque jour le nombre d'agents affecté à une tâche suivant la période de l'année dans l'onglet correspondant au mois en cours.
Une ligne total du nombre d'agents affectés.
le total des agents affectés doit obligatoirement être inférieur à l'effectif.
Ce total évolue donc en fonction des saisies.
On pourrait imagine une macro sur l'évènement worksheet.change.
mais cette fonction s'applique à un onglet
comment faire pour qu'elle s'applique à tous les onglets mensueL ?

Quelqu'un aurait-il une idée ?
bien à vous

[Invité]

Bonjour Pierre67

En utilisant l'évènement dans ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Sh te retourne la feuille dans laquelle est fait la modification

A+

[Pierre67]

merci beaucoup pour le tuyau

j'ai écrit ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
dercol = Sh.Cells(6, Cells.Columns.Count).End(xlToLeft).Column
For i = 2 To dercol
    If Sh.Range(Cells(5, i)) <> "sam" And Sh.Range(Cells(5, i)) <> "dim" Then
        If Sh.Range(Cells(7, i)) < Sh.Range("A7") Then
            Sh.Range(Cells(5, i)).Interior.ColorIndex = 43
        End If
    End If
Next
 
 
End Sub

mais cela ne fonctionne pas

ma syntaxe ne doit pas être bonne

[Invité]

Re,

Voilà comment je ferais, mais sans fichier je ne peux pas tester
J'ai mis des annotations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim DerCol As Long
  ' Récupérer la dernière colonne
  DerCol = Sh.Cells(6, Sh.Cells.Columns.Count).End(xlToLeft).Column
  ' Pour chaque colonne à partir de la 2ème
  For i = 2 To DerCol
    ' Si la cellule de la ligne 5 de la colonne i
    ' ne contient pas le texte "sam" ou "dim"
    If Sh.Cells(5, i) <> "sam" And Sh.Cells(5, i) <> "dim" Then
      ' Si la cellule de la ligne 7 de la colonne i
      ' est différente de la cellule A7
      If Sh.Cells(7, i) < Sh.Range("A7") Then
        ' mettre en couleur la cellue
        Sh.Cells(5, i).Interior.ColorIndex = 43
      End If
    End If
  Next
End Sub

A+

[Pierre67]

Merci Bruno

cela fonctionne parfaitement
@+