Worsheet selection change et 2 macros

Bonjour à tous et merci d'avance pour votre aide si vous pouvez

Je suis coincée avec une la commande 'Worsheet Selection Change' et deux macros différentes.

En fait je souhaite définir deux plages de cellules comme ceci:

Dans la Colonne 13, pour les plages entre 26 et 35, j'aimerait utiliser ma Macro1

Dans la Colonne 15, pour les plages entre 26 et 35, j'aimerait utiliser ma Macro2

J'ai mis ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Column = 13 And Target.Row > 26 And Target.Row < 35 And Target <> "" Then

Macro1

If Target.Column = 15 And Target.Row > 26 And Target.Row < 35 And Target <> "" Then

Macro2

'Target.Offset(0, 1).Select

End If

End If

End Sub

Voilà, si je fais deux fichiers complètement différents, ça fonctionne.

Mais si je mets comme j'ai fait en haut, cela ne fonctionne que pour la colonne 13 et la Macro 1.

Ou si je mets colonne 15 en premier et Macro 2, ça fonctionne pour la Macro 2.

Quelqu'un sais ou je fais faux?

Merci d'avance

Cordialement,

Monica.

bonjour,

Si tu mets tes 2 If l'un dans l'autre ça ne peux pas marcher : si iR = 13 elle ne peut pas être = 15...

La solution

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iR&, iC&
   If Target.Count = 1 Then
    iR = Target.Row: iC = Target.Column
     If iC = 13 And iR > 26 And iR < 35 And Target <> "" Then
      Macro1
     ElseIf iC = 15 And iR > 26 And iR < 35 And Target <> "" Then
      Macro2
    End If
   End If
End Sub

A+

Rechercher des sujets similaires à "worsheet selection change macros"