Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets(1).Range("C1") = "" And Target.Address <> "$C$1" Then
MsgBox "Une valeur doit être saisi en C1 "
Sheets(1).Range("C1").Select
Exit Sub
End If
End Sub
L'utilisateur ne pourra pas sélectionner une autre cellule tant que C1 est vide
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.