Discussion :

[eliot.raymond]

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

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

La bonne soirée a vous

Cordialement Ray

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daniel.C]

Bonjour,

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 ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Sub Worksheet_Calculate

[Daniel.C]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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