12 macros en 1 seule

[toune21]

Bonjour à tous,

J'ai cette macro à chaque onglets suivant (07,08,09,10,11,12,01,02,03,04,05,06)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6:AC475")) Is Nothing Then
Cells(Target.Row, "ao") = Application.UserName
Cells(Target.Row, "ap") = "Le " & Format(Date, "dddd d mmm yyyy") & " à  " & Format(Now, "hh:mm:ss")
End If
End Sub

Je souhaiterais avoir qu'une seule macro pour tous les onglets concernés ci-dessus. J'ai d'autres onglets, mais il ne sont pas concernés.
Est-ce possible ?
Si oui, quelqu'un peut m'aider.
Merci
Amicalement,

 

[eriiic]

Re : 12 macros en 1 seule

Bonjour,

Dans ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If CLng(Sh.Name) <= 12 Then
        If Not Intersect(Target, Range("C6:AC475")) Is Nothing Then
            Cells(Target.Row, "ao") = Application.UserName
            Cells(Target.Row, "ap") = "Le " & Format(Date, "dddd d mmm yyyy") & " à  " & Format(Now, "hh:mm:ss")
        End If
    End If
End Sub

eric

 

[Pierrot93]

Re : 12 macros en 1 seule

Bonjour,

utilise l'événement ci-dessous dans le module "thisworkbook" :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'ton code
End Sub

il y aura sans doute lieu de tester la propriété "name" de l'argument "sh" (feuille concerné par le déclenchement de la macro.

bonne journée
@+

 

[toune21]

Re : 12 macros en 1 seule

Bonjour Eriiic, Pierrot,

Merci à tous les deux,

Elles vont bien toutes les deux
Mes onglets sont bien nommés Sh.

Bonne fêtes de fin d'année, à tous les forumeux !!

Cordialement.

 

[toune21]

Re : 12 macros en 1 seule

Re à tous,

Je reviens, quand je clic sur enregistrer (vous savez la petite disquette du ruban)
j'ai une erreur '13' pour vos deux solutions.

ci-dessous les captures.
Merci,
Marie

 

[Pierrot93]

Re : 12 macros en 1 seule

Re,

A voir le nombre des feuilles non concernées par la macro, mettre peut être le test sur celles-ci

 

[Pierrot93]

Re : 12 macros en 1 seule

Re,

peut être faire un test ainsi :

 If Val(sh.Name) > 0 And Val(sh.Name) <= 12 Then

 

[toune21]

Re : 12 macros en 1 seule

Re Pierrot,

Je viens de faire tous les tests,
Yes ! ça marche

Merci beaucoup,
Marie,

 

[toune21]

Re : 12 macros en 1 seule

Re bonjour Pierrot93, je vois que tu est encore là

A tout hasard,
dans cette macro qui va bien,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'dernière macro de Pierrot93 10h29
    ActiveSheet.Unprotect "ml"
    If Val(Sh.Name) > 0 And Val(Sh.Name) <= 12 Then
        If Not Intersect(Target, Range("C6:AC475")) Is Nothing Then
            Cells(Target.Row, "ao") = Application.UserName
            Cells(Target.Row, "ap") = "Le " & Format(Date, "dddd d mmm yyyy") & " à  " & Format(Now, "hh:mm:ss")
        End If
    End If
End Sub

pourrais-je avoir la cellule que je viens de modifier ????
donc dans 'oq'
c'est peut être trop demandé.
Marie,

 

[Pierrot93]

Re : 12 macros en 1 seule

Re,

peut être en rajoutant ceci :

Cells(target.Row, "aq") = target.Address

enfin, si j'ai bien compris...

bon après midi
@+

 

[toune21]

Re : 12 macros en 1 seule

Re Pierrot,
et aussi vous tous, (je ne peux tous vous citer, j'en oublierais !)

ça marche

Résultat : Marie, Le vendredi 26 déc 2014 à 13:42:39 $C$340

Encore Merci,
Bonne Année, Bonne Santé

A vous tous,

Merci,

 

[Pierrot93]

Re : 12 macros en 1 seule

Re,

si tu ne veux pas les $

Cells(target.Row, "aq") = target.Address(0,0)

bonnes fêtes également...

 

[toune21]

Re : 12 macros en 1 seule

Re Pierrot,

Résultat : Marie, Le vendredi 26 déc 2014 à 14:06:04 C15

C'est vrai que c'est plus joli
Merci