Bonsoir,
voila je seche sur une erreur de code
a la ligne 16 >>> Range("D4:E403") .Select
merci du petit coup de main
Private Sub CommandButton1_Click()
'Effacer les participants
Dim Msg, Style, Title, Response, MyString
Msg = "Attention vous allez effacer !!!" & Chr(10) & Chr(10) & "les
inscrits de la sortie" & Chr(10) & _
Chr(10) & "Voulez vous continuer ?" ' Définit le message.
Style = vbYesNo + vbExclamation + vbDefaultButton2 ' Définit les
boutons.
Title = "V-S Effacement des participants " ' Définit le titre.
' Affiche le message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui"
Sheets("Base Données").Select
Range("D4:E403").Select
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-22
Range("E4").Select
Sheets("Accueil").Select
' Effectue une action.
Else ' L'utilisateur a choisi Non.
MyString = "Non" ' Effectue une action.
Sheets("Accueil").Select
End If
End Sub
