XL 2016 choix selon nombre de celulle selectionée

[tinet]

Bonjour le forum,

Je souhaite en vba faire une condition en fonction si je sélectionne une cellule ou deux à la fois
If SI condition vrai une celulle
'Instructions si vrai
Else '=> SINON
'Instructions si faux deux celulles
End If

Le champ de sélection et de ("I1:BN30")

 

[sylvanu]

Bonjour Tinet, Staple,
Un truc du genre :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Not Intersect(Target, [I1:BN30]) Is Nothing Then
        If Target.Count = 1 Then
            MsgBox "Une cellule sélectionnée :   " & Target.Address
        ElseIf Target.Count = 2 Then
            MsgBox "Deux cellules sélectionnées :   " & Target.Address
        End If
    End If
Fin:
End Sub

Code à mettre dans la feuille. Les 2 msgbox a supprimer et à remplacer.

 

[tinet]

Merci Sylvanu, possible de modifier sans utilisation de worsheet

 

[sylvanu]

Sub Test()
With Selection
    If .Row > 30 Or .Column < 9 Or .Column > 30 Then Exit Sub
    If .Cells.Count = 1 Then
        MsgBox "Une cellule sélectionnée :   " & .Address
    ElseIf .Cells.Count = 2 Then
        MsgBox "Deux cellules sélectionnées :   " & .Address
    End If
End With
End Sub

( modifiée car zonage oublié )

 

[sylvanu]

ou encore en conservant la même structure:

Sub Test2()
If Not Application.Intersect(Selection, Range("I1:BN30")) Is Nothing Then
    With Selection
        If .Cells.Count = 1 Then
            MsgBox "Une cellule sélectionnée :   " & .Address
        ElseIf .Cells.Count = 2 Then
            MsgBox "Deux cellules sélectionnées :   " & .Address
        End If
    End With
End If
End Sub

 

[tinet]

Merci sylvanu