Discussion :

[belougas]

Bonjour à tous

Je suis en train de réaliser un fichier Excel me permettant de faire un listing journalier des présences d’enfant dans une cantine scolaire.

Pour cela j’ai créé une page avec laquelle on insère dans une case jaune le numéro du badge de l’enfant et son non s’inscrit, etc.…
J’ai ensuite créé une autre page pour une visualisation mensuelle des présences et c’est là que j’ai besoin de vous, car je n’arrive pas à mettre automatiquement les présences journalières dans la présence mensuelle

Merci par avance de votre aide

[belougas]

il s agit d'un fichier XLSM

je vous joins le fichier en format XLS



merci de votre aide

[Igloobel]

Bonjour,

Peux-tu expliquer pourquoi tes "Private Sub Worksheet_Change(ByVal Target As Range)" sont présent dans les feuilles et dans les modules

A+

[belougas]

je c'est plus ,je suis complètement paume
merci de votre aide

[keygen08]

Bonjour
Code a coller dans l'objet feuil1(Presence) au lieu et place de code existant
il faut bien entendu changer les dates de la feuille presence puisque nous ne somme que au mois de septembre

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
19
20
21
22
Private Sub Worksheet_Change(ByVal Target As Range)
Dim col As String
Dim lig As Integer
    If Target.Address = "$E$10" Then
        col = Chr$((Range("E2") Mod 2) + 65)
        lig = Range(col & Rows.Count).End(xlUp).Row + 1
        Range(col & lig) = Range("E10")
    Range("E10").Select
    End If
Call ajouter_sur_journalier
End Sub
 
 
Sub ajouter_sur_journalier()
Dim c As Range, r As Range
'recherche de la colonne
Set c = Feuil2.Rows(1).Find(CDate([d1]))
'recherche de la ligne
Set r = Feuil2.Columns(1).Find([e10])
'inscription d'une croix a la croisée des ligne, colonne
Feuil2.Cells(r.Row, c.Column) = "X"
End Sub

Je suis assez d'accord sur le fait que les modules ne servent a rien.

[belougas]

merci beaucoup sa marche nickel

y a t il une possibilité de le faire chercher dans plusieurs onglet ,la date ?

je vous joint le fichier avec les mois scolaire

merci beaucoup

[keygen08]

Bonjour
au lieu et place du code de hier, Format(Feuil1.[d1], "mmmm yy") nous renvoi "mois 14" en lisant la cellule d1 de presence,
il ne reste qu'a initialiser cette feuille.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ajouter_sur_journalier()
Dim Ws As Worksheet
Dim c As Range, r As Range
' recherche de l'onglet en decomposant la date en d1 de la feuille "presence"
Set Ws = Worksheets(Format(Feuil1.[d1], "mmmm yy"))
'recherche de la colonne
Set c = Ws.Rows(1).Find(CDate([d1]))
'recherche de la ligne
Set r = Ws.Columns(1).Find([e10])
'inscription d'une croix a la croisée des ligne, colonne
Ws.Cells(r.Row, c.Column) = "1"
End Sub

le code genere une erreur si les date correspondante ne sont pas trouvé,
toutes les feuilles etant daté 01/09......=bug au 01 octobre donc n'oublier pas de changer les dates
sur les divers onglet

[belougas]

alors là chapeau ,je m'incline
merci pour tous .

c'est injuste de voir comme pour certain c'est un jeu d'enfant !!!!