Modification d'une macro existante

bonjour

je souhaite modifier la macro "compteBarreBO" de mon bouton (en haut a droite)

le changement débute à :

With Cells(i, 11) 'Le 11 dans Cells(i, 11) correspond à la colonne k

je souhaiterais que ce soit la colonne 8 à la place de la 11 qui soit prise en compte mais elles n'ont pas la même MFC alors sa me met une erreur.

Il faut donc changer la suite a partir de cette ligne :

je souhaite donc que si la colonne 8 (H) est verte (ou alors "OUI") et barrée cela me mette un "1" en colonne N. Exactement la meme chose qu'avant mais avec une MFC différente.

https://www.excel-pratique.com/~files/doc2/ESSAIMACRO.xls

aidez moi SVP

Bonjour,

Je me souviens de cette macro...

Ce cas-là est plus facile car on a une MFC de type "la valeur de la cellule est". Il suffit de remplacer :

        With Cells(i, 11) 'Le 11 dans Cells(i, 11) correspond à la colonne k
            .Activate
                For Each FC In ActiveCell.FormatConditions
                    C.FormulaLocal = FC.Formula1: F1 = C
                    If F1 Then Exit For
                Next FC
                If Not FC Is Nothing Then
                'Le "Font.Strikethrough" permet de tester si la cellule est barrée
                'Le "FC.Interior.ColorIndex" permet de tester la couleur de la MFC
                '4 = Vert ; 44 = Orange clair
                    If .Font.Strikethrough = True And (FC.Interior.ColorIndex = 4 Or _
                    FC.Interior.ColorIndex = 44) Then
                        Cells(i, derCol + 1) = 1 'derCol + 1 signifie dernière colonne + 1
                    Else
                        Cells(i, derCol + 1) = 0
                    End If

                Else
                    Cells(i, derCol + 1) = 0
                End If
        End With

par

        If Cells(i, 8) = "OUI" And Cells(i, 8).Font.Strikethrough = True Then
            Cells(i, derCol + 1) = 1
        Else
            Cells(i, derCol + 1) = 0
        End If

merci beaucoup vba

a plus

Salut le forum

Si ton problème est réglé, n'oublie pas la petite formalité,

en bas à gauche et en étant connecté

Mytå