> 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
-7 €-7 € dès 20 € pour une première livraison en point de retrait Amazon (selon éligibilité)
Valable jusqu'au 17 Juin

Amazon propose actuellement 7 euros de remise dès 20 euros d'achats avec le code 7RETRAIT pour une première livraison en point de retrait Amazon. Vous pouvez vérifier votre éligibilité à cette offre en vous rendant sur cette page. Vous trouverez la liste des points de retrait sur cette page.


> Voir l'offre
179,99 €SSD externe NVMe Crucial X8 2 To à 179,99 €
Valable jusqu'au 22 Mai

Amazon fait une promotion sur le SSD externe NVMe Crucial X8 2 To qui passe à 179,99 € alors qu'on le trouve ailleurs à partir de 240 €. Il offre des vitesses de lecture jusqu'à 1050 Mo/s et résiste aux chutes jusqu'à 2 mètres, aux chocs et aux températures extrêmes. Il est fourni avec des connecteurs USB C-3.2 et USB-A (USB classique).


> Voir l'offre
59,99 €Montre connectée Xiaomi Redmi Watch 2 Lite à 59,99 €
Valable jusqu'au 22 Mai

Amazon fait une promotion sur la montre connectée Xiaomi Redmi Watch 2 Lite qui passe à à 59,99 € au lieu de 69,99 €. Elle dispose d'écran couleur de 1,55 pouce affichant une définition de 320 x 320 pixels et ne pèse que 35 g. Cinq cadrans sont proposés par défaut, pour varier le style en fonction de votre envie. Du côté des fonctionnalités, vous trouverez le suivi du sommeil, l'analyse de la fréquence cardiaque, des exercices de respiration et un GPS précis capable d'indiquer l’altitude et la pression atmosphérique de votre environnement. 

Elle fait également office de coach sportif en traquant le nombre de pas, la distance parcourue ou encore les calories brûlées et reconnait jusqu'à 11 activités sportives : la course en extérieur, le tapis roulant, le cyclisme extérieur et intérieur, le trekking, la natation, le yoga, etc. D'autres informations sont disponibles sur la Mi Watch Lite, comme l’affichage des notifications avec les emojis, la météo ou encore l'alarme de votre réveil. Il est également possible de prendre des appels entrants, contrôler sa musique et rechercher son téléphone.

Côté autonomie, comptez 10 jours en utilisation standard et 14 heures en mode sport avec le GPS activé en continu. 


> 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