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 18: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 18:10

Re: masquer les colonnes vides

Messagepar dafy » 21 Mai 2016 02: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: 870
Inscription: 13 Fév 2005 21:53
Localisation: Toonville

Re: masquer les colonnes vides

Messagepar valnoe » 21 Mai 2016 17: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 18:10

Re: masquer les colonnes vides

Messagepar dafy » 21 Mai 2016 20: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: 870
Inscription: 13 Fév 2005 21:53
Localisation: Toonville


Retourner vers Software - Logiciels

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités