Bonjour à tous (XL2000)
J'ai un tableau avec, à partir de la colonne F des groupes de 3 colonnes
avec des saisies, puis un groupe de 3 colonnes de totaux divers à partir
de la colonne AA.
Je souhaite par VBA masquer les groupes de 3 colonnes de saisie dont la
cellule de ligne 4 de la colonne de gauche (F, I, L, O, R, U et X) est vide.
Ainsi je n'imprimerai que ce qui est utile: mes colonnes de saisie et
les 3 colonnes de totaux (AA à AC)
For I = LBound(arrlettres) To UBound(arrlettres) Set rng = Columns(arrlettres(I)).Range("A4") If IsEmpty(rng) Then Range(rng, rng.Offset(0, 2)).EntireColumn.Hidden = True Next
A+
J@@ wrote:
Bonjour à tous (XL2000) J'ai un tableau avec, à partir de la colonne F des groupes de 3 colonnes avec des saisies, puis un groupe de 3 colonnes de totaux divers à partir de la colonne AA. Je souhaite par VBA masquer les groupes de 3 colonnes de saisie dont la cellule de ligne 4 de la colonne de gauche (F, I, L, O, R, U et X) est vi de. Ainsi je n'imprimerai que ce qui est utile: mes colonnes de saisie et les 3 colonnes de totaux (AA à AC)
For I = LBound(arrlettres) To UBound(arrlettres)
Set rng = Columns(arrlettres(I)).Range("A4")
If IsEmpty(rng) Then Range(rng, rng.Offset(0,
2)).EntireColumn.Hidden = True
Next
A+
J@@ wrote:
Bonjour à tous (XL2000)
J'ai un tableau avec, à partir de la colonne F des groupes de 3 colonnes
avec des saisies, puis un groupe de 3 colonnes de totaux divers à partir
de la colonne AA.
Je souhaite par VBA masquer les groupes de 3 colonnes de saisie dont la
cellule de ligne 4 de la colonne de gauche (F, I, L, O, R, U et X) est vi de.
Ainsi je n'imprimerai que ce qui est utile: mes colonnes de saisie et
les 3 colonnes de totaux (AA à AC)
For I = LBound(arrlettres) To UBound(arrlettres) Set rng = Columns(arrlettres(I)).Range("A4") If IsEmpty(rng) Then Range(rng, rng.Offset(0, 2)).EntireColumn.Hidden = True Next
A+
J@@ wrote:
Bonjour à tous (XL2000) J'ai un tableau avec, à partir de la colonne F des groupes de 3 colonnes avec des saisies, puis un groupe de 3 colonnes de totaux divers à partir de la colonne AA. Je souhaite par VBA masquer les groupes de 3 colonnes de saisie dont la cellule de ligne 4 de la colonne de gauche (F, I, L, O, R, U et X) est vi de. Ainsi je n'imprimerai que ce qui est utile: mes colonnes de saisie et les 3 colonnes de totaux (AA à AC)
Merci pour l'aide @+ J@@
J
Bonjour anomymousA impeccable, c'est tout à fait cela :-)) @+ J@@
For I = LBound(arrlettres) To UBound(arrlettres) Set rng = Columns(arrlettres(I)).Range("A4") If IsEmpty(rng) Then Range(rng, rng.Offset(0, 2)).EntireColumn.Hidden = True Next
J@@ wrote:
Bonjour à tous (XL2000) J'ai un tableau avec, à partir de la colonne F des groupes de 3 colonnes avec des saisies, puis un groupe de 3 colonnes de totaux divers à partir de la colonne AA. Je souhaite par VBA masquer les groupes de 3 colonnes de saisie dont la cellule de ligne 4 de la colonne de gauche (F, I, L, O, R, U et X) est vide. Ainsi je n'imprimerai que ce qui est utile: mes colonnes de saisie et les 3 colonnes de totaux (AA à AC)
Bonjour anomymousA
impeccable, c'est tout à fait cela :-))
@+
J@@
For I = LBound(arrlettres) To UBound(arrlettres)
Set rng = Columns(arrlettres(I)).Range("A4")
If IsEmpty(rng) Then Range(rng, rng.Offset(0,
2)).EntireColumn.Hidden = True
Next
J@@ wrote:
Bonjour à tous (XL2000)
J'ai un tableau avec, à partir de la colonne F des groupes de 3 colonnes
avec des saisies, puis un groupe de 3 colonnes de totaux divers à partir
de la colonne AA.
Je souhaite par VBA masquer les groupes de 3 colonnes de saisie dont la
cellule de ligne 4 de la colonne de gauche (F, I, L, O, R, U et X) est vide.
Ainsi je n'imprimerai que ce qui est utile: mes colonnes de saisie et
les 3 colonnes de totaux (AA à AC)
For I = LBound(arrlettres) To UBound(arrlettres) Set rng = Columns(arrlettres(I)).Range("A4") If IsEmpty(rng) Then Range(rng, rng.Offset(0, 2)).EntireColumn.Hidden = True Next
J@@ wrote:
Bonjour à tous (XL2000) J'ai un tableau avec, à partir de la colonne F des groupes de 3 colonnes avec des saisies, puis un groupe de 3 colonnes de totaux divers à partir de la colonne AA. Je souhaite par VBA masquer les groupes de 3 colonnes de saisie dont la cellule de ligne 4 de la colonne de gauche (F, I, L, O, R, U et X) est vide. Ainsi je n'imprimerai que ce qui est utile: mes colonnes de saisie et les 3 colonnes de totaux (AA à AC)
