Discussion :

[sebing]

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

[sebing]

J'ai trouvé, désolé d'avoir posté pour rien (une bonne douche, y a que ça pour remettre les idées en place )
Je recupere la valeur avec target :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Byte, colonne As Byte, absence As String
 
 
    If Not Application.Intersect(Target, Range("D10:D16, F10:F16")) Is Nothing Then
    ligne = Target.Cells.Row
    colonne = Target.Cells.Column
        If Cells(ligne, colonne - 1) = "" Then 'verifie si les heures d'arrivées sont renseignées avant les heures de depart
            MsgBox (ligne)
            MsgBox ("veuillez renseigner l'heure d'arrivée avant l'heure de départ")
            Cells(ligne, colonne).Clear
        End If
End If

Bonne journée
Seb

[casefayere]

Non, ça c'est mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ligne = Target.Row
    colonne = Target.Column

[gFZT82]

Bonjour,

Sinon, il y avait çà qui n'était pas mal non plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Byte, colonne As Byte
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("D10:D16, F10:F16")) Is Nothing Then
        If Target.Offset(0, -1) = "" Then
            MsgBox ("veuillez renseigner l'heure d'arrivée avant l'heure de départ")
            Application.EnableEvents = False
            Target.ClearContents
            Target.Offset(0, -1).Select
            Application.EnableEvents = True
        End If
    End If
End Sub

Cordialement.

[sebing]

à vous les gars