Contenu récent par ha61@hotmail.fr

Re : Demande d'aide : Boucles Hello, En effet Do Until est toujours à + 7 (pour faire la semaine) J'avais posté la même question sur un autre forum et une réponse m'a été donnée. Je l'ai essayée: elle est excellente: Option Explicit Sub Essai99() Dim I As Integer Dim x As Integer, y As...

Re : Demande d'aide : Boucles J'ai simplifé. Voilà mon code: Sub Essai99() Dim x As Integer, y As Integer, L1 as Integer, C1 as Integer, L2 as Integer, C2 as Integer y = 6 For x = 10 To 30 Step 5 Sheets("2013a").Cells(x, y) = "PJ"...

Bonsoir, Je dois établir une liste de présence pour 4 personnes, par semaine et par année. Chaque jour est divisé en 4 parties: Matin, Après Midi, Soirée et Nuit. Pour une personne qui travaille uniquement dans la journée pour un jour de semaine non férié: M=PJ AM=PJ S=/ N=/ Pour...

Erreur de message; Reposté sous une autre forme.

Erreur de message; Reposté sous une autre forme.