meme macro, onglet et parametres differents

Eclipto

XLDnaute Junior
Bonsoir,

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
 

mth

XLDnaute Barbatruc
Re : meme macro, onglet et parametres differents

Bonsoir,

peut-être en agrégeant les deux, comme ça ?

Code:
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
 
Dernière édition:

mth

XLDnaute Barbatruc
Re : meme macro, onglet et parametres differents

re :)

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.

Bonne soirée à tous,

mth
 

Staple1600

XLDnaute Barbatruc
Re : meme macro, onglet et parametres differents

Re, bonsoir aux autres


Mais aussi possible, avec macro "paramétrée"

Code:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
299 915
Messages
1 980 049
Membres
206 965
dernier inscrit
Mithanne