[E-03] Message d'erreur Inputbox

Bonjour,
Voila j'utilise excel 2003 Prof
Voici mon code:

Code:

---

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.

Bonjour,

Je vais faire simple et te laisser continuer et adapter.

Premièrement, évite les Select et Selection

Code:

---

1 2 3

Sheets("Anne").Select Sheets("Liste").Visible = True ActiveSheet.Unprotect

---

Deviendra

Code:

---

Sheets("Anne").Unprotect

---

Et voici un exemple de condition avec message d'erreur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test()   If sheets("Anne").cells(1,1) = "" then msgbox "Vous devez remplir cette cellule." exit sub end if   ' On continue le code si la cellule est remplise.   End Sub

---

Je voulais te remmercier pour ce bout de code qui cela ma beaucoup servi encore merci :king: