> Tous les forums > Forum Bureautique
 Supprimer les lignes d'un tableauSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Yaloo
  Posté le 03/01/2009 @ 12:22 
Aller en bas de la page 
Petit astucien

Bonjour à tous ,

J'ai créé un tableau avec les cellules de A7 à D47.

Je voudrai supprimer, à l'aide d'une macro, les lignes de mon tableau lorsque la première cellule est vide.

Merci d'avance pour vos réponses.

Publicité
Marmotte18
 Posté le 03/01/2009 à 12:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour Yaloo,

Est-ce bien supprimer les lignes du tableau que tu veux => Plus de tableau

ou

effacer le contenu du tableau => Le tableau reste mais sans information

Par ailleurs, as-tu des formules dans ton tableau ? Cela te gênerait-il de les voir s'effacer ?

Yaloo
 Posté le 03/01/2009 à 12:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Marmotte,

Il s'agit de supprimer uniquement les lignes dont la cellule en A est vide.

Mais il faut laisser les lignes dont la cellule A est remplie.

Il n'y a pas de formule dans le tableau.

Merci de ta rapidité.



Modifié par Yaloo le 03/01/2009 12:46
vieuxmonsieur
 Posté le 03/01/2009 à 19:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonsoir yaloo, marmotte, le forum,

je viens de retrouver ceci dans mes archives, a essayer (remplace la plage B4:B15) par A:A à tout hasard car je ne suis pas un spécialiste du Vba

'Suppression Ligne Conditionnelle

Sub suppr_ligne()
Range("B4:B16").Select 'La colonne à vérifier
Dim C As Range
For Each C In Selection
If C.Value = 0 Then 'La condition
C.Select
Selection.EntireRow.Delete
End If
Next C
End Sub

je remercie ici l'auteur de ce code

bonne année à hacun, chacune

vieuxmonsieur
 Posté le 03/01/2009 à 19:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

re,

je viens aussi de retrouver ce code :

Sub SuppLigneVides()
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

Marmotte18
 Posté le 03/01/2009 à 19:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Ci-joint ma proposition : http://cjoint.com/?bdwuhsuy7I

Ce code n'est valable que pour les lignes 7 à 47 comme demandé. Adapter la macro en jouant sur les paramètres Limite et LigneDébut si les lignes début et fin de plage ne sont pas ceux annoncés.

Sub SupprimeLigne()
Dim Ligne As Byte, Limite As Byte, LigneDébut
Limite = 47
LigneDébut = 7

Reprise:
For Ligne = LigneDébut To Limite
If IsEmpty(Cells(Ligne, 1)) Then
Cells(Ligne, 1).Select
Selection.EntireRow.Delete
Limite = Limite - 1
LigneDébut = Ligne
GoTo Reprise
End If
Next Ligne

Range("A7").Select
End Sub


Modifié par Marmotte18 le 03/01/2009 21:33
Marmotte18
 Posté le 03/01/2009 à 20:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour vieuxmonsieur,

1) Désolé mais ton 1er code ne supprime pas toutes les lignes qu'il faudrait, même si on remplace B4:B16 par A7:D47 qui sont les données du problème.

Voir l'exemple fait à partir de ce code : http://cjoint.com/?bdvdmQBXID

2) En ce qui concerne ton 2ème code, je ne vois pas bien comment il faut l'adapter au problème posé.



Modifié par Marmotte18 le 03/01/2009 20:39
Boisgontier
 Posté le 03/01/2009 à 20:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir,

Cellules vides dans la colonne A:

On Error Resume Next
[A7:A47].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

JB
http://boisgontierjacques.free.fr/

Marmotte18
 Posté le 03/01/2009 à 21:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bravo Boisgontier,

C'est incontestablement la meilleure des solutions !

Publicité
Yaloo
 Posté le 03/01/2009 à 23:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci à tous pour vos réponses.

Celle de Boisgontier est particulièrement simple à écrire et à comprendre.

C'est donc celle que je garderai.

Merci encore.

Bonne soirée. Yaloo



Modifié par Yaloo le 03/01/2009 23:33
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
414,49 €Ecran PC incurvé 34 pouces Gigabyte G34WQC (WQHD, 144 Hz) à 414,49 € livré
Valable jusqu'au 16 Octobre

Amazon Espagne fait une promotion sur l'écran PC incurvé 34 pouces Gigabyte G34WQC qui passe à 396,68 €. Comptez 17,81 € pour la livraison en France soit un total de 414,49 € livré. On le trouve ailleurs à partir de 549 €. Cet écran possède une dalle incurvée 34 pouces VA WQHD (3440x1440) à 1 ms et à 144 Hz (FreeSync Premium et Adaptive Sync). Elle offre le HDR400 et intègre 2 haut-parleurs 2W. Son pied est réglable en hauteur et en inclinaison.


> Voir l'offre
72,23 €Casque HyperX Cloud Alpha (PC, Xbox One, Xbox Serie X/S, PS4, PS5, Switch) à 72,23 € livré
Valable jusqu'au 15 Octobre

Amazon Allemagne fait une promotion sur l'excellent casque gaming HyperX Cloud Alpha qui passe à 66,55 € (avec la TVA ajustée). Comptez 5,68 € pour la livraison en France soit un total de 72,23 € livré alors qu'on le trouve ailleurs à partir de 99 €. Très confortable avec sa mousse à mémoire de forme, il intègre un cadre en aluminium, des transducteurs double chambre de 50 mm offrant de nouvelle génération et un microphone unidirectionnel à suppression de bruit.


> Voir l'offre
119,99 €Alimentation modulaire Corsair RM850X 80+ Gold à 119,99 €
Valable jusqu'au 15 Octobre

Cdiscount fait une superbe promotion sur l'alimentation modulaire Corsair RM850X qui passe à 119,99 €. Cette alimentation de 850W 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 160 €. 


> Voir l'offre

Sujets relatifs
Supprimer lignes d'un Tableau à l'impression
compter lignes d'un tableau dont toutes les cellules sont en couleur
Faire un tableau sur Excel avec des sauts de lignes
macro afficher masquer lignes tableau dans word 2010
macro pour trier un tableau et effacer les lignes sans saisie
Excels 2010 Figer 3 premières lignes d'un tableau SVP.
DIMINUER HAUTEUR LIGNES TABLEAU
Word : supprimer ligne après tableau
supprimer des lignes dans fichier excel 2003
Ajouter des lignes dans tableau Works
Plus de sujets relatifs à Supprimer les lignes d''un tableau
 > Tous les forums > Forum Bureautique