Discussion :

[jeffouletofou]

bonsoir,

je souhaiterai que dans mon tableau, qui contient plusieurs parties, que toutes les lignes ne contenant pas un chiffre ou une lettre a la premier colonne soient masque.

par contre, il me faut pour chaque sous partie qu'une ligne reste vide afin que je puisse y mettre mes donnees.

en gros a chaque fois que je rempli un ligne, la suivante apparait tout en masquant toutes les autres qui sont toujours vide ou egale à 0 mais qui peuvent contenir des formules ou non.

je joins une feuille type.

merci et bonne soiree.

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
 
sub masquerlecolonnes()
for i=1 to  500
 
if cells(i,1).value="" then 
 Rows("i:i").EntireRow.Hidden = True
end if 
 
end sub

voila pour la premiere partie
quand au reste je ne comprend pas tres bien

au plaisir

[jeffouletofou]

merci pour cette reponse aussi rapide.

ne connaissant pas du tout le vba, comment proceder pour que cette macro fonctionne ?

quand au reste je ne comprend pas tres bien

et bien en faite je voudrai que ma feuille soit minimiser au maximum, seule les ligne ou figurent des informations doivent etre visible mais pour que je puisse continuer à remplir cette feuille, il faut qu'a chaque fois que je rempli une ligne, la suivante ne soit plus masque afin que je puisse continuer.

j'espere avoir ete plus clair.

encore merci

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub MasqueLignesVides()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
    For i = 1000 To 19 Step -1
        If Application.CountA(.Range("B" & i - 1 & ":O" & i)) = 0 Then
        .Rows(i).Hidden = True
        Else
        .Rows(i).Hidden = True
        End If
    Next i
End With
End Sub

équivalent à plus concis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub MasqueLignesVides()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
    For i = 1000 To 19 Step -1
        .Rows(i).Hidden = Application.CountA(.Range("B" & i - 1 & ":O" & i)) = 0
    Next i
End With
End Sub

[jeffouletofou]

merci mercatog

il y a une chose par contre qui ne fonctionne pas avec cette macro, j'ai l'impression que la ligne suivante est cree, alors que ce qu'il me faut c'est juste que la ligne d'apres ne soit plus masque concervant ainsi les formules des lignes suivantes.

j'abuse encore de votre bonne volonte, vous serai t'il possible de me mettre a quoi correspondent les lignes de code afin que je puisse traiter toute la feuille.

je n'en ai mis qu'une petite partie en piece jointe, jai encore 6 jours a traiter de la meme facon sur la meme feuille. Je souhaite essayer de completer le reste tout seul c'est pour ça que je n'ai mis que le debut.

[mercatog]

Le code ne crée aucune ligne, il cache les lignes vides ET où la ligne en dessus est aussi vide.