Ignorer lignes masquées avec VBA ?
Le
Emile63

Bonsoir à tous,
Avec le code suivant (tronqué pour faire court) j'insère des saut=
de page en fonction du code "1" que j'ai mis dans une colonne, et une bouc=
le qui parcourt les cellules en descendant pas de 1 s'il n'y a pas le code =
1. Malheureusement j'ai un problème avec les lignes masquées (oui=
, il y en a), que la macro parcourt alors que je souhaiterais passer à =
la suivante visible..
Je vous remercie d'avance pour vos idées ou solutions,
Emile
=
--
Do While ActiveCell.Value <> ""
If ActiveCell = 1 Then ' 1 = Insertion du saut de page
MaCellule = ActiveCell.Address(RowAbsolute:=False, Colu=
mnAbsolute:=False)
Selection.EntireRow.Select
Selection.PageBreak = xlManual
Range(MaCellule).Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
=
-
Avec le code suivant (tronqué pour faire court) j'insère des saut=
de page en fonction du code "1" que j'ai mis dans une colonne, et une bouc=
le qui parcourt les cellules en descendant pas de 1 s'il n'y a pas le code =
1. Malheureusement j'ai un problème avec les lignes masquées (oui=
, il y en a), que la macro parcourt alors que je souhaiterais passer à =
la suivante visible..
Je vous remercie d'avance pour vos idées ou solutions,
Emile
=
--
Do While ActiveCell.Value <> ""
If ActiveCell = 1 Then ' 1 = Insertion du saut de page
MaCellule = ActiveCell.Address(RowAbsolute:=False, Colu=
mnAbsolute:=False)
Selection.EntireRow.Select
Selection.PageBreak = xlManual
Range(MaCellule).Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
=
-
Merci , et bonne soirée.
Emile