Bonjour,

Je dois créer une condition pour obliger les personne utilisant un fichier excel de remplir la case au dessus d'elle et les cases a cotés

Pour cela je dois réaliser deux conditions

La 1er condition :
Si la case d'au dessus n'est pas remplis je ne peux pas ecrire dans cette case.

2eme condition :
Si la case a coté n'est pas remplis je ne peux pas écrire dans cette case

Exemple :

La case A1 n'est pas remplie, donc je ne peux pas remplir la case A2

Si la case A2 n'est pas remplie, je ne peux pas remplir la case F2

Si la case A1 est remplie, je peux remplir la case A2 et ensuite remplir la case F2

Je ne sait pas trop comment écrire cette macro. Voici un début que j'ai réalisé.

Merci d'avance de tous vos coups de pouces ou autre

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Message()
    Application.ScreenUpdating = False
    Sheets("Saisie").Select 'Feuille où se trouve le tableau
    For i = 5 To 10000
        acquit = Cells(i-1, 1) 'colonne A
        If Not IsEmpty(acquit) Then
            MsgBox "Le case avant n'est pas remplie" 'message d'erreur
          Else
            Sheets("Saisie").Select
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
Le nom sur la feuille que je travaille se nomme Saisie