> 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
96,99 €Alimentation modulaire Corsair RM850 80+ Gold à 96,99 €
125 € -22%

Cdiscount propose actuellement l'alimentation modulaire Corsair RM850 à 96,99 €. Cette alimentation de 850W est certifiée 80+ Gold et est garantie 10 ans. Entièrement modulaire, vous pourrez brancher uniquement les câbles (fournis) dont vous avez besoin. On la trouve ailleurs à partir de 125 €.


Voir l'offre
189,99 €Ecran ultra large LG 29 pouces 29WP500-W (IPS, HDR10, 75 Hz, 5 ms) à 189,99 €
259,99 € -27%

Amazon propose actuellement l'écran 29 pouces LG 29WP500-W à 189,99 € livré gratuitement alors qu'on le trouve à partir de 259,99 € ailleurs. Cet écran ultra large est au format 21/9, possède une dalle IPS 75 Hz 5 ms et offre une résolution de 2560 x 1080 pixels. Avec lui, vous pourrez bénéficier d'une plus grande immersion dans les jeux et les films. Cet écran est compatible FreeSync.


Voir l'offre
139,99 €Ecran 27 pouces Samsung Smart Monitor M5 (Full HD, WiFi, Airplay 2) à 139,99 € (via ODR)
200 € -30%

Grosbill fait une promotion sur l'écran 27 pouces Samsung Smart Monitor M5 qui passe à 164,99 € au lieu de 200 €. Or Samsung vous rembourse actuellement 25 € pour l'achat de cet écran qui vous reviendra à 139,99 € après remboursement.

Une excellente affaire pour cet écran atypique puisqu'il intègre le système Tizen de Samsung. Vous pouvez l'utiliser comme écran PC mais également comme appareil autonome puisqu'il intègre la gamme d'applications Smart telles que Amazon Prime Video, Netflix, YouTube et Disney + via la télécommande, sans avoir besoin de votre PC.

Vous pourrez également connecter votre PC Portable, Smartphone ou votre dernière console de jeu au Smart Monitor via HDMI, WiFi, Bluetooth ou Airplay. Et grâce à la fonction Auto Source Switch +, le Smart Monitor détecte les appareils connectés dès qu’ils sont branchés et affiche la bonne source.


Voir l'offre
87,29 €Alimentation modulaire Corsair RM750X 80+ Gold à 87,29 €
120 € -27%

Amazon propose actuellement l'alimentation modulaire Corsair RM750X à 87,29 €. Cette alimentation de 750 W est certifiée 80+ Gold et est garantie 7 ans. Entièrement modulaire, vous pourrez brancher uniquement les câbles (fournis) dont vous avez besoin. On la trouve ailleurs à partir de 120 €.


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