macro click droit - plusieurs feuilles

[VBA_DEAD]

bonsoir
j`ai une macro que j`utilise pour un questionnaire.
click droit et 4 reponses sont proposees en B5 jsuqu`a B40
ca marche bien pour le premier onglet (A) mais par contre comment puis je etendre la macro a toutes les feuilles excepte les feuilles "administrator" et "infobase" (non donnee ici).

comment l`appliquer a toutes mes feuilles?
il y aura des utilisateurs differents et ils auront a ajouter des feuilles, a en sortir donc faut vraiment que la macro marche pour la zone definie sur toutes les feuilles sauf les 2 citees.


Merci pour votre aide

VBA_DEAD

 

[skoobi]

Re : macro click droit - plusieurs feuilles

Bonsoir,
si l'ajout de feuille ce fait via une feuille existante ce fichier devrait marcher.
ce que j'ai modifié:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
[COLOR="Red"]'  If PlageTableau Is Nothing Then
  Initialise[/COLOR]
  If Not Intersect(Target, PlageTableau) Is Nothing Then
    Cancel = True
    BarDroit.ShowPopup
  End If
End Sub

Public Sub Initialise()
  BarAdd
  With [COLOR="Red"]ActiveSheet[/COLOR]
  
    Set CelTOUTAFAITDACCORD = .Range([COLOR="Red"]"is1"[/COLOR])
    Set CelPLUTOTDACCORD = .Range([COLOR="Red"]"it1"[/COLOR])
    Set CelPASDACCORD = .Range([COLOR="Red"]"iu1"[/COLOR])
    Set CelSANSAVIS = .Range([COLOR="Red"]"iv1"[/COLOR])
    
    'On Error Resume Next
    Set PlageTableau = .Range([COLOR="Red"]"b5:b34"[/COLOR])
  End With
End Sub

Je crois que je n'est rien oublié

 

[Compte Supprimé 979]

Re : macro click droit - plusieurs feuilles

Salut VBA_Dead, skoobi

Tu peux également mettre la commande dans ThisWorkbook, et tester sur quel feuille tu te trouves.

Voir le fichier joint.

 

[VBA_DEAD]

Re : macro click droit - plusieurs feuilles

bonsoir skoobi et brunom45,

merci pour votre aide. ben c`est regle alors!

je regarde la solution de bruno des demain

merci a vous 2

vba_dead