macro feuille active

[phil69]

re bonjour le forum


question ,dans un macro on est souvent obligé d'indiquer un resultat en precisant la feuille par sheets(feuille x)pour une macro qui peut etre commune à plusieurs feuille peut on remplacer sheets(feuille x)par sheets feuille active et que la macro s'active que pour cette feuille ce qui eviterai de recopier et modifier la meme macro dans chaque feuille
merci

phil69

 

[Pierrot93]

Re : macro feuille active

Bonjour Phil

pas sur d'avoir très bien compris ta demande, mais regarde peut être les procédures événementielles dans le module "thisworkbook", celles lié au "sheet". Exemple ci-dessous, le code s'appliquera à toutes les feuilles du classeur en question...

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

bon après midi
@+

 

[phil69]

Re : macro feuille active

re bonjour


j'ai plusieurs macro de meme fonction que je suis obbigé de copier et modifier

ex avec une petit morceau d'une des nombreuse macro dans mon classeur ........................With Sheets("Team Penning")-------à la place pouvoir indiquer "apliquer dans la feuille feuille active"
.Range("k" & L).Value = Label3
.Range("l" & L).Value = "," & Label4
.Range("m").Value = TextBox2.Value
End With
phil69

 

[Pierrot93]

Re : macro feuille active

Re

peut être ainsi :

With [B][COLOR="Blue"]ActiveSheet[/COLOR][/B]
.Range("k" & L).Value = Label3
.Range("l" & L).Value = "," & Label4
.Range("m").Value = TextBox2.Value
End With

 

[phil69]

Re : macro feuille active

re


Super ça marche nikel


merci
phil69