Bonjour,

Je souhaite lors d'une saisie dans les cellules D10 à D16 et F10 à F16 vérifier si les cellules à cotés sont renseignées.

Mon soucis, je veux alléger mon code et eviter de faire des if par cellule et je souhaite recuperer l'adresse de la cellule modifier afin de verifier celle d'à coté.
Mais mon soucis, après modification de la cellule,si je fais un entrée, la cellule active devient celle d'en dessous, et si je clique sur une autre cellule pour sortir de ma cellule modifiée, je n'arrive pas a récupérer l'adresse de ma cellule modifiée.

Pouvez vous me venir en aide svp.

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Byte, colonne As Byte
 
 
    If Not Application.Intersect(Target, Range("D10:D16, F10:F16")) Is Nothing Then
    ligne = ActiveCell.Row
    colonne = ActiveCell.Column
        If Cells(ligne, colonne - 1) = "" Then 'verifie si les heures d'arrivées sont renseignées avant les heures de depart
            MsgBox ("veuillez renseigner l'heure d'arrivée avant l'heure de départ")
            'Cells(ligne, colonne).Clear
        End If
    End If
par avance

Seb