Bonjour,
Voila j'utilise excel 2003 Prof
Voici mon code:
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
23
24
25
26
27
28
Sub valider()
    Sheets("Anne").Select
    Sheets("Liste").Visible = True
    ActiveSheet.Unprotect
    Sheets("Liste").Select
    [B65536].End(xlUp).Offset(1, 0).Select
    ActiveCell = Sheets("Anne").[D4]
    Sheets("Liste").[B3:F3].Sort key1:=Sheets("Liste").[B3]
    [C65536].End(xlUp).Offset(1, 0).Select
    ActiveCell = Sheets("Anne").[D11]
    Sheets("Liste").[C3:F3].Sort key1:=Sheets("Liste").[C3]
    [D65536].End(xlUp).Offset(1, 0).Select
    ActiveCell = Sheets("Anne").[H11]
    Sheets("Liste").[D3:F3].Sort key1:=Sheets("Liste").[D3]
    [E65536].End(xlUp).Offset(1, 0).Select
    ActiveCell = Sheets("Anne").[J11]
    Sheets("Liste").[E3:F3].Sort key1:=Sheets("Liste").[E3]
    Sheets("Liste").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Anne").Select
    Range("compteur").Value = Range("numeroencours").Value
    Range("numeroencours").Value = Range("compteur").Value + 1
    Range("D11:F11").ClearContents
    Range("H11").ClearContents
    Range("J11").ClearContents
    Range("D11").Select
    ActiveSheet.Protect
End Sub
Sur ma feuille nommée "Anne", je voudrais que dans les champs ou cellule
D4, D11, H11, J11, dès que je valide, il faudrait que dès que une des cellules n'est pas rempli qu'il me dise avec un truc genre (Inputbox "tous les champs ne sont pas renseigné")
Pouvez vous m'aidez s'il vous plait à intéger, un Inputbox avec un message d'erreur à mon code ci dessus
merci d'avance.
Et cela m'enleverais vraiment une épine du pied.