> Tous les forums > Forum Bureautique
 supprimer des lignes vides sous excel 2003
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
margo51
  Posté le 12/11/2005 @ 18:34 
Aller en bas de la page 
Nouvelle astucienne
bonsoir, voici ce que j'ai saisi dans ma macro : Sub supp_lignes() ' ' supp_lignes Macro ' Macro enregistrée le 09.11.2005 par PGM ' 'Dim myCtrl, dernLigne, I 'détermine le numéro de la dernière ligne utilisée dernLigne = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Count - 1 'désactive la mise à jour de l'écran afin d'accélérer les traitements Application.ScreenUpdating = False 'Pour toutes les lignes en partant de la dernière For I = dernLigne To 1 Step -1 'La fonction Excel CountA correspond à =NBVAL If Application.WorksheetFunction.CountA(Rows(I)) = 0 Then Rows(I).Delete Shift:=xlUp End If Next I End Sub Mon problème c'est que cela doit se passer dans un tableau avec calcul automatique et par conséquent même en stipulant dans les options de ne pas afficher les valeurs "zéro", excel voyant que ce n'est pas vide (formule), ne supprime pas les dernières lignes qui n'ont pas d'informations pourtant. Si je supprime les calculs automatiques, cela marche... J'ai pêché -en partie- cette formule dans un vieux n° de l'Oi de 01/2003... Voici le détail de mes colonnes : a:c date, mois et n° client, d : formule rechercherv, e:s chiffres, et pas de formules t:z formules de calcul issues des colonnnes e:s Mon tableau compte minimum 25 lignes + celle du total, et en dessous 5 lignes de récap. Donc si j'efface les formules qui sont de t à z, ma macro fonctionne...si je les laisse, ça ne marche pas. Or le haut du tableau (complété) est repris trimestriellement dans une autre feuille, et bien sur les lignes vides ne servent à rien... Mais Si j'utilise "a à c" je ne retrouve que la ligne qui a une données, sachant que la ligne "total" de mon tableau disparaît aussi, ainsi que les 4 ou 5 lignes qui sont en dessous des totaux et qui récapitulent l'ensemble du tableau en "bouteilles" ou en "équivalence". Si je prends les colonnes e à s, cela conserve ma ligne "total du tableau" mais fait également disparaître les lignes récap du dessous... J'espère ne pas vous avoir donné mal à la tête, parce que j'arrive à être embrouillée toute seule à la relecture [tropbu] Bref je souffre ! je suis perdue ![rougir] [bombe] Merci d'avance pour votre aide.
Publicité
galopin01
 Posté le 12/11/2005 à 19:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
bonsoir, essaie de remùplacer ta ligne "CountA" par :
If Application.WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 19))) = 0 Then
Le reste sans changement. A+

Modifié par galopin01 le 12/11/2005 19:06
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
20 €Clé USB Sandisk Luxe 128 Go à double connectique USB 3.1 Type A et C à 20 €
30 € -33%

Cdiscount fait une promotion sur la clé USB Sandisk Luxe 128 Go à double connectique USB 3.1 Type A et C qui passe à 20 €. Cette clé USB  dispose d'un connecteur USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 30 €.

La version 256 Go est également en promotion à 36,99 € au lieu de 47 € ainsi que a version 512 Go qui passe à 67 € au lieu de 90 €.


Voir l'offre
749,99 €PC portable 15.6 pouces Lenovo (FHD IPS, Ryzen 5, 16 Go de RAM, SSD 512 Go, RTX 3050) à 749,99 €
899 € -17%

Cdiscount fait une promotion sur l'ordinateur portable Lenovo IdeaPad Gaming 3 15ACH6 qui passe à 749,99 € alors qu'on le trouve ailleurs autour de 899 €. Ce portable dispose d'un écran de 15.6 pouces FullHD IPS (1920x1080), d'un processeur AMD Ryzen 5 5600H, de 16 Go de RAM, d'un SSD de 512 Go, d'une carte graphique dédiée NVIDIA GeForce RTX 3050 4 Go, du WiFi et du Bluetooth.

L'ordinateur est livré sans OS mais vous pouvez facilement installer Windows 10/11.

Un bon portable adapté à la bureautique, au multimédia et aux jeux.


Voir l'offre
9,99 €Lot de 32 piles Philips AA à 9,99 €
15 € -33%

Fnac fait une promotion sur le lot de 32 piles Philips AA qui passe à 9,99 € au lieu de 15 €.


Voir l'offre
189,99 €Ecran 27 pouces incurvé Viewsonic VX2718 (FHD, 165 Hz, 1 ms) à 189,99 €
229 € -17%

Cdiscount fait une promotion sur l'écran 27 pouces incurvé Viewsonic VX2718 qui passe à 189,99 € alors qu'on le trouve ailleurs à partir de 229 €. Cet écran dispose d'une dalle VA Full HD  (1920x1080) à 165 Hz avec un temps de réponse de 1 ms. Il est compatible Adaptive Sync. Au niveau connectique, vous trouverez une entrée DP et deux entrées HDMI. Une très bonne affaire. 


Voir l'offre

Sujets relatifs
supprimer des lignes dans fichier excel 2003
Supprimer les lignes vides dans Excel
recopier des lignes sous excel 2003
Excel supprimer lignes vides???
De-selectionner des lignes dans un groupe sous Excel
Perte hyperliens Excel 2003 sous Vista Edition Familiale
Amélioration d'une macro sous excel 97 ou 2003
Sous totaux avec Excel 2003
chercher les lignes doubles dans excel 2003
enregistrement partiel sous EXCEL 2003
Plus de sujets relatifs à supprimer des lignes vides sous excel 2003
 > Tous les forums > Forum Bureautique