Autoriser la saisie dans une cellule sous condition

[Christophe]

Bonjour le Forum,

Je souhaite diffuser un tableau à compléter à plusieurs utilisateurs.
2 Champs seulement sont à compléter dont le premier est une liste déroulante de validation qui sert à qualifier ce qui est dans l'autre cellule.
Je souhaite que la saisie dans la deuxième cellule ne soit possible que si la première a bien été complétée.

Par exemple, dans le fichier joint, qu'il ne soit pas possible (message d'erreur) de saisir en C5 si B5 n'a pas été renseignée.

Merci par avance. Bon courage.

Christophe

 

[Fo_rum]

Re : Autoriser la saisie dans une cellule sous condition

Salut,

un exemple, clic droit sur le nom de l'onglet, clic gauche sur Visualiser le code et recopier :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Address = "$C$5" And Target.Offset(, -1) = "" Then
    MsgBox "Commencer par compléter B5 !", , "Attention"
    Application.EnableEvents = False
    Target = ""
    [B5].Select
    Application.EnableEvents = True
  End If
End Sub

 

[Christophe]

Re : Autoriser la saisie dans une cellule sous condition

Bonjour et merci de ta réponse.
Comment faire pour que, automatiquement, quand B5 est correctement saisie, cela s'applique à B6 puis B7 et ainsi de suite ???

Merci

 

[Fo_rum]

Re : Autoriser la saisie dans une cellule sous condition

Re,

peut-être ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Target, Range("C5:C" & Range("C65000").End(xlUp).Row)) Is Nothing Then
    If Target.Offset(, -1) = "" Then
      MsgBox "Commencer par compléter le Type !", , "Attention"
      Application.EnableEvents = False
      Target = ""
      Target.Offset(, -1).Select
      Application.EnableEvents = True
    End If
  End If
End Sub

 

[Christophe]

Re : Autoriser la saisie dans une cellule sous condition

Merci Fo_rum pour cette solution qui répond parfaitement à mon besoin.

Bonen soirée.

Christophe