Affiche/Masque Click et Double Click

VBA
1

Hello le forum :slight_smile: , j’espere que vous allez bien.

Pour un projet pour une amis, je souhaite récupere un code que Mimi ma montre sur 12 Feuilles.
( pour Double Click et Affiche une plage de colone et click droit pour Masque)

Exemple pour l’onglet « Janvier »

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
** If Not Application.Intersect(Target, Range(« C10 »)) Is Nothing Then**
** Range(« D:J »).EntireColumn.Hidden = False**
** End If**

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
** If Not Application.Intersect(Target, Range(« C10 »)) Is Nothing Then**
** Range(« D:J »).EntireColumn.Hidden = True**
** End If**

mais quand j’ecris le code sur la feuille « Janvier » il veux pas , vous pouvez m’aide svp

(FFO, je reviens vers toi demain que je serai au travaille ) :slight_smile:

Bon Dimanche a tous
Johnny*
Controle D’Heure.xlsm (335,4 Ko)
*

2

Bonjour,
Plutôt comme ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, Range("C10")) Is Nothing Then
    Range("D:J").EntireColumn.Hidden = True
  End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, Range("C10")) Is Nothing Then
    Range("D:J").EntireColumn.Hidden = False
  End If
End Sub
3

Hello Mimi,

Merci beaucoup :slight_smile:

C’était a cause de cette ligne que cela ne fonctionné pas ?

Cancel = True

Très bon dimanche a toi
Johnny

4

Re,
Eh bien non, regarde bien les deux codes,
faute d’orthographe, inversion de false et true,
inutile de faire un select de la feuille puisque les codes sont dessus,

1 « J'aime »
5

Merci de ton retour Mimi, super encore une erreur de concentration .

6

Re,
Je pense que doit être déjà parti dans une macro pour chaque onglet de mois qui devra masquer ou afficher les colonnes de chaque jour du mois : soit 365 jours (voire 366)
alors plus simple avec deux codes dans le ThisWorkbook qui fera l’intégral
Controle D’Heure.xlsm (334,9 Ko)

1 « J'aime »
7

Re,
Avec en plus la gestion des CommandButton en boucle de l’Userform pour exemple
Controle D’Heure.xlsm (339,6 Ko)

8

Bonjour Mimi,

Merci pour ton retour il y avait donc un système pour ne pas faire feuille par feuille. :blush:

Peux-tu m’éclairer sur ce que ça veut dire avec en plus la gestion des commandes bouton en boucle ? en boucle ?

Je vais m’empresser d’acter le fichier avec ta proposition

je te remercie infiniment et te souhaite une très bonne journée
Johnny

9

Re,

Au lieu de faire 13 macros pour activer la feuille concernée, une boucle est effectuée pour prendre en compte le clic sur le bouton qui active la feuille sur son caption

10

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.