(RESOLU)Simplifier le code

[chaelie2015]

Bonjour Forum
je souhaite simplifier le code ci dessous

Sheets("Feuil1").Rows(259).Hidden = IIf(Range("B259") = "", True, False)
Sheets("Feuil1").Rows(270).Hidden = IIf(Range("B259") = "", False, True)

Sheets("Feuil1").Rows(260).Hidden = IIf(Range("B260") = "", True, False)
Sheets("Feuil1").Rows(271).Hidden = IIf(Range("B260") = "", False, True)

Sheets("Feuil1").Rows(261).Hidden = IIf(Range("B261") = "", True, False)
Sheets("Feuil1").Rows(272).Hidden = IIf(Range("B261") = "", False, True)

Sheets("Feuil1").Rows(262).Hidden = IIf(Range("B262") = "", True, False)
Sheets("Feuil1").Rows(273).Hidden = IIf(Range("B262") = "", False, True)

Sheets("Feuil1").Rows(263).Hidden = IIf(Range("B263") = "", True, False)
Sheets("Feuil1").Rows(274).Hidden = IIf(Range("B263") = "", False, True)

Sheets("Feuil1").Rows(264).Hidden = IIf(Range("B264") = "", True, False)
Sheets("Feuil1").Rows(275).Hidden = IIf(Range("B264") = "", False, True)

Sheets("Feuil1").Rows(265).Hidden = IIf(Range("B265") = "", True, False)
Sheets("Feuil1").Rows(276).Hidden = IIf(Range("B265") = "", False, True)

Sheets("Feuil1").Rows(266).Hidden = IIf(Range("B266") = "", True, False)
Sheets("Feuil1").Rows(277).Hidden = IIf(Range("B266") = "", False, True)

Sheets("Feuil1").Rows(267).Hidden = IIf(Range("B267") = "", True, False)
Sheets("Feuil1").Rows(278).Hidden = IIf(Range("B267") = "", False, True)

Sheets("Feuil1").Rows(268).Hidden = IIf(Range("B268") = "", True, False)
Sheets("Feuil1").Rows(279).Hidden = IIf(Range("B268") = "", False, True)

Sheets("Feuil1").Rows(269).Hidden = IIf(Range("B269") = "", True, False)
Sheets("Feuil1").Rows(280).Hidden = IIf(Range("B269") = "", False, True)

SALUTATIONS

 

[DL_13]

Re : Simplifier le code

Bonjour,

Peut-être ainsi

Application.ScreenUpdating = False
With Sheets("Feuil1")
    For i = 259 To 269
        .Rows(i).Hidden = IIf(Range("B" & i) = "", True, False)
        .Rows(i + 11).Hidden = IIf(Range("B" & i) = "", False, True)
    Next i
End With
Application.ScreenUpdating = True

en nommant la variable i as Integer
Bonne journée

 

[JBARBE]

Re : Simplifier le code

Bonjour à tous ,

Peut-être ceci :

Dim i As Long
Dim j As Long
With Sheets("Feuil1")
For i = 259 To 269
 For j = 270 To 280
 .Rows(i).Hidden = IIf(Range("B" & i) = "", True, False)
 .Rows(j).Hidden = IIf(Range("B" & i) = "", False, True)
 Next j
Next i
End With

bonne journée !

 

[chaelie2015]

Re : Simplifier le code

Bonjour tous le monde
merci pour les réponses
@ DL_13: merci pour la réponse mais li manque le reste des lignes de 270 To 280 parce que ça n'a pas fonctionné
@ JBARBE : merci pour la réponse c'est bien simplifié mais lors d’exécution du code j'ai constaté qu'il est très lourd ça prend du temps
A+

 

[Dranreb]

Re : Simplifier le code

Bonjour.
Utilisez des combinaisons .SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = , ça devrait être plus rapide.

 

[JBARBE]

Re : Simplifier le code

Peut-être comme ceci :

Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
For i = 259 To 269
 For j = 270 To 280
 .Rows(i).Hidden = IIf(Range("B" & i) = "", True, False)
 .Rows(j).Hidden = IIf(Range("B" & i) = "", False, True)
 Next j
Next i
End With
Application.ScreenUpdating = True

 

[DL_13]

Re : Simplifier le code

Bonjour à tous

@ DL_13: merci pour la réponse mais li manque le reste des lignes de 270 To 280 parce que ça n'a pas fonctionné

le code que je t'ai fourni fait exactement ce que le tien fait... ou alors j'ai rien compris

Bonne journée

 

[chaelie2015]

Re : Simplifier le code

Bonjour DL_13,JBARBRE,Bernard
le code de DL_13 fonctionne parfaitement comme j'ai souhaité
Merci DL_13 , merci les autres
Souci RÉSOLU
salutations

 

[JBARBE]

Re : (RESOLU)Simplifier le code

Mon code tel qu'il est décrit précédemment est plus rapide !

Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
For i = 259 To 269
 For j = 270 To 280
 .Rows(i).Hidden = IIf(Range("B" & i) = "", True, False)
 .Rows(j).Hidden = IIf(Range("B" & i) = "", False, True)
 Next j
Next i
End With
Application.ScreenUpdating = True

bonne journée !

 

[Dranreb]

Re : (RESOLU)Simplifier le code

Remarque: une expression de la forme IIf(Condition, True, False) à tout intérêt à être remplacé
par simplement : Condition

Donc : .Rows(i).Hidden = Range("B" & i) = ""