masquer ligne à 0 avec vba

[VINCEGR]

bonjour le forum,

je fais appel a vous pour une procédure sur une feuille excel,
je complète les données suivant un ordre et je me retrouve avec bcp de lignes à "0" en colonne "F".
je souhaiterais avoir une macro qui me masque ou me supprime toutes les lignes = 0 a partir de ma ligne 16 jusqu'a ma ligne 600 de ma feuille excel.

merci pour votre aide

 

[VINCEGR]

Re : masquer ligne à 0 avec vba

re à tous,
le code fonctionne correctement pour les lignes ou "0" mais ne masque pas les lignes vides (je veux les 2)
la macro actuelle masque les lignes et si je veux quelles les supprimes que dois-je modifier ?
merci d'avance

 

[Benjy]

Re : masquer ligne à 0 avec vba

Re,

Peut être comme ceci. Pas pu tester car sous OOo

Private Sub CommandButton1_Click()
For i = 16 To 600
If Cells(i, 6) = "" or cells(i, 6)=0 Then
Rows(i).delete
end if
Next i

end sub

 

[pierrejean]

Re : masquer ligne à 0 avec vba

Bonjour a tous

A tester

for n=range("F601").end(xlup).row to 16 step-1
  if range("F" & n)=0 or range("F" & n)="" then rows(n).delete
next n

 

[VINCEGR]

Re : masquer ligne à 0 avec vba

re,
j'ai message d'erreur exécution '13'
incompatibilité type
pourquoi ?

 

[Habitude]

Re : masquer ligne à 0 avec vba

Range(Cells(16, 1), Cells(Range("A65536").End(xlUp).Row, Range("AA1").End(xlToLeft).Column)).AutoFilter 6, "<>0", , , False

 

[pierrejean]

Re : masquer ligne à 0 avec vba

Re

Je viens de tester mon code et a priori l'erreur ne vient pas de la
Y a-t-il autre chose dans la macro ??

 

[VINCEGR]

Re : masquer ligne à 0 avec vba

re
non voici la macro

Sub supplignes()
For i = 16 To 750
If Cells(i, 6) = "" Or Cells(i, 6) = 0 Then
Rows(i).Delete
End If
Next i

End Sub

 

[ROGER2327]

Re : masquer ligne à 0 avec vba

Re...

re à tous,
le code fonctionne correctement pour les lignes ou "0" mais ne masque pas les lignes vides (je veux les 2)
la macro actuelle masque les lignes et si je veux quelles les supprimes que dois-je modifier ?
merci d'avance

J'avais cru lire :

(...) je souhaiterais avoir une macro qui me masque ou me supprime toutes les lignes = 0 a partir de ma ligne 16 (...)

Pour masquer aussi les lignes correspondant aux cellules vides :

[COLOR="DarkSlateGray"][B]Private Sub CommandButton1_Click()
Dim i
   Application.ScreenUpdating = False
   For i = 16 To 600
      If IsEmpty(Cells(i, 6)) Or Cells(i, 6) = 0 Then
         Rows(i).EntireRow.Hidden = True
      End If
   Next i
   Application.ScreenUpdating = True
End Sub[/B][/COLOR]

ROGER2327
#3757

Lundi 9 Gidouille 137 (Sainte Outre, psychiatre, SQ)
5 Messidor An CCXVIII
2010-W25-3T12:34:59Z

 

[VINCEGR]

Re : masquer ligne à 0 avec vba

re
est-ce le faite que je module la macro de " Private sub "en " sub supplignes" mais tjrs ce souci incompatible ???

merci

 

[job75]

Re : masquer ligne à 0 avec vba

Bonjour le fil,

Décevant, malgré tous les efforts de gens de qualité.

Je colle une étoile

A+

 

[ROGER2327]

Re : masquer ligne à 0 avec vba

Re...

re
est-ce le faite que je module la macro de " Private sub "en " sub supplignes" mais tjrs ce souci incompatible ???

merci

Je viens de tester

[COLOR="DarkSlateGray"][B]Sub supplignes()
Dim i
   Application.ScreenUpdating = False
   For i = 16 To 600
      If IsEmpty(Cells(i, 6)) Or Cells(i, 6) = 0 Then
         Rows(i).EntireRow.Hidden = True
      End If
   Next i
   Application.ScreenUpdating = True
End Sub[/B][/COLOR]

avec succès. Peut-être pourrions-nous donner une meilleure réponse si vous déposiez la feuille qui vous pose un problème...​

ROGER2327
#3758

Lundi 9 Gidouille 137 (Sainte Outre, psychiatre, SQ)
5 Messidor An CCXVIII
2010-W25-3T12:51:33Z

 

[VINCEGR]

Re : masquer ligne à 0 avec vba

re Roger et le forum,

je vous envoie un fichier avec la base le résultat avec la macro et le résultat souhaité.
merci d'avance

 

[ROGER2327]

Re : masquer ligne à 0 avec vba

Re...

Essayez ceci :

[COLOR="DarkSlateGray"][B]Sub supplignes()
Dim i&
   Application.Calculation = xlCalculationManual
   Application.ScreenUpdating = False
   For i = 750 To 16 Step -1
      If IsEmpty(Cells(i, 6)) Or Cells(i, 6) = 0 Then
      Rows(i).Delete
   End If
   Next i
   Application.ScreenUpdating = True
   Application.Calculation = xlCalculationAutomatic
End Sub[/B][/COLOR]

ROGER2327
#3760

Lundi 9 Gidouille 137 (Sainte Outre, psychiatre, SQ)
5 Messidor An CCXVIII
2010-W25-3T14:00:10Z

 

[pierrejean]

Re : masquer ligne à 0 avec vba

Re

Le moins que l'on puisse dire est que l'énoncé par le fichier en raconte un peu plus que le texte

Un essai (encore un peu approximatif) a tester conscienceusement

 

[VINCEGR]

Re : masquer ligne à 0 avec vba

Bonjour pierrejean,
je viens de tester "consciencieusement" votre essai.
je vous joins le message d'erreur lors d'un nouvel essai sur une nouvelle feuille du fichier.
pourquoi ?
merci d'avance