Erreur de compilation: Argument non facultatif

Bonjour à toutes et tous,

je suis un petit nouveau en VBA, je suis en train de suivre un tuto pour créer un formulaire client mais je rencontre un problème lors de l'exécution du code et je ne sais pas quoi faire !

Vous remerciant par avance de votre aide !

Voici le code:

Private Sub insertion(Mode As String)

Dim ligne As Integer: Dim test As Boolean

test = False
If (Range(P9).Value = 0) Then

If (Mode = Ajout) Then
ligne = NvLigne
If (ClExiste = True) Then test = True
Else
ligne = ligneSel
End If

ActiveSheet.Unprotect
If test = False Then
Range(B & ligne).Value = Range(B3).Value
Range(C & ligne).Value = Range(D3).Value
Range(D & ligne).Value = Range(G3).Value
Range(E & ligne).Value = Range(B6).Value
Range(f & ligne).Value = Range(D6).Value
Range(G & ligne).Value = Range(B9).Value
Range(H & ligne).Value = Range(G9).Value
Range(i & ligne).Value = Range(D9).Value
Else
MsgBox 'Le client existe déjà'
End If

vider_form

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Else
MsgBox 'Tous les champs ne sont pas correctement renseignés'

End If
End Sub

Bonjour,

pour mettre du code, merci d'utiliser les balises </> et d'indenter ton code, et/ou de mettre ton fichier contenant la macro.

ton message d'erreur vient de l'instruction Msgbox qui demande un paramètre. tu as mis ' au lieu de " pour ton paramètre, pour vba ' signifie que ce qui suit est un commentaire. quand tu auras corrigé cette syntaxe tu rencontreras d'autres problèmes ... (fonction inexistante, range(P9) doit être écrit range("P9") range(B & ligne) doit être range("B" & ligne) ...)

Bonjour et merci pour votre aide,

je vais déjà faire les corrections soumises et je tiens au courant !!

Bon effectivement je rencontre d'autres soucis !!

je vous mets le fichier.

Un grand Merci.