Masquer les colonnes inutiles

[mamagubida10]

Bonjour à tous,

Je cherche à n'afficher que les colonnes utilisées d'uhe feuille.

voici une image pour illustrer ma demande :

J'ai beau chercher, je ne vois pas.

Merci à vous.

 

[cops71]

Re : Masquer les colonnes inutiles

Bonjour mamagubida10,

Je pense que ce n'est que le fait de masquer les colonnes qui n'ont rien en ligne 2

Tu peux écrire le code :

For each cellule in range("A5:IV5")
    if cellule.value = "" then
        columns(cellule.column).visible = false
    end if
next(

A tester biensur...

 

[jeanpierre]

Re : Masquer les colonnes inutiles

Bonsoir mamagubida et Bienvenue ici, cops, le forum,

Dans ma jeunesse, dessinateur et portraitiste, je savais travailler sur des photos, même sur des négatifs....

Aujourd'hui, sous excel ce n'est pas vraiment le top....

Je n'ai pas testé le code de cops, mais tu peux aussi tirer tes colonnes vides vers la dernière IV et les mettre à laargeur "0".

Voir aussi.

Bonne soiré à tous.

Jean-Pierre

 

[mamagubida10]

Re : Masquer les colonnes inutiles

C bizarre. Car j'ai un fichier (celui que j'ai mis en photo) en exemple et il n'y a pas de macro à l'intérieur...

Il n'existe pas une option ?

 

[JCGL]

Re : Masquer les colonnes inutiles

Bonjour à tous et
Bienvenue à mamagubida10

Peux-tu essayer avec :

Option Explicit
Sub Masque()
Application.ScreenUpdating = False
Dim Cel As Range

For Each Cel In Range("A5:IV5")
    If Cel.Value = "" Then Columns(Cel.Column).Hidden = True
Next
End Sub

PS : Joins un fichier plutôt qu'une image, nous sommes sur un Forum XL...

A+

Edition : Arf pas vu mon ami JP

 

[mamagubida10]

Re : Masquer les colonnes inutiles

Merci jean-pierre, ça marche

 

[jeanpierre]

Re : Masquer les colonnes inutiles

Re,

Tant mieux, mais.....

surtout pour saluer l'ami Jean-Claude.... à la bourre.... (pleins de bestiolles rigolottes et grimaçantes non accessible sous Réponse rapide)

Bonne soirée tous.

Jean-Pierre

 

[Catrice]

Re : Masquer les colonnes inutiles

Bonjour,

C bizarre. Car j'ai un fichier (celui que j'ai mis en photo) en exemple et il n'y a pas de macro à l'intérieur...

Il n'existe pas une option ?

Sans macro, selectionner les entetes de colonnes (par exemple : cliquer sur M puis glisser jusqu'à IV) puis Clic droit sur n'importe quel entete et choisir "Masquer"

Ou bien faire :
F5, taper M:IV, OK puis Masquer.

 

[Davaliche]

Re : Masquer les colonnes inutiles

bonjour,

J'ai justement une petite question à ce sujet, quand on masque les lignes et colonnes inutiles est ce que ça change quelque chose concernant la taille du fichier excel ou le délai d'ouverture?