Insertion de plusieurs cell dans la même condition

Bonjour TEMAGOULTFARID,

Curieuse cette ligne de code, elle travaille sur les plages E10:F171, E10:F172 etc, testez :
Vous voulez travailler avec H10:H17 ou H10:H171, H10:H172 etc ???

Avec un fichier exemple on y verrait plus clair.

A+

job75 à dit:

Bonjour TEMAGOULTFARID,

Curieuse cette ligne de code, elle travaille sur les plages E10:F171, E10:F172 etc, testez :

VB:

MsgBox Range("E10:F17" & Range("A" & Rows.Count).End(xlUp).Row).Address

Vous voulez travailler avec H10:H17 ou H10:H171, H10:H172 etc ???

Avec un fichier exemple on y verrait plus clair.

A+

Cliquez pour agrandir...

Bonjour JOB75,
je ne vois pas de 1 ou 2 , pour reponde a la question H10:H17

je vous met la macro complete

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1😀20")) Is Nothing Then
Application.EnableEvents = False
If Range("D5") > "0" Then Range("A1") = 1
If Range("D5") = "" And Range("F19") = "" And Range("B16") = "" Then Range("A1") = ""
If Range("D5") <> "" And Range("B6") = "NUIT" Then Range("A1") = 2
If Range("D5") <> "" And Range("K18") = "Fiche imprimée" Then Range("A1") = 3
If Range("D5") <> "" And Range("D7") <> "" And Range("D7") <= Range("D5") Then Range("A1") = "4"
If Range("D5") <> "" And Range("D7") <> "" And Range("D7") > Range("D4") Then Range("A1") = "5"
If Range("D5") <> "" And Range("D7") <> "" And Range("D7") = "" Then Range("A1") = "6"

Application.EnableEvents = True

End If
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
If Target.Validation.Formula1 = "=nom" Then
If Err = 0 And IsNumeric(Application.Match(Target, [Nom], 0)) And Target <> "" Then UserFormMDP.Show
End If
Application.EnableEvents = True

If Not Intersect(Range("E10:F17" & Range("a" & Rows.Count).End(xlUp).Row), Target) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
If MsgBox("Voulez-vous verrouiller cette donnée ?", vbQuestion + vbYesNo, "Protection") <> vbYes Then Exit Sub
ActiveSheet.Unprotect
Target.Locked = True
Target.FormulaHidden = True
ActiveSheet.Protect
End If
End If
End Sub


par avance merci