VBA masquer ou afficher plusieurs feuilles d'un coup

Le 18/09/2018 à 13:53

@majormadj

je suis ravi que tu aies apprécié mon fichier précédent !

tu a écrit :
j'ai transposé ta méthode sur une cellule fusionnée (colonne 17 à 24) mais je n'ai pas la syntaxe.

colonne 17 à 24 : c'est colonne Q à X ; mais sur quelle(s) ligne(s) tu as des cellules fusionnées ?

attention : n'oublie pas que la sub est seulement pour les lignes 7 à 46

or en Q7:X46 j'ai pas vu d'cellules fusionnées.

dhany

Le 18/09/2018 à 14:48

En ligne 2 de Q à X, j'ai une fusion et j'ai ajouter l'appel à un calendrier sur double clic en utilisant ta methode

J'ai donc mis "lig = .Row: If lig <> 2 Then Exit Sub"

dhany a écrit :
@majormadj
je suis ravi que tu aies apprécié mon fichier précédent !
tu a écrit :
j'ai transposé ta méthode sur une cellule fusionnée (colonne 17 à 24) mais je n'ai pas la syntaxe.
colonne 17 à 24 : c'est colonne Q à X ; mais sur quelle(s) ligne(s) tu as des cellules fusionnées ?
attention : n'oublie pas que la sub est seulement pour les lignes 7 à 46
or en Q7:X46 j'ai pas vu d'cellules fusionnées.
dhany

Le 18/09/2018 à 14:50

en ligne 2 ! pas en lignes 7 à 46 ! la sub Worksheet_Change() fait rien du tout pour les autres lignes, car il y a :

lig = .Row: If lig < 7 Or lig > 46 Then Exit Sub

c'est donc pas cette sub qui causait ton erreur de cellules fusionnées !

en plus, note bien que pour ta ligne 2 avec cellules fusionnés : 2 est inférieur à 7 ➯ sortie de sub

tu as écrit que tu as mis : lig = .Row: If lig <> 2 Then Exit Sub

pour ta ligne 2, c'est bon maint'nant, alors, n'est-ce pas ? tout est ok ?

⚠ si tu as placé cette ligne dans Worksheet_Change() c'est inutile vu qu'y'a déjà le test inférieur à 7.

sauf si tu as autre chose à demander, je considère ton 2ème exo comme terminé.

dhany

Le 18/09/2018 à 15:17

@majormadj

ATTENTION !

* relis mon post précédent car je l'ai beaucoup complété

* au cas où tu aurais un 3ème exo, ne le mets pas ici et crée un autre sujet !

(car n'oublie pas qu'au départ, c'est le sujet de dubois, même si sa dernière visite était en 2012)

dhany

Le 18/09/2018 à 17:58

Je me suis peut-être mal exprimé.

De la colonne Q à X, de Zà AG ..., en ligne 2, j'ai une fusion pour lorsque je clique dessus j'appelle un calendrier.

Seulement, quand je clique sur Q2 sans fusion ça marche, mais si je fusionne ça marche pas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim lig&, col%, k%

  With Target
    If .CountLarge > 1 Then Exit Sub
    lig = .Row: If lig <> 2 Then Exit Sub 'ligne 2
    col = .Column: If col < 17 Or col > 544 Then Exit Sub 'colonne 17 à 544
    k = (col - 17) Mod 9: If k > 2 Then Exit Sub
    Application.ScreenUpdating = 0
    Select Case k
      Case 0
        If Cells(2, col) = "--" Then Exit Sub 'nom colonne
        Calendrier.Show

    End Select

  End With

End Sub

Le 18/09/2018 à 18:06

alors envoie ton fichier avec le calendrier, car moi je l'ai pas !

donc c'est normal qu'ça fait rien quand j'clique sur une date de la ligne 2 !

(ni par double-clic ; ni par clic droit)

dhany

Le 18/09/2018 à 18:42

Le voici

7test-match.xlsm (61.88 Ko)

Le 18/09/2018 à 22:09

et voici ton fichier modifié :

15test-match.xlsm (61.67 Ko)

dhany