Combien de Colonnes Visibles ?

Bonjour gb,

Rien est impossible, dis-t-on, mais par formule...un classique..d'emblée,
pas pour moi!

Par macro oui, mises à part les largeurs proches de 0 qui laissent qd même
paraître un trait gris,
donc on compte celles qui ne sont pas masquées:

'****
Sub colmasq()
Dim cln As Range
Dim var As Byte
For Each cln In Range("b:l").Columns
If cln.Hidden = False Then var = var + 1
Next
MsgBox var
End Sub
'****
'lSteph

"gb" <g.bezamat@worldonline.fr> a écrit dans le message de news:
4311aa6f$0$31027$626a14ce@news.free.fr...

Bonjour,

Sans doute un classique:

Entre "A1" et "M1" certaines colonnes sont masquées
Comment savoir (par formule si possible) combien de colonnes restent
visibles ?
Merci d'avance

bonjour Gb et LSteph

ma proposotion par formule est tordue ...tu auras peut etre plus vite fait
d'apprendre le VBA...;o) ..., en utilisant un tableau intermédiaire (par
exemple P1:P13) et les anciennes macros XL4

Sélectionnes la cellule P1
ensuite
Menu Insertion
Nom
Définir
Dans le champ "Noms dans le classeur" , saisies "TEST1"
Dans le champ "Fait référence à" , saisies la formule
=LIRE.CELLULE(44;Feuil1!A1)-LIRE.CELLULE(42;Feuil1!A1)
Cliques sur Entrée pour valider
Ensuite , dans la cellule P1 tu saisies
=TEST1

************************************
si la colonne A est masquée la formule "TEST1" renvoie = 0
************************************

tu fais la meme opération pour integrer les colonnes B à M

Sélectionnes la cellule P2
Menu Insertion
Nom
Définir
Dans le champ "Noms dans le classeur" , saisies "TEST2"
Dans le champ "Fait référence à" , saisies la formule
=LIRE.CELLULE(44;Feuil1!B1)-LIRE.CELLULE(42;Feuil1!B1)
Cliques sur Entrée pour valider
Ensuite , dans la cellule P2 tu saisies
=TEST2

...etc ...


enfin tu créées une formule =NB.SI(P1:P13;">0") pour compter le nombre de
cellules différentes de 0 (donc non masquées ) dans le tableau intermediaire

il faudra peut etre rafraichir/revalider les formules apres chaque action
sur les colonnes


cordialement
michel



"gb" wrote:

Bonjour,

Sans doute un classique:

Entre "A1" et "M1" certaines colonnes sont masquées
Comment savoir (par formule si possible) combien de colonnes restent
visibles ?
Merci d'avance