Incorporer le code 2 dans code 1

Re bonjour le forum

Décidément ce n'est pas mon jour (je crois que ce n'est jamais)!!!

Comme indiqué dans le titre je voudrais incorporer le code 2 dans code 1

Le code 1 affiche ligne 3 en double click cellule A2

Le code 2 affiche et masque tous les onglets en double click cellule F2

Encore merci de vous éventuels retours

Code1

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)    
Cancel = True
If Not Intersect(Target, Union(Range("A2"), Range("F2"))) Is Nothing Then
    If Target.Column = 1 Then Rows(3).Hidden = Not Rows(3).Hidden                     
End If
End Sub

Code 2

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$2" Then Exit Sub
Cancel = True
For Each Sh In Sheets
    If Sh.Visible <> xlSheetVisible Then Affiche: Exit Sub
Next
MasqueSauf "Charges " & Year(Date) 'nom adaptable
Range("A1").Select
End Sub

Sub MasqueSauf(nom$)
Dim Sh As Object
On Error Resume Next
If IsError(Sheets(nom)) Then MsgBox "Créez la feuille '" & nom & "' !", 48: Affiche: Exit Sub
For Each Sh In Sheets
    If Sh.Name <> nom Then Sh.Visible = xlSheetHidden
Next
End Sub

Sub Affiche()
Dim Sh As Object
Application.ScreenUpdating = False
For Each Sh In Sheets
    Sh.Visible = xlSheetVisible
Next
Application.ScreenUpdating = True
End Sub

Bonjour,

Qu'est-ce qui te semble compliqué dans ça

La base est déjà de comprendre les codes que tu utilises

Et apparemment, tu recopies bêtement ce qu'on te donne

Analyse un peu et tu verras... c'est plus simple qu'il n'y parait

Re BrunoM45

Évite de me répondre stp

Merci d'avance

Re,

J'essaie de t'aider et voilà ta réponse smile023

Si cela t'a blessé, c'est que c'est une réalité, non

Je vais donc te donner bêtement le code, que tu recopieras bêtement

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  If Not Intersect(Target, Union(Range("A2"), Range("F2"))) Is Nothing Then
    If Target.Column = 1 Then Rows(3).Hidden = Not Rows(3).Hidden
  End If
  If Target.Address <> "$A$2" Then Exit Sub
  For Each Sh In Sheets
    If Sh.Visible <> xlSheetVisible Then Affiche: Exit Sub
  Next
  MasqueSauf "Charges " & Year(Date) 'nom adaptable
  Range("A1").Select
End Sub

Citation : il n'y a pas plus sot que celui qui ne veut pas apprendre et recopier bêtement

Je t'ai dit de ne pas me répondre

Re,

Et tu espères quoi en me disant ça... hein

Ignare tu es, ignare tu veux rester.. c'est ça

Demande à Paritec il te dira et que tu comprendra mieux

Moi je N'INSULTE JAMAIS LES INTERNAUTES

Sujet clos

Mais sujet pas résolu pour autant

al87 a écrit :

Re BrunoM45

Évite de me répondre stp

Merci d'avance

Bonsoir

Ça fonctionne

Bonne fin de WE à tous

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  If Target.Address = "$A$2" Then
    Rows(3).Hidden = Not Rows(3).Hidden
  ElseIf Target.Address = "$F$2" Then
    For Each Sh In Sheets
      If Sh.Visible <> xlSheetVisible Then Affiche: Exit Sub
    Next
    MasqueSauf "Année " & Year(Date) 'Nom adaptable
  End If
  Range("A1").Select
End Sub

Bonjour à tous....

et bah il y a Ambiance sur le Forum dit-donc....

Bon courage à tous

Fred

Bonsoir fred2406

Pas grave mais à chaque fois c'est la même chose.

Moi après une intervention chirurgicale de 10 heures (dissection aortique à 90 ans) je ne veux pas me faire insulter.

Bonne fin de soirée à toi

Encore un put*in de chirugien qui se crois au dessus de tout le monde

Ou je t'ai insulter du c*... ah oui là

Quel chirurgien?

Ben je sais pas, tu nous parles de

Moi après une intervention chirurgicale de 10 heures (dissection aortique à 90 ans) je ne veux pas me faire insulter.

C'est toi l'opéré

Juste pour rappel, mon 1er post

Bonjour,

Qu'est-ce qui te semble compliqué dans ça

La base est déjà de comprendre les codes que tu utilises

Et apparemment, tu recopies bêtement ce qu'on te donne

Analyse un peu et tu verras... c'est plus simple qu'il n'y parait

Aucune insulte

Reponse

Re BrunoM45

Évite de me répondre stp

Merci d'avance

Là, oui pour moi c'est une insulte...

Alors forcément

Rechercher des sujets similaires à "incorporer code"