(RESOLU)Masquer automatiquement des celluels si elles sont vide

chaelie2015 · 23 Juillet 2015

Bonjour Forum
ci dessous un code qui me permet de masquer automatiquement les lignes de A6 a A15 si les cellules sont vide
c a d si A6<>"" alors afficher La ligne A6 et masquer les autres
si A6<>"" et A7<>"" alors afficher la ligne 6 et 7 et les autres masquée

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
For x = 6 To 15
If Range("A" & x) = "" Then
Rows(x).Hidden = True
Else
Rows(x).Hidden = False
End If
Next
End Sub

Mais ça n'a pas fonctionné correctement ???
NB : les cellules A6 - A15 ont des formules
Salutations

gosselien · 23 Juillet 2015

Re : Masquer automatiquement des celluels si elles sont vide

Bonjour,

tu dois commencer par le bas 🙂

Dim x As Integer
For x = 15 To 6 Step -1
If Range("A" & x) = "" Then
Rows(x).Hidden = True
Else
Rows(x).Hidden = False
End If
Next
End Sub

phlaurent55 · 23 Juillet 2015

Re : Masquer automatiquement des celluels si elles sont vide

Bonjour à tous,

@ gosselien,

Bonjour,

tu dois commencer par le bas 🙂

aucune importance, il ne s'agit pas de supprimer des lignes mais de les masquer,
dans ce cas on peut boucler de haut en bas

@ chaelie,

NB : les cellules A6 - A15 ont des formules
Salutations

remplace:
If Range("A" & x) = "" Then
par:
If Range("A" & x).Value = "" Then

à+
Philippe

chaelie2015 · 24 Juillet 2015

Re : Masquer automatiquement des celluels si elles sont vide

Bonjour gosselien, philippe
Merci pour la réponse et la correction
Mon souci est résolu
Salutation

(RESOLU)Masquer automatiquement des celluels si elles sont vide

chaelie2015

XLDnaute Accro

gosselien

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

chaelie2015

XLDnaute Accro

Discussions similaires

(RESOLU)Masquer automatiquement des celluels si elles sont vide

chaelie2015

XLDnaute Accro

gosselien

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

chaelie2015

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency