XL 2016 Ancrer/figer un userform sur une page excel

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2023

• #2

Bonjour Attila,
Peut être une autre approche en utilisant la macro événementielle Worksheet_SelectionChange. ( à voir ... )

Il suffit de cliquer sur une cellule pour lancer la macro correspondante, avec :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B2]) Is Nothing Then
        Macro1
    ElseIf Not Intersect(Target, [C2]) Is Nothing Then
        Macro2
    .....
    ElseIf Not Intersect(Target, [C11]) Is Nothing Then
        Macro10
    End If
Fin:
End Sub

Voir PJ

 

Pièces jointes

• Classeur2.xlsm

  15.9 KB · Affichages: 3

Vote positif 0 Vote négatif

A

Attila451

XLDnaute Occasionnel

• 28 Août 2023

• #3

Bonjour Sylvanu,
Merci pour le retour. Je pensais qu'il y avait un moyen plus simple.
Je vais regarder.
Bon après midi.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2023

• #4

Attila451 à dit:

Je pensais qu'il y avait un moyen plus simple.

Cliquez pour agrandir...

Comme je l'ai dit, il ne s'agit que : "Peut être une autre approche" 🙂

N'est pas LA solution, mais j'ai toujours trouvé cette approche plus simple plutôt qu'à chaque nouvelle macro modifier un userform et modifier le code en conséquence.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2023

• #5

Bonjour à tous 🙂,

Pour saluer @sylvanu 😉 , un code pour lancer les macros :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   If Not Intersect(Target, Range("B2,C3,B4,C5,B6,C7,B8,C9,B10,C11")) Is Nothing _
      Then Application.Run "macro" & Target.Row - 1
End Sub

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2023

• #6

Bonjour MaPomme,
Mais cela suppose qu'on ait une seule macro par ligne.
S'il y a Macro1 en B2 et Macro2 en C2, ce sera toujours Macro1 qui sera exécutée.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2023

• #7

sylvanu à dit:

Mais cela suppose qu'on ait une seule macro par ligne.

Cliquez pour agrandir...

C'était juste un clin d’œil récréatif...

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2023

• #8

Une autre approche simplissime est que la cellule cliquée contienne le nom de la macro.
On n'a donc plus besoin de toucher à Worksheet_SelectionChange en cas d'évolution :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    Application.Run Target.Value
Fin:
End Sub

 

Pièces jointes

• Classeur2V2.xlsm

  15.5 KB · Affichages: 3

Vote positif 0 Vote négatif