Problème MFC une ligne sur deux

[fenec]

Bonjour le forum

Je rencontre un souci avec ma MFC en effet filtrant les lignes vides avant impression
Je me retrouve avec deux couleurs identiques qui se suivent

Cordialement

Fenec

 

[JNP]

Re : Problème MFC une ligne sur deux

Bonjour Fenec 🙂,
Pourquoi faire simple quand on peux faire compliqué 🙄...
A tester 😛

Dim Flag As Boolean, I As Integer
For I = 34 To 21 Step -1
    If Range("C" & I) = "" Then
        Rows(I).Hidden = True
    Else
        Range("C" & I & ":I" & I).Interior.ColorIndex = IIf(Flag, 15, 19)
        Flag = Not Flag
    End If
Next I
            .PrintPreview      'Aperçu avant impression
For I = 34 To 21 Step -1
        Rows(I).Hidden = False
        Range("C" & I & ":I" & I).Interior.ColorIndex = IIf(Flag, 15, 19)
        Flag = Not Flag
Next I

Bonne suite 😎

 

[fenec]

Re : Problème MFC une ligne sur deux

Re le forum et bonjour JNP

Déjà merci pour ta réactivite
viens de tester ton code mas je rencontre une erreur de compilation
référence incorrecte ou non qualifié
au niveau de
.printpreview

 

[fenec]

Re : Problème MFC une ligne sur deux

oups
oublier de mettre mon fichier

 

[Compte Supprimé 979]

Re : Problème MFC une ligne sur deux

Bonjour le fil

ActiveSheet.PrintPreview      'Aperçu avant impression

A+

 

[fenec]

Re : Problème MFC une ligne sur deux

re et bonjour BrunoM45
merci pour ta réponse plus d'erreur mais hélas me donne le meme resultat deux couleurs qui se suivent et en plus si 4 articles ne m'imprime pas tout comme avec mon précédent code
je continue de chercher
Cordialement
Fenec

 

[JNP]

Re : Problème MFC une ligne sur deux

Re 🙂,
Désolé, je n'ai pas été assez clair, mon code remplaçait

       ' --- filtre les non vides en colonne A ---
         If .Range("C23:C34").SpecialCells(xlCellTypeBlanks).Count > 10 Then    'condition sur le nombre de cellules vides dans la plage C20 :C34
             .Range("K2") = "=$C24<>"""""                 'critère filtre
             .Range("C23:C34").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
             .Range("K1:K2"), Unique:=False
             .Range("K2").ClearContents
         End If
Range("C21:I34,G35:I44").Select
    
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MOD(LIGNE();2)=0"
    Selection.FormatConditions(1).Interior.ColorIndex = 19
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MOD(LIGNE();2)<>0"
    Selection.FormatConditions(2).Interior.ColorIndex = 15
            .PrintPreview      'Aperçu avant impression

en supprimant aussi

    ActiveSheet.ShowAllData

et surtout les MFC du fichier concernant C20:I34 😛
En gros, je colore en même temps que je masque ou pas les lignes 🙄...
Bonne suite 😎

 

[fenec]

Re : Problème MFC une ligne sur deux

Bonjour le forum,JNP

Je teste et te tiens au courant

Cordialement

 

[fenec]

Re : Problème MFC une ligne sur deux

Re,

Viens de tester, fonctionne nickel pour le coloriage mais ne reprends pas les conditions de mon code car tu masques toujours les lignes vides

Si C21 seule ligne non vide on masque C24 :C34
Si C24 non vide on ne masque plus

Cordialement

Fenec

 

[JNP]

Re : Problème MFC une ligne sur deux

Re 🙂,
Je n'avais pas vu cette subtilité, mais bon, maintenant que tu as compris mon principe, il te reste juste 2 tests à rajouter pour que ça fonctionne 🙄...
Bon courage 😎

 

[fenec]

Re : Problème MFC une ligne sur deux

Bonjour le forum, JNP
Vais essayer de m'en sortir avec les testes
Encore merci pour ton aide
Cordialement
Fenec

 

[JNP]

Re : Problème MFC une ligne sur deux

Re 🙂,
Euh, réflexion faite, pas de tests, simplement

For I = 34 To 24 Step -1

à modifier dans mon code 🙄
Bonne soirée 😎
Ajout : uniquement dans la première partie 😛

 

[fenec]

Re : Problème MFC une ligne sur deux

Bonjour le forum, JNP

une fois de plus merci la premiere condition est remplie

pour la deuxieme j'ai ecrit :

if range(C"24")>0 then
exit for
end if

le problème qui ce pose maintenant c'est qu'il me manque une ligne a présent cela devant être du :

Step -1

dans ton code

Cordialement

Fenec

 

[JNP]

Re : Problème MFC une ligne sur deux

Re 🙂,
Remets peut-être le fichier pour savoir où tu en est, là, je nage un peu 🙄...
Bon courage 😎

 

[fenec]

Re : Problème MFC une ligne sur deux

Re,

Voila ou j'en suis et vu la ligne manquante deux couleurs sont identique au sous total