un truc pour effecer les lignes vides

T

ThomasR

XLDnaute Occasionnel

• 29 Juillet 2005

• #2

Bonjour nathalie,

je ne sais pas si cela peut te servir car je n'ai pas tout saisie dans ta demande mais un jour j'ai fait cette macro pour qq'un.

voila. [file name=SupLigneColoneVide.zip size=10218]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SupLigneColoneVide.zip[/file]

 

Pièces jointes

• SupLigneColoneVide.zip

  10 KB · Affichages: 13

Vote positif 0 Vote négatif

N

nathalie

Guest

• 29 Juillet 2005

• #3

euh ... ba en fait g pas trop compris le fichier là
moi jy connais rien en macro ni en vba ms s'il existe du code ki fasse :
si colonne total =0 alors supprimer la ligne
voilà

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 29 Juillet 2005

• #4

re bonjour,

peux tu poster un exemple de ce que tu veux afin que j'adapte ce code à ta demande.

car la macro que je t'ai envoyé regarde la feuille et sup la ligne si elle est complétement vide et idem pour les colonnes.

 

Vote positif 0 Vote négatif

N

nathalie

Guest

• 29 Juillet 2005

• #5

Voilà mon fichier
C:\\HS.zip [file name=HS.zip size=25839]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/HS.zip[/file]

 

Pièces jointes

• HS.zip

  25.2 KB · Affichages: 20

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 29 Juillet 2005

• #6

re bonjour,

voici le code utilisé dans la PJ

Code:

Sub ligne()
Dim r As Integer 'declar variable (pour le N° de la ligne)
Application.ScreenUpdating = False 'stop l'actualisation de la page pour le confor des yeux
On Error Resume Next ' en cas d'erreur continu (c'est pour la ligne dans ton fichier qui est en 'REF'
For r = Range('R6000').End(xlUp).Row To 2 Step -1 'la boucle qui commence à la derniere ligne de la colonne R saisie / jusque la ligne 2 avec un pas de -1 afin de ne pas oublier de ligne au passage
If Range('R' & r).Value = 0 Then Rows(r).Delete ' condition si la valeur de la cellule R de la ligne r est = à 0 alors sup la ligne r
Next r ' incrémente r donc next r = r -1 (step -1)
Application.ScreenUpdating = True 'autorise l'actualisation de l'ecran 
End Sub ' fin de la procedure

@+ [file name=Classeur2_20050729131715.zip size=32270]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20050729131715.zip[/file]

 

Pièces jointes

• Classeur2_20050729131715.zip

  31.5 KB · Affichages: 13

Vote positif 0 Vote négatif

N

nathalie

Guest

• 29 Juillet 2005

• #7

Salut thomas,
j'ai un pb ta macro marche et fait exactement ce que je voulais faire mais le pb c kune fois kelle a tourné ma recherchev me renvoie + ke des REF

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 29 Juillet 2005

• #8

bonjour à tous

si Nathalie est celle des heures supplémentaires un fichier l'attends
au fil 'heures supplémentaires Nathalie'
à+ 🙂

 

Vote positif 0 Vote négatif

T

ThomasR

XLDnaute Occasionnel

• 29 Juillet 2005

• #9

re bonjour,

pour ta recherche V je pense que le problème vien du fait que la plage que tu indiques n'est plus remplis plainement.

si aulieu de sup les lignes on les caches ??

dans ce cas il sufis de replacer dans le code (Alt F11 pour y aller)

If Range('R' & r).Value = 0 Then Rows(r).Delete

par

If Range('R' & r).Value = 0 Then Rows(r).Hidden = True

 

Vote positif 0 Vote négatif

N

nathalie

Guest

• 29 Juillet 2005

• #10

c nikel
merci bocou

 

Vote positif 0 Vote négatif