Page 25 :

Pour que les macro dim1() et dim2() fonctionnent, il faut placer les déclarations "Private" en tête de la liste des macros et supprimer les déclarations "Dim prénom" et "Dim nom_de_famille".

Le code final sera (les déclarations Private sont placées AVANT les codes de macros) :

Private prénom As String
Private nom_de_famille As String


Sub dim1 ()
prénom = InputBox ("Veuillez taper votre prénom :")
Call dim2
End Sub


Sub dim2 ()
nom_de_famille = InputBox ("Veuillez taper votre nom de famille :")
MsgBox "Votre nom complet est " & prénom & " " & nom_de_famille
End Sub

Page 30 :

macro compte_vingt()
Pour afficher une liste de chiffres décroissants, mettez le signe "moins" avant le chiffre suivant l'instruction "Step" de la troisième ligne.
Par exemple :

For nombre = 20 To 2 Step -2

Page 32 :

macro Sub devine_chiffre_vite ()
Il manque une instruction "Loop" à l'avant-dernière ligne. Le code correct est le suivant:

Sub devine_chiffre_vite ()
Dim chiffre As Byte

Do Until chiffre = 33
chiffre = InputBox ("Devinez un chiffre entre 1 et 100 :")
If chiffre = 33 Then
MsgBox "Félicitations, vous avez deviné le chiffre correct !"
End
End If
Loop
End Sub

Page 33 :

macro code_postal
Il manque une parenthèse fermante à la fin de la troisième ligne.
La ligne :
code_postal = InputBox ("Veuillez taper votre code postal :"

doit être :

code_postal = InputBox ("Veuillez taper votre code postal :")

Page 41 :

macro verif_nom
Le code de cette macro ne fonctionne que si vous avez construit le formulaire des pages précédentes.

Page 46 :

macro AutoExec Une coquille s'est glissée à la deuxième ligne. Il faut taper Name:="reveil", et non Name="reveil".
Le code de cette macro est donc :

Sub AutoExec()
Application.OnTime When:="09:10",Name:="reveil"
End Sub

Code source du formulaire d''inscription :

Téléchargez le code source complet : fete.zip

Pour que tout fonctionne, vous devez placer ses fichiers dans le dossier C:\Fête.