Modifier un petit code en Macro

Version imprimable

Bonsoir a toutes et tous, Forum bonsoir

j'aurai besoin svp de transformer le code ci-dessous qui fonctionne très bien en Macro Sub baptiser par Ex: (ActiveRepere) que je puisse appeller ou exécuter quand j'ai besoin.

j'ai essayer mais ca marche pas :cry:

Merci a vous pour votre temps et votre savoir partagé.

La bonne soirée a vous

Cordialement Ray

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Sub Worksheet_Calculate()
    C = Month(Now) + 4
    R = [Z1].Value: If R < 2 Then R = 1
    Cells(R, 17).Font.ColorIndex = 10       'Vert foncé
    Cells(R, 17).Interior.ColorIndex = 15
 
    With Cells(R, 17).Interior
                     .ColorIndex = 15       'Gris affiche la barre repère Gris clair
 
        If Cells(20, C).Text <> Cells(R, 17).Text Then
 
          Application.EnableEvents = False
             R = R + 1: If R > 26 Then R = 2
             [Z1].Value = R
             Cells(R, 17).Value = Cells(20, C).Value
             .ColorIndex = xlNone
          Application.EnableEvents = True
 
        End If
    End With
        Cells(R, 17).Font.ColorIndex = 5    'Bleu
End Sub

29/10/2013, 09h18
Daniel.C

Bonjour,

Citation:

j'aurai besoin svp de transformer le code ci-dessous qui fonctionne très bien en Macro Sub baptiser par Ex: (ActiveRepere) que je puisse appeller ou exécuter quand j'ai besoin.

J'ai du mal à comprendre ce que tu veux; peux-tu expliquer ce que tu veux faire ?
29/10/2013, 09h37
eliot.raymond

Bonjour a tous, forum bonjour

Bonjour Daniel

Merci pour ta réponse, c'est gentil

Voila dans l'ensemble de mon programme, je souhaiterai par endroit pouvoir lancer le petit code joint au post #1

Par le code ci-dessous, mais ca marche pas donc j'ai penser qu'il fallait surement transformer le code en Macro

Mais c'est peut etre pas possible, auquel cas tant pis :)

Merci pour ton temps et ton aide

Bonne journée

Cdlt Ray

Code:

Call Sub Worksheet_Calculate

Le code que tu as posté est une macro événementielle. Elle se déclenche à chaque recalcul de la feuille. Pour le transformer en macro standard, mets le code suivant dans un module standard. Il s'exécutera sur la feuille active :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Recalcul()
    C = Month(Now) + 4
    R = [Z1].Value: If R < 2 Then R = 1
    Cells(R, 17).Font.ColorIndex = 10       'Vert foncé
    Cells(R, 17).Interior.ColorIndex = 15
 
    With Cells(R, 17).Interior
                     .ColorIndex = 15       'Gris affiche la barre repère Gris clair
 
        If Cells(20, C).Text <> Cells(R, 17).Text Then
 
          Application.EnableEvents = False
             R = R + 1: If R > 26 Then R = 2
             [Z1].Value = R
             Cells(R, 17).Value = Cells(20, C).Value
             .ColorIndex = xlNone
          Application.EnableEvents = True
 
        End If
    End With
        Cells(R, 17).Font.ColorIndex = 5    'Bleu
End Sub

29/10/2013, 13h40
eliot.raymond

Salut

Merci pour la modification du code, je n'avais pas vu ca commeca, mais c'est bon pour moi.

je te souhaite une bonne après midi avec beaucoup de merci

Bien cordialement Ray