Discussion :

[progheure]

Bonjour, le code de tedo01 fonctionne à merveille.

Code :

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

1
2
3
4
5
6
If Target.Colums = 4 Then
    If Time < TimeSerial(7, 30, 0) Then
    Target.Value = TimeSerial(7, 30, 0)
    Else
        Target.Value = Time
    End If

J'aurais besoin de l'adapter dans le genre:

Code :

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

1
2
3
4
5
6
7
If Target.Cells (D33:D35) Then
If Time < TimeSerial(7, 30, 0) Then
Target.Value = TimeSerial(7, 30, 0)
 
If Target.Celle D36 Then
If Time < TimeSerial(8, 30, 0) Then
Target.Value = TimeSerial(8, 30, 0)

[tedo01]

Bonjour,

Dans le code de départ, Target.Column est le numéro de la colonne.
Target.Column = 4 signifie par exemple que la référence Target est dans la colonne 4.
De la même manière, on peut tester la propriété Row pour connaitre la ligne ou se trouve Target.

Par contre, pour tester que le range Target fait partie d'une plage, il faut utiliser la fonction Union. Par exemple,

Code :

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

If Union(Target, Range("D33:D35")).Address = Range("D33:D35").Address Then

signifie : si target est dans la plage D33 à D35

[progheure]

Merci à toi fonctionne à merveille.