Si plage de cellule ou cellule

Bonjour, le code de tedo01 fonctionne à merveille.

Code:

---

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:

---

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)

---

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:

---

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

---

signifie : si target est dans la plage D33 à D35

Merci à toi fonctionne à merveille.