cs_benquoi
Messages postés3Date d'inscriptionmardi 18 novembre 2008StatutMembreDernière intervention 9 avril 2009
-
8 avril 2009 à 16:45
cs_benquoi
Messages postés3Date d'inscriptionmardi 18 novembre 2008StatutMembreDernière intervention 9 avril 2009
-
9 avril 2009 à 14:48
Bonjour,
N'ayant pas trouver de réponses complètes dans les forums, je vous expose mon problème.
Sur excel, j'ai crée un planning par mois qui va de la case E73à la case T480 (pour un mois).
Dans certaines cases de ce tableau, se trouve un nom,et, régulièrement, des lignes de formules qui me servent a compter le nombre de nom par colonnes.
Quand j'ai terminé ce planning, je souhaite cacher les lignes vides de ce tableau par macro (vba6.3).
cela fonctionne pour les lignes de noms, mais les lignes de formules restent affichées méme si la valeur est 0.
voici ma macro:
Dim Plage As Range, Lign As Range, colon As Range
Set Plage = Range("E73:T480")
For Each Lign In Plage.Rows
cs_benquoi
Messages postés3Date d'inscriptionmardi 18 novembre 2008StatutMembreDernière intervention 9 avril 2009 9 avril 2009 à 14:48
Merci à vous deux pour votre aide,
la réponse de jack ma fait changer ma facon de penser moncode.
j'ai créer une colonne qui fait la somme des mots de chaque ligne (de texte ou de resultat de formules), et si le resultat est égale à zéro, cela cache la ligne.
voici le code final.
Dim Plage As Range
'colonne résultat de la somme de mots par ligne
Set Plage = Range("E73:E520")
For Each cell In Plage.SpecialCells(xlCellTypeFormulas)
'si le réultat est egal a zéro, cache la ligne If cell.Value 0 Then cell.EntireRow.Hidden True
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 20101 8 avril 2009 à 17:45
Salut,
Je viens d'essayer cela chez moi et me semble-t-il, une seule ligne de code permet de masquer un type de cellules particulières pour l'ensemble d'une feuille.
Ici pour ton cas, la bonne constante est "xlCellTypeFormulas"
cs_benquoi
Messages postés3Date d'inscriptionmardi 18 novembre 2008StatutMembreDernière intervention 9 avril 2009 9 avril 2009 à 10:25
merci pour ta réponse,
j avais déja essayé avec xlCellTypeFormulas,
j ai tout de méme remplacé ma ligne:
Lign.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True (qui ne fonctionne que pour les lignes de texte vide)
par: Lign.SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True, qui me provoque le message: "pas de cellules correspondantes"