macro

zumye · 14 Avril 2008

bonsoir le forum

Je voudrais à partir de ce vba se trouvant ma page principale:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$16" Then
Cells.EntireRow.Hidden = False: Cancel = True
ElseIf Target.Column = 1 And Target.Row > 1 And Target.Row < 65536 Then
Range(Cells(Target.Row + 1, 1), Cells(317, 1)).EntireRow.Hidden = True
ElseIf Target.Column = 2 And Target.Row > 1 And Target.Row < 64 Then
Range(Cells(Target.Row + 1, 1), Cells(65, 1)).EntireRow.Hidden = True: Cancel = True
ElseIf Target.Column = 2 And Target.Row > 67 And Target.Row < 114 Then
Range(Cells(Target.Row + 1, 1), Cells(115, 1)).EntireRow.Hidden = True: Cancel = True
ElseIf Target.Column = 2 And Target.Row > 67 And Target.Row < 164 Then
Range(Cells(Target.Row + 1, 1), Cells(165, 1)).EntireRow.Hidden = True: Cancel = True
ElseIf Target.Column = 2 And Target.Row > 67 And Target.Row < 214 Then
Range(Cells(Target.Row + 1, 1), Cells(215, 1)).EntireRow.Hidden = True: Cancel = True
ElseIf Target.Column = 2 And Target.Row > 67 And Target.Row < 264 Then
Range(Cells(Target.Row + 1, 1), Cells(265, 1)).EntireRow.Hidden = True: Cancel = True
ElseIf Target.Column = 2 And Target.Row > 67 And Target.Row < 314 Then
Range(Cells(Target.Row + 1, 1), Cells(315, 1)).EntireRow.Hidden = True: Cancel = True
End If
End Sub

j'aimerai à partir de ce vba se trouvant sur ma page principale trouvé une solution pour que sur cette page que je copie une cinquantaine de fois, évité de copié également ce vba une cinquantaine de fois.
Puis-je donc sur ma page principale faire appel un à nom (ex macro1) au lieu de ce long vba ce qui diminuerai considérablement le poid du fichier.

ex j'ai essayé:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
call macro1
end sub

et mis le le programme dans un module mais ca ne marche pas... comment faire ?

merci

Pierrot93 · 14 Avril 2008

Re : macro

Bonsoir Zumye

si tu veux que ce code se déclenche sur toutes tes feuiilles, mets le dans le module "thisworkbook" événement "SheetBeforeDoubleClick" :

Code:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'ton code
End Sub

bonne soirée
@+

zumye · 14 Avril 2008

Re : macro

merci c'est une solution, ca marche

zumye · 15 Avril 2008

Re : macro

bonjour le forum

dans ce vba qui concerne toute mes pages:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'le code
End Sub

je voudrai la meme chose à l'exeption d'une page nommée "recap"...

Pierrot93 · 15 Avril 2008

Re : macro

Bonjour Zumye

essaye comme ci dessous :

Code:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name <> "recap" Then
'le code
End If
End Sub

bonne journée
@+

Pierrot93 · 15 Avril 2008

Re : macro

Re

à noter, pour "sortir" de la cellule suite au double click, tu peux mettre en fin de macro :

Code:

Cancel = True
End Sub

@+

zumye · 16 Avril 2008

Re : macro

merci ca fonctionne bien mais je ne comprend pas pourquoi en mettant le vba de ma page original à worbook, mon fichier est passé de 480 ko à 540 ko???
je cherche a reduire le poids du fichier
merci

Pierrot93 · 16 Avril 2008

Re : macro

Bonjour Zumye

oui comprends pas non plus, si tu as bien enlevé le code se trouvant dans le module des feuilles... Ou alors tu as modifié autre chose dans ton classeur...

bon après midi.
@+

macro

zumye

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

zumye

XLDnaute Occasionnel

zumye

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

zumye

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Discussions similaires