Problème MFC une ligne sur deux

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion fenec
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
Re : Problème MFC une ligne sur deux

Re 🙂,
Oui, en réalité le test est mal fait 🙄...
Code: 
    For I = 34 To 21 Step -1
        If Range("C" & I) = "" And I > 24 Then
            Rows(I).Hidden = True
        Else
            Range("C" & I & ":I" & I).Interior.ColorIndex = IIf(Flag, 15, 19)
            Flag = Not Flag
        End If
    Next I
sera mieux 😛
Bonne soirée 😎
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème MFC une ligne sur deux

Re,
Dans ton test tu remplaces ce que j’avais essayé,

Code: 
If Range("C24") > 0 Then
         Exit For
            End If


ce qui me supprime une ligne en fin de plage et donc deux couleurs qui se suivent mais qui m’imprime tout

Par :

Code: 
And I > 24 Then

Et ensuite tu masques toujours les lignes

Code: 
Rows(I).Hidden = True


Alors que je ne veux plus les masquer si "C24" non vide

Je continue donc a me gratter la tête

Cordialement

Fenec
 
Vote positif 0 Vote négatif
Re : Problème MFC une ligne sur deux

Re 🙂,
J'avais mal compris, pour moi la logique était :
Au delà de 24, je masque si vide, avant 24, je masque pas 🙄...
Si donc c'est le contraire
Code: 
    If Range("C24") = "" Then
        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
    End If
De toute façon, les couleurs sont rétablies après le preview, donc en ne masquant rien, elle doivent être bonnes 😛
Bonne suite 😎
 
Vote positif 0 Vote négatif
Re : Problème MFC une ligne sur deux

Bonjour le fil, salut JNP 😉

Un peu d'aide, en modifiant le code ainsi, je n'ai pas de problème 😉
VB: 
Private Sub CommandButton1_Click()  Dim Rep%
  Dim nbrCopie As Integer
  
  Application.ScreenUpdating = False
  'Sheets("Feuil1").Unprotect Password:="1012" 'ote la protection de la feuille


  With ActiveSheet
    With .PageSetup
      .PrintTitleRows = "$2:$20"              ' Lignes titre


      .PrintArea = " B3:J57"                  ' Zone d'impression (à régler)
    End With


    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




    ' nbrCopie = InputBox("Combien de copie voulez-vous faire ?", Title:="Copies")
    '  If nbrCopie = 0 Then


    '     Exit Sub
    '  Else
    '      ActiveWindow.SelectedSheets.PrintOut Copies:=nbrCopie, Collate:=True
    ' End If
  End With


  On Error Resume Next
  'ActiveSheet.ShowAllData
  Application.Goto Range("A1"), Scroll:=True
  ' Sheets("Feuil1").Protect Password:="1012" 'remet la protection de la feuille
  Application.ScreenUpdating = True


End Sub

A+
 
Vote positif 0 Vote négatif
Re : Problème MFC une ligne sur deux

re,et bonjour BrunoM45

Ta logique est bonne :
Au delà de 23, je masque si vide, avant 24, je ne masque pas

Donc en remplaçant :

Code: 
For I = 34 To 21 Step -1

Par :

Code: 
For I = 34 To 24 Step -1


C’est ok pour la mise en page que je désire, mais le coloriage ne fonctionne plus

Merci pour le temps que tu m’accordes
 
Vote positif 0 Vote négatif
Re : Problème MFC une ligne sur deux

Re,

Juste une petite question comme ça ... on peut savoir pourquoi tu ne masque pas avant !?

Sinon le code 😉
VB: 
Private Sub CommandButton1_Click()
  Dim Flag As Boolean, I As Integer
  Dim Rep%
  Dim nbrCopie As Integer
  
  Application.ScreenUpdating = False
  'Sheets("Feuil1").Unprotect Password:="1012" 'ote la protection de la feuille
  With ActiveSheet
    With .PageSetup
      .PrintTitleRows = "$2:$20"              ' Lignes titre
      .PrintArea = " B3:J57"                  ' Zone d'impression (à régler)
    End With
    
    For I = 34 To 21 Step -1
      If Range("C" & I) = "" And I >= 24 Then
        ' Masquer les lignes vides au dessus de la n° 23
        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
    ' nbrCopie = InputBox("Combien de copie voulez-vous faire ?", Title:="Copies")
    '  If nbrCopie = 0 Then


    '     Exit Sub
    '  Else
    '      ActiveWindow.SelectedSheets.PrintOut Copies:=nbrCopie, Collate:=True
    ' End If
  End With


  On Error Resume Next
  'ActiveSheet.ShowAllData
  Application.Goto Range("A1"), Scroll:=True
  ' Sheets("Feuil1").Protect Password:="1012" 'remet la protection de la feuille
  Application.ScreenUpdating = True


End Sub

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Problème MFC une ligne sur deux

[SUB][/SUB]re,
je ne veux tout simplement pas masquer les lignes 21-22-23 pour une histoire de rendu à l'impression
si elles sont visibles mon devis tient sur une feuille, si tu rajoutes 24-25 etc... tout se décale sur deux pages et a l'impression pas cool
je pensais que vous aviez vu ce détail

je teste ta solution et vous tiens au courant
 
Vote positif 0 Vote négatif
Re : Problème MFC une ligne sur deux

Re,
Je l'avais bien vu, c'est pour cela que je masquais toutes les lignes vides
Cliquez pour agrandir...
c'est pour cela que je veux que les lignes 21-22-23 restent visibibles et que si 24 non vide ne plus rien masquer

avec ton dernier code en modifiant 21 par 24 j'obtiens la solution ne reste que la coloration

Code: 
If Range("C24") = "" Then
         For I = 34 To 24 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
     End If
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème MFC une ligne sur deux

Re 🙂,
Donc finalement, si je comprends bien, c'est soit ça tient sur 1 page, soit sur 2 🙄...
Vu que les marges de nos imprimantes sont certainement différente, moi, je pourrais faire tenir une ligne de plus, mais bon à tester
Code: 
If Range("C24") = "" Then
    Range("A25:A34").EntireRow.Hidden = True
    For I = 24 To 21 Step -1
        Range("C" & I & ":I" & I).Interior.ColorIndex = IIf(Flag, 15, 19)
        Flag = Not Flag
    Next I
Else
    For I = 34 To 21 Step -1
        Range("C" & I & ":I" & I).Interior.ColorIndex = IIf(Flag, 15, 19)
        Flag = Not Flag
    Next I
End If
Bonne suite 😎
 
Vote positif 0 Vote négatif
Re : Problème MFC une ligne sur deux

Re,

Mon cher JNP si tu as pigé, tant mieux ... moi que dalle
Une copie d'écran avec le problème aurait été la bien venue 🙄

Bref je ne faisais que passer 😉
 
Vote positif 0 Vote négatif
Re : Problème MFC une ligne sur deux

Re,
Viens de tester c'est nickel JNP

Pourquoi dis tu cela?
Pas très logique, mais bon...
Cliquez pour agrandir...

Il me semble pourtant logique de masquer ce qui ne sert à rien ...non!?

Une petite question si tu permets

Pourquoi dans ton code tu utilises "A" et non "C" ?:

Code: 
Range("A25:A34").EntireRow.Hidden = True

Cela est -il important ou puis-je utiliser "C"?
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

pascal21
  • Question Question
XL 2019 excel vba coloriser une ligne sur deux sur lignes filtrées
Réponses
11
Affichages
245
TooFatBoy
TooFatBoy
E
  • Question Question
XL 2016 Formule MFC
Réponses
7
Affichages
299
excelnoober
E
N
  • Question Question
XL 2021 Décompter des valeurs qui se répètent sur deux feuilles
Réponses
3
Affichages
251
Hecatonchire
H
fenec
  • Question Question
XL 2021 Problème de macro sur Sharepoint
2 3
Réponses
33
Affichages
2 K
oguruma
oguruma
F
  • Question Question
XL 2016 travail sur tableau
2 3 4
Réponses
55
Affichages
2 K
finarobert
F
pascal21
  • Question Question
XL 2019 colorier une ligne sur deux mais uniquement les lignes visibles
Réponses
6
Affichages
359
pascal21
pascal21
fenec
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
469
fenec
fenec
C
  • Résolu(e)
XL 2021 Filtrer sur la ligne active
Réponses
11
Affichages
205
Constantin
C
fenec
  • Question Question
XL 2021 Enregistrer un fichier selon date valeur cellule
Réponses
4
Affichages
224
fenec
fenec
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
510
job75
job75
D
  • Question Question
Microsoft 365 problème d'index
2
Réponses
19
Affichages
497
dad621
D
Philarête
  • Question Question
XL pour MAC Mise en forme conditionnelle de cellules adjacentes en fonction du contenu d'une cellule
Réponses
8
Affichages
386
sylvanu
sylvanu
A
  • Résolu(e)
XL 2013 mise en forme conditionnelle celons 2 critères
Réponses
7
Affichages
417
Auriane
A
lcouaci
  • Résolu(e)
Microsoft 365 Recherche sur plusieurs Feuilles
2
Réponses
18
Affichages
829
lcouaci
lcouaci
W
  • Résolu(e)
XL 2019 Colorer la partie d'entêtes d'un pavé de cellules selon clic-doit sur une cellule interne
Réponses
5
Affichages
556
Nicolas JACQUIN
Nicolas JACQUIN
N
  • Résolu(e)
XL 2013 Somme VBA sur plusieurs ligne
Réponses
8
Affichages
308
Nico77
N
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
648
Jaykerz
J
D
  • Résolu(e)
XL 2016 Filtrage ListBox d'un userform
Réponses
6
Affichages
257
dgil37
D
patricktoulon
  • Résolu(e)
Autres Problème avec mon algo de creation de patchWork
Réponses
5
Affichages
238
patricktoulon
patricktoulon
Etoto
  • Résolu(e)
Microsoft 365 Génération automatique calendrier par année
Réponses
6
Affichages
464
Etoto
Etoto
Retour