MACRO-masquer/afficher lignes Résolu/Fermé

Question

Bonjour,
Etant débutante en VBA, j'ai après des recherches sur des forums essayé de faire une petite macro pour que sur une feuille excel il me cache les lignes quand il y a 0 dans ma colonne F mais qu'il me les ré-affiches quand la valeur en colonne F ne soit plus 0. Et ça à partir d'un bouton sur ma feuille excel.
Par contre j'ai plusieurs problèmes :
1- je ne sais pas comment faire si j'ai des lignes vides entre plusieurs lignes avec des nombres, car il me bloque sur la première ligne vide surement du à :Do While ActiveCell <> "", mais je ne sais pas quoi mettre d'autre à la place.
2- une fois la macro effectuée, il met mon curseur (cellule surlignée) tout en bas du tableau (F10), mais en haut de la fenetre (je ne sais pas trop si vous voyez ce que je veux dire) mais je suis obligée de remonter la feuille avec la roulette..

Je vous met mon code, piqué un peu partout sur les forums.. En espérant que quelqu'un pourra m'aider.

Merci d'avance

Sub MasQLigne()
Application.ScreenUpdating = False
'Mise en place au départ
Range("F1:F10").Select
Do While ActiveCell <> ""

'Effacement de ligne
If ActiveCell = 0 Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select

End If

'Affichage de ligne
If ActiveCell.Value <> 0 Then
Selection.EntireRow.Hidden = False

ActiveCell.Offset(1, 0).Select

End If

Loop
Application.ScreenUpdating = True
End Sub

pijaku · Answer

Bonjour,
Essayez ceci :

Sub MasQLigne()
Dim Cell As Range
'Mise en place au départ
For Each Cell In Range("F1:F10")
If Cell = "0" Then
Cell.EntireRow.Hidden = True
Else
'Affichage de ligne
Cell.EntireRow.Hidden = False
End If
Next
End Sub

Je ne l'ai pas testé donc revenez après test me dire si cela fonctionne

zebulon2503 · Answer

Lut
Y'a un peu plus simple si tu ne dois faire ca qu'entre F1 et F10 : 

Sub MasQLigne()  
Application.ScreenUpdating = False  
'Mise en place au départ  

For i=1 to 10 
cells(i,6).select ' C'est une autre facon de sélectionner une cellule, i étant ici le numéro de ligne et 6 l'indice de la colonne (F étant la 6e lettre) 

'Effacement de ligne  
If ActiveCell = 0 Then  
  Selection.EntireRow.Hidden = True  
Else 
  'Affichage de ligne  
  Selection.EntireRow.Hidden = False  
End If  

Next i 

Range("A1").Select ' Ca te permet de surligner la cellule A1 et donc de te retrouver en haut de page 
Application.ScreenUpdating = True  
End Sub 


Essaies ca et dis moi si ca te va :-) 

Les cons peuvent avoir l'air intelligent à première vue... Heureusement pour eux que la vitesse de la lumière est supérieure à celle du son.

Polux31 · Answer

Bonjour,

Essaie avec ça:

Sub MasQLigne()
Dim plage As Range
Dim cel

Application.ScreenUpdating = False
'Mise en place au départ
Set plage = Worksheets(1).Range("F1:F10")

    For Each cel In plage
        'Effacement de ligne
        If cel.Value = 0 Then
            Rows(cel.Row).EntireRow.Hidden = True
        Else
            Rows(cel.Row).EntireRow.Hidden = False
        End If
    Next cel

Application.ScreenUpdating = True

End Sub

;o)

MACRO-masquer/afficher lignes

3 réponses

Discussions similaires