Insertion de plusieurs cell dans la même condition

[TEMAGOULTFARID]

Bonjour,
j'ai une macro que j'ai récupéré sur le site et j'en remercie le ou les auteurs. Dans cette qui focntionne tres bien il y a une ligne avec E10:f17 et j'aurai souhaité ajouté autre cellules a savoir pour mon exemple "H10:h17 et E19:F19 ET H19. Comment peut ton les integrées
If Not Intersect(Range("E10:F17" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing And Target.Count = 1 Then

par avanace merci a vous
cordialement

 

[job75]

Bonjour TEMAGOULTFARID,

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

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+

 

[TEMAGOULTFARID]

Bonjour TEMAGOULTFARID,

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

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+

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("A120")) 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