Discussion :

[PUARAI]

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.

[drakkar_agfa]

Bonjour,

Je vais faire simple et te laisser continuer et adapter.

Premièrement, évite les Select et Selection

Code :

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

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

Deviendra

Code :

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

    Sheets("Anne").Unprotect

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

Code :

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

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

[PUARAI]

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