Discussion :

[sebing]

Bonjour,

J'ai créer un planning, en me basant sur celui qui se trouve dans les tutoriels.

Donc j'ai une colonne avec les noms et les lignes qui sont les jours, une valeur est attibuée (vacance...) dans la case correspondante au jour et au nom de la personne.
Pour faire sur tableau dans le formulaire , je passe par une requete croisée dynamique.

Code :

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

1
2
3
4
5
TRANSFORM First(R_planning_union.CodeG) AS PremierDeG
SELECT R_planning_union.Matricule AS Mat
FROM R_planning_union
GROUP BY R_planning_union.Matricule
PIVOT Day([DateJ]) In (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31);

Je n'arrive pas en VBA a recuperer la valeur de la case sur laquelle j'ai cliquée afin de faire une condition.
En effet je ne connait pas le nom de ces cases.

Pouvez vous me venir en aide.

Merci par avance
Bonne journée
Seb

[ClaudeLELOUP]

Bonjour,

Intéresse-toi à la propriété "CodeContextObject" : elle te permet de connaitre le nom du contrôle qui a été cliqué.

Par exemple :

Code :

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

MsgBox Forms(CodeContextObject.Name).ActiveControl

va t'afficher le contenu du contrôle qui vient d'être mis à jour.

[sebing]

Bonjour,

Merci pour votre réponse rapide.

J'ai trouvé la solution, j'ai fait dans l'evenement sur clique de la zone de texte j'ai mis le nom de la fonction (suppAuto) et entre () le jour ex: supprAuto(10).
Dans vba

Code :

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

1
2
3
4
Public Function SuppAuto(J As Long)
        If Forms!F_planning!SF_planning.Form("Jour" & J).Value = "X" Or Forms!F_planning!SF_planning.Form("Jour" & J).Value = "MIS" Or Forms!F_planning!SF_planning.Form("Jour" & J).Value = "DR" Or IsNull(Forms!F_planning!SF_planning.Form("Jour" & J).Value) Then
            else
end if

Merci encore

Bonne soirée et bon week end
Seb