[vba excel] macro pour masquer ligne

Question

Bonjour à tous,

j'ai un problème de macro en vba sous excel(je précise que je n'y connais pas grand chose!!! je sais juste utiliser les macros mais pas les créer!!!)
Voila, j'ai un tableau du type:
''''''''''''''''''''''A''''''''''''''''''''''''''''''''''''''B'''''''''''''''''''''''''''''C''''''''''''''''''''''''''''''''''''''D
1
2
3
4
5'''''''''Equipements'''''''''''''Domaines'''''''''''''''Impact '''''''''''''''''''Action à mener
6''''''''Compacteuse''''''''''''''''''''Air''''''''''''''''''''Poussière''''''''''Faire  analyse par labo
7'''''''''''''''Tour
8'''''Poste soudure
9'''''''''''''''Four''''''''''''''''''''''''''''''''Air'''''''''''''''''''''''Fumée''''''''''''''Faire  analyse par labo

J'aimerais avoir un bouton (macro) pour obtenir la forme suivante de tableau afin de faciliter les impressions car mon tableau est très grand :

''''''''''''''''''''''A''''''''''''''''''''''''''''''''''''''B'''''''''''''''''''''''''''''C''''''''''''''''''''''''''''''''''''''D
1
2
3
4
5'''''''''Equipements'''''''''''''Domaines'''''''''''''''Impact '''''''''''''''''''Action à mener
6''''''''Compacteuse''''''''''''''''''''Air''''''''''''''''''''Poussière''''''''''Faire  analyse par labo
9'''''''''''''''Four''''''''''''''''''''''''''''''''Air'''''''''''''''''''''''Fumée''''''''''''''Faire  analyse par labo

Donc la condition est : si il n'y a pas d'impact (case vide en colonne C), la ligne entière doit être masquer. Puis, il me faudrait un deuxième bouton pour faire réapparaître les lignes masquées. Je voudrais que les 4 premières lignes restent car il y a le logo de ma boîte + date de mise à jour du doc etc...

Merci par avance

Vince

TORTUE85 · Accepted Answer

Allez je vais essaye de te donner une solution
------
POUR CACHER
----------

Sub hide()
Range("B1:B7").Select   'B1:B7 correspond a ta plage de cellule que tu souhaite verifier
For Each o In Selection
If o.Value = "" Then
o.EntireRow.Hidden = True
End If
Next

End Sub
-----------------------------------------------------

POUR REVOIR TES CELLULES
-----------
Sub unhide()

Range("B1:B7").Select
Selection.EntireRow.Hidden = False
End Sub

------------------------------------------------


Et apres tu vas ds excel...Outils/Macro/Lire une macro..
Magie magie tu decouvres deux macros (Hide et Unhide)

Apres tu peux ajouter des boutons sur ta feuille excel et qd tu click dessus cela lance les macros.

AFFICHAGE / BARRE D'OUTILS / FORMULAIRE

Tu selectionnes le bouton 
Tu le met sur ta feuille et tu selectionnes la bonne macro a attribuer..


TCHAO....AU plaisir

vince7338 · Answer

Salut,

Merci c'est exactement ce qu'il me fallait...

Merci beaucoup

a++

loulou1684 · Answer

Torbus,

Pourrais tu m'aider ?

Je souhaiterai utiliser ton code, mais moi je voudrai qu'il cache que s'il y a plus d'une ligne vide.

Sub hide()
'A1:A50 correspond a ta plage de cellule que tu souhaite verifier

dim i as integer
i= o.value + 1

Range("A1:A50").Select

For Each o In Selection
If o.Value = "" and i="" Then
o.EntireRow.Hidden = True
End If
Next

End Sub

Mon code ne va pas, je suis rouillée et je pense mal placé mais je crois l'idée est bonne ?
Peux tu m'y aider ?

loulou

represente SP · Answer

salut, voici mon problème.
J'aimerai si c possible ke au momen ke je clic sur chef d'agrés au autres bein dans la colonne M par exemple sa m'affiche les noms que je peut selectionner. ses noms doivent etre en rapport avec la colonne K ou sinon masquer les noms qui sont dans la colonne K.

voici mon travail: http://dl.free.fr/getfile.pl?file=/n7RnVCgH

utiliser feuil1 et feuil2

Merci de vos reponses, c très urgent

[vba excel] macro pour masquer ligne

4 réponses

Discussions similaires

Newsletters