Microsoft 365 macro de comparaison

[bd.afaf]

Bonjour Forum,

je veux faire une macro selon le concept suivant : si le mois d'avant est payé et que le mois prochain remonte un montant qui n'est pas payé, de mettre ce montant en gras et en rouge. j'ai donné le résultat que je souhaite avoir avec une macro ( les montants en rouge) .

Voici mon tableau comme exemple:

 

[soan]

Bonsoir bd.alaf,

ton fichier en retour. 🙂

j'ai juste ajouté une règle de MFC
pour la plage H5:H15 :

=ET(F5="payé";H5<>0)

soan

 

[sylvanu]

Bonsoir bd.afaf,
Pourquoi vouloir une macro pour remplir la fonction ?
Avec une simple MFC on devrait y arriver, comme par ex avec cette PJ et la MFC :

=ET($F5="payé";$H5<>"payé")

 

[bd.afaf]

Bonsoir bd.afaf,
Pourquoi vouloir une macro pour remplir la fonction ?
Avec une simple MFC on devrait y arriver, comme par ex avec cette PJ et la MFC :

=ET($F5="payé";$H5<>"payé")

bonjour,


j'utilise une macro qui réalise plusieurs opérations, et j'aimerais avoir le code de l'opération que j'ai demandé pour l'intégrer dans ma macro.

 

[sylvanu]

Re,
Vous m'étonnez, votre fichier contient déjà plusieurs MFC :

Je n'ai fait qu'en rajouter une.
Il suffit de faire Accueil/Mise en forme conditionnelle/Gérer les règles.
De plus votre fichier étant un xlsx, il ne peut pas contenir de macros, sinon ce serait un xlsm.

 

[bd.afaf]

Re,
Vous m'étonnez, votre fichier contient déjà plusieurs MFC :
Regarde la pièce jointe 1139585
Je n'ai fait qu'en rajouter une.
Il suffit de faire Accueil/Mise en forme conditionnelle/Gérer les règles.
De plus votre fichier étant un xlsx, il ne peut pas contenir de macros, sinon ce serait un xlsm.

Re,
je demande un code de macro, cette MFC est faite manuellement.

 

[sylvanu]

Mais ma MFC fait exactement ce que vous voulez, et sans VBA.
Qu'entendez vous par "cette MFC est faite manuellement" ?

 

[bd.afaf]

Mais ma MFC fait exactement ce que vous voulez, et sans VBA.
Qu'entendez vous par "cette MFC est faite manuellement" ?

dans mon fichier d'origine, j'ai les mois de janvier jusqu'à Décembre, je vais pas faire la MFC à chaque mois !
comme j'ai mentionné avant, j'ai un code VBA dans lequel je veux intégrer cette opération, genre ne pas la faire manuellement!!
ce que tu as trouvé ce sont des MFC que j'ai fais manuellement pour vous expliqué le résultat que je souhaite avoir au final.

 

[sylvanu]

Re,
Un essai en PJ avec :

Sub RougeSiPayé()
    Dim Ligne%, Colonne%, DL%
    Application.ScreenUpdating = False
    For Colonne = 8 To 26 Step 2                        ' de Mars à Décembre
        If Cells(4, Colonne) <> "" Then                 ' pas de traitement si pas de mois
            DL = Cells(65000, Colonne).End(xlUp).Row    ' dernière ligne
            For Ligne = 5 To DL
                If Cells(Ligne, Colonne) <> "payé" And Cells(Ligne, Colonne - 2) = "payé" Then
                    Cells(Ligne, Colonne).Font.Color = vbRed
                    Cells(Ligne, Colonne).Font.Bold = True
                Else
                    Cells(Ligne, Colonne).Font.Color = vbBlack
                    Cells(Ligne, Colonne).Font.Bold = False
                End If
            Next Ligne
        End If
    Next Colonne
End Sub

Je traite de mars à décembre. Si les mois n'existent pas ils sont ignorés.
Evidemment à adapter.

 

[soan]

@bd.afaf (salut sylvanu)

ton fichier en retour (sans la MFC que j'avais ajoutée)

fais Ctrl e ➯ travail effectué ! 🙂

code VBA :

Option Explicit

Sub Essai()
  Dim dlg&, lig&
  With Worksheets("Feuil2").ListObjects("Tableau2")
    If .DataBodyRange Is Nothing Then Exit Sub
    dlg = .ListRows.Count: Application.ScreenUpdating = 0
    For lig = 1 To dlg
      With Cells(lig + 4, 6)
        If .Value = "payé" And .Offset(, 2) <> 0 Then
          With Cells(.Row, 8).Font
            .Color = -16776961: .Bold = -1
          End With
        End If
      End With
    Next lig
  End With
End Sub

soan

 

[bd.afaf]

Re Soan , sylvanu,

Svp comment je pas dire "payé" OU " déja payé" ?

genre j'ai deux exceptions, du coup je dois écrire ou en langage VBa

 

[soan]

@bd.alaf

??? tu n'as pas téléchargé le fichier de mon post #10 ? essaye-le d'abord, au moins : peut-être qu'il fera ce que tu attendais ... et par macro ! 😉 (si ça te convient, ton post #11 est inutile)​

soan

 

[bd.afaf]

??? tu n'as pas téléchargé le fichier de mon post #10 ?

oui , mais y'a que "payé" , alors que dans mon fichier d'origine il y a deux exception : "payé" et "Déjà payé"

 

[sylvanu]

Re, pour mon code changez la ligne :

If Cells(Ligne, Colonne) <> "payé" And Cells(Ligne, Colonne - 2) = "payé" Then
par
If Cells(Ligne, Colonne) Like "*payé*" = False And Cells(Ligne, Colonne - 2) Like "*payé*" = True Then

 

[bd.afaf]

d'accord
mais je comprends pas prq les 26 Step 2

 For Colonne = 8 To 26 Step 2