masquer les colonnes vides

Posez ici toutes les questions concernant un ou plusieurs logiciels, payants ou gratuits. Pour les demandes spécifiques aux systèmes d'exploitation, passez plutôt par les sections dédiées.

Modérateur: Modérateurs

masquer les colonnes vides

Messagepar valnoe » 20 Mai 2016 17:21

Bonjour,

J'ai créé une macro pour masquer les colonnes vides.

Le problème est que ça ne masque que la ligne 6, alors que je voudrais que soit maquer les colonnes vides sur une sélection de lignes de 6 à 125.

Pouvez vous m'aider.

Ma macro

Sub Masquer()
'Masque les colonnes où L3=X
Application.ScreenUpdating = False
Dim i As Integer
For i = 6 To 114
If Cells(6, i) = "" Then
Columns(i).Hidden = True
Else: Columns(i).Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub

Merci

Valérie
valnoe
 
Messages: 2
Inscription: 20 Mai 2016 17:10

Re: masquer les colonnes vides

Messagepar dafy » 21 Mai 2016 01:21

Salut,

en enlevant le 6 ici If Cells(i) = "" Then c'est fonctionnel,
attention cela ne masque que si la ligne 1 est vide, si une donnée présente en L2 par exemple et rien en L1 alors la colonne est masquée

cela ne masque qu'a partir de la colonne F et s’arrête après la colonne DJ (ton 6 à 114).

@+


Sub Masquer()
'Masque les colonnes où L3=X
Application.ScreenUpdating = False
Dim i As Integer
For i = 6 To 114
If Cells(i) = "" Then
Columns(i).Hidden = True
Else: Columns(i).Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
"Tout est relatif, et cela seul est absolu."
Avatar de l’utilisateur
dafy
Maître Libellulien
Maître Libellulien
 
Messages: 871
Inscription: 13 Fév 2005 20:53
Localisation: Toonville

Re: masquer les colonnes vides

Messagepar valnoe » 21 Mai 2016 16:34

Bonjour,

Merci, mais cela prend en compte que les données de la première colonne et masque systématiquement toutes les autres colonnes.
valnoe
 
Messages: 2
Inscription: 20 Mai 2016 17:10

Re: masquer les colonnes vides

Messagepar dafy » 21 Mai 2016 19:18

C'est ok ou pas ?

de mon coté cela fonctionne

@+
"Tout est relatif, et cela seul est absolu."
Avatar de l’utilisateur
dafy
Maître Libellulien
Maître Libellulien
 
Messages: 871
Inscription: 13 Fév 2005 20:53
Localisation: Toonville


Retourner vers Software - Logiciels

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité