Discussion :

[MicKRub]

Bonsoir,

Est-il possible de remplace une mise en forme conditionnelle par un module VBA et faire appel à celui-ci sur la feuille voulu.

Pour un planning annuel avec des onglets par mois, j'utilise les mêmes MFC sur chaque page.

Je me demandais s'il était possible de remplacer une mise en forme conditionnelle par un module VBA et faire appel à celui-ci sur la feuille voulu.

Genre avec cette MFC qui met en gris les colonnes si c'est un samedi ou dimanche

Cordialement.

[78chris]

Bonjour

Je ne réponds pas à ta question mais je remarque une anomalie : ta MFC ne s'applique qu'aux colonnes concernées semble-t-il (toutes les 6 colonnes).

Elle perd son intérêt, le but d'une MFC est qu'elle fasse le boulot sur toutes les colonnes et détermine si la colonne est concernée ou non.

Pour VBA il faut déjà préciser si le code est à lancer ou doit s'automatiser à chaque changement des valeurs en limitant la porter à la ligne de date concernée.

[MicKRub]

Merci pour la réponse. en fait il y a eu un beug je ne sais pas pourquoi. J'ai corrigé le "s'applique à" comme sur l'image si dessous.





Voila un exemple de l'une de mes MFC que j'aimerai mettre en VBA

Cordialement

[riaolle]

Bonjour,
As-tu déjà essayé d'obtenir le code correspondant à la création de MFC grâce à l'enregistreur de macro?

[MicKRub]

Non mais je vais essayer.

Merci

[MicKRub]

Malheureusement je ne comprend pas comment faire...

J'ai essayer dans un module de créer un Sub Couleur () dans le but de colorer mes cellules où les lettres Q ou K apparaissent.
Mon tableau va des lignes 20 à 138 et des colonnes AA à ACD

Ensuite j'appelle couleur dans Private Sub Worksheet_Activate()

Mais ca ne fonctionne pas...

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
Sub Couleur()
    Dim iColumn As Integer
    Dim iRow As Integer
 
    For iRow = 20 To 138 'lignes  20 à 138 (à adapter)
        For iColumn = 27 To 393 'colonnes  AA(27) à ACD(393) (à adapter)
            If Cells(iRow, iColumn).Value = "Q" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0) 'couleur à adapter
                Cells(iRow, iColumn).Interior.Color = RGB(255, 0, 255) 'couleur à adapter
            End If
 
            If Cells(iRow, iColumn).Value = "k" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0) 'couleur à adapter
                Cells(iRow, iColumn).Interior.Color = RGB(151, 255, 151) 'couleur à adapter
            End If
 
        Next iColumn
    Next iRow
 
End Sub

Une idée?

Cordialement

Est-ce possible de simplifier avec quelques chose du style?

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
 
Sub Macro1()
'
' Macro1 Macro
'
 
'
    If Range("AA20:ACD139") = "j" Then
 
    Range("AA20:ACD139").Font.Color = RGB(192, 32, 255)
 
    End If
 
 
End Sub