Saisie impossible si cellule vide dans une plage de cellules

Bonjour à tous,

J'ai dans un code VBA deux conditions:

SI la cellule A1 est vide impossible d'entrer de valeur dans les cellules de la colonne "A"

Si la cellule A1 n'est pas vide il est possible d'entrer une valeur dans chaque cellule de la colonne "A" mais à condition

que les cellules placées au dessus ne soient pas vides.

Je souhaiterais maintenant non pas que le code s'applique sur toute la colonne A mais uniquement sur la plage A2:A20

Cela ne doit pas être compliqué mais la encore je rame pour déterminer cette plage dans mon code....

Ci-joint fichier

Merci pour votre aide

Cordialement

aalex85

Bonjour

Dans ton code, remplace :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
    If Not Application.Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then

par :

    If Not Application.Intersect(Target, Range("A2:A20") Is Nothing Then

OK ?

Bye !

Bonjour

Bonjour gmb

A tester

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Count > 1 Then Exit Sub
  Application.ScreenUpdating = False
  If Not Application.Intersect(Target, Range("A2:A20")) Is Nothing Then
    Application.EnableEvents = False

    If Cells(1, 1) = "" Then
      MsgBox "Il faut d'abord remplir la cellule A1"
      Target = ""
      Cells(1, 1).Activate
    ElseIf Target.Offset(-1, 0) = "" Then
      MsgBox "Il faut d'abord remplir les cellules au-dessus de celle-ci !"
      Target.Offset(-1, 0).Activate
      Target = ""
      Do Until ActiveCell.Offset(-1, 0) <> ""
        ActiveCell.Offset(-1, 0).Activate
      Loop
    End If
  End If
  Application.EnableEvents = True
End Sub

Merci GMB & Banzai64 pour vos réponses rapides

Je viens de tester vos deux propositions et je vous confirme qu'elles fonctionnent parfaitement. Juste ajouté une petite parenthèse sur le code de GMB.

Merci encore pour votre aide

Cordialement

aalex85