Problème de syntaxe

Bonsoir,

J'ai un code que je voudrais ajouter une condition dedans

(Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Set plage = Range("F7:F68")

lignes = Array(7, 10, 13, 23, 25, 27, 30, 32, 34, 36, 38, 41, 43, 45, 47, 49, 51, 53, _

55, 57, 60, 62, 64, 66, 68)

For i = 0 To UBound(lignes)

For j = 7 To 68

Set plage = Union(plage, Cells(lignes(i), j))

Next j

Next i

If Not Intersect(Target, plage) Is Nothing Then

UserForm1.Show

End If

Cancel = True

End Sub

)

Ce que je voudrais ajouter :il s'agit d'une condition sur l’apparition de la userform

Par exemple:

if range.value("C7;C100")="SM54" Then

Userform1.Show

Merci.

Bonjour,

déjà tu peux gagner une boucle.

J'ai mis le couple de conditions entre ( ) des fois que tu veuilles remplacer le AND par un OR car tu n'as pas précisé.

    Set plage = Range("F7:F68")
    lignes = Array(7, 10, 13, 23, 25, 27, 30, 32, 34, 36, 38, 41, 43, 45, 47, 49, 51, 53, _
                   55, 57, 60, 62, 64, 66, 68)

    For i = 0 To UBound(lignes)
        Set plage = Union(plage, Intersect(Rows(lignes(i)), Range("F:BP")))
    Next i
    If Not Intersect(Target, plage) Is Nothing And (Range.Value("C7") = "SM54" And Range.Value("C100") = "SM54") Then
        UserForm1.Show
    End If
    Cancel = True

eric