Liste déroulante VBA

Bonjour.

le travaille ds le dommaine de l'enseignement .et j ai besoin de votre aide . merci d'avance

Bonjour. Bienvenue sur le Forum

Pour ce qui est du remplissage:

Code de feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j
If Not Application.Intersect(Target, Range("E5:E15")) Is Nothing Then
 i = Target.Row 'numéro de ligne feuil1
 If Target = "MALADE" Then
    j = Sheets("LES MALADES").[D65000].End(xlUp).Row + 1 ' dernière ligne )1 sur Feuille "LES MALADES"
 Range("B" & i & ":" & "D" & i).Copy Sheets("LES MALADES").Range("D" & j) ' copie
 ElseIf Target = "ABSENT" Then
    j = Sheets("LES ABSENTS").[D65000].End(xlUp).Row + 1 ' dernière ligne )1 sur Feuille "LES ABSENTS"
 Range("B" & i & ":" & "D" & i).Copy Sheets("LES ABSENTS").Range("D" & j) ' copie
End If
End If
End Sub

J'espère seulement que tu n'enseignes pas le français...

Cordialement

Bonjour,

Voici une autre proposition avec une feuille de saisie, deux feuilles d'historisation (Malade et Absent) et une feuille de base pour les renseignements associés.

Par contre, pour les lettres d'accompagnement, tu auras tout intérêt à regarder du coté du publipostage avec Word.

Les listes des deux feuilles d'historisation (Malade et Absent) te seront bien utiles.

A+

merci pour votre aide frangy

pour monsieur Amadéus merci pour la remarque