XL 2016 MAJ Matrice

[pompaero]

Bonjour le forum,

J'essai de mettre en place un planning mensuel grace au document mis à disposition sur le net de Boisgontier JB, mais je rencontre un petit soucis de mise à jour des themes dans certains onglets repéré par un cercle rouge.
Ex : en feuille Janvier Ai5, AW5 s'affiche les thèmes (mescouleurs) mais seulement une partie s'affiche correctement et n'arrive pas à établir le reste à afficher.
comment faut-il faire ?
Cela concerne les feuilles de Janvier à Décembre, RécapGéné, RécapIndiv

Merci à vous
Cdlt
pompaero

 

[cathodique]

Bonjour le forum,

J'essai de mettre en place un planning mensuel grace au document mis à disposition sur le net de Boisgontier JB, mais je rencontre un petit soucis de mise à jour des themes dans certains onglets repéré par un cercle rouge.
Ex : en feuille Janvier Ai5, AW5 s'affiche les thèmes (mescouleurs) mais seulement une partie s'affiche correctement et n'arrive pas à établir le reste à afficher.
comment faut-il faire ?
Cela concerne les feuilles de Janvier à Décembre, RécapGéné, RécapIndiv

Merci à vous
Cdlt
pompaero

Bonjour Pompero,
Il faut modifier la plage sur laquelle doit agir la macro.
Il faut corriger dans le module de code des feuilles, mettre AW35 au lieu de AH35

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([D6:AW35], Target) Is Nothing Then
  AfficheMenu
  End If
End Sub

@+

 

[ChTi160]

Bonjour pompaero
Bonjour le Fil(Cath),le Forum
Une autre approche perfectible.
Pourquoi ne pas mettre ceci (dans le ThisWorkbook) pour ne répéter la procédure pour chaque feuille (Worksheet_SelectionChange).

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If IsNumeric(Sh.[B1]) Then 'si B1 de la feuille est Numérique(Mois)
  If Not Intersect([D6:AW35], Target) Is Nothing Then
  AfficheMenu
  End If
End If
End Sub

jean marie

 

[pompaero]

Bonjour Cathodique, ChTi160, le fil

Je viens de tester vos propositions, cela active le formulaire sur la plage cité, ce n'est pas mon attente. Ce que j'aimerai c'est d'affiche les themes (mescouleurs) en AI5 AW5 à la suite de ceux déjà affiché en AI5 AQ5.
AQ5 = CP j'aimerai en
AR5 = AT
AS = F
ect...
j'imagine que le réglage doit etre simple mais je ne le trouve pas.
Merci à vous

Cdlt

 

[cathodique]

Bonjour Cathodique, ChTi160, le fil

Je viens de tester vos propositions, cela active le formulaire sur la plage cité, ce n'est pas mon attente. Ce que j'aimerai c'est d'affiche les themes (mescouleurs) en AI5 AW5 à la suite de ceux déjà affiché en AI5 AQ5.
AQ5 = CP j'aimerai en
AR5 = AT
AS = F
ect...
j'imagine que le réglage doit etre simple mais je ne le trouve pas.
Merci à vous

Cdlt

Désolé, je ne comprends pas tes attentes.

 

[pompaero]

Bonjour,

Pas grave, je vais faire autrement. Merci tout de même de l'aide apporté.
A bientôt.

Cdlt
pompaero