J'ai deux macro, j'aimerais quelle se fasse dans un même temps en utilisant une seule macro, mais elles ont quelques variantes et ne sont pas pour les même onglets est-ce possible?
Sur l'onglet liaison
Code:
Sub VidéLiaison()
'
' Vidé Macro
Rows("4:109").Hidden = False
Range("A110:IV65536").Clear
Range("C1:IV110").Clear
End Sub
Sur l'onglet liaison
Code:
Sub Videstock()
'
' Videstock Macro
Rows("2:109").Hidden = False
Range("A54:IV65536").Clear
Range("B1:IV110").Clear
End Sub
Sub globale()
With Sheets("1er onglet")
.Rows("4:109").EntireRow.Hidden = True
.Range("A110:IV65536").Clear
.Range("C1:IV110").Clear
End With
With Sheets("2e onglet")
.Rows("2:109").EntireRow.Hidden = False
.Range("A54:IV65536").Clear
.Range("B1:IV110").Clear
End With
End Sub
Bonne soirée,
mth
Edit: Hi Staple
Je ne savais pas que l'on pouvait écrire de cette façon ...
Encore découvert un truc !!
Merci à toi
Bise,
M
Bonne idée Lermiton, dans ce cas il faut qu' Eclipto précise bien dans chacune des macros dans quel onglet elles agissent pour ne pas semer le bazard dans son fichier.
Sub je_raz(feuille as String, Lig$,rng1$, rng2$)
With Sheets(Feuille)
.Rows(Lig).EntireRow.Hidden = True
.Range(rng1).Clear
.Range(rng2).Clear
End With
End Sub
Code:
Sub go_baby()
je_raz "1er onglet", "4:109", "A110:IV65536", "C1:IV110"
je_raz "2ème onglet", "2:109", "A54:IV65536", "B1:IV110"
En Sub