> 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 !

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
99,99 €Souris sans fil Logitech G Pro X Superlight à 99,99 €
Valable jusqu'au 06 Décembre

Amazon fait une promotion sur la souris sans fil Logitech G Pro X Superlight qui passe à 99,99 € au lieu de 120 €. Cette souris pèse moins de 63 grammes et offre un glissement sans la moindre friction. Équipée du capteur optique Hero de 25000 dpi, la souris Pro X Superlight transmet chaque mouvement, et ce, avec une précision et une réactivité optimales, quelle que soit la vitesse.


> Voir l'offre
35,99 €Ventirad Be quiet! Pure Rock 2 à 35,99 €
Valable jusqu'au 06 Décembre

Cdiscount propose actuellement le ventirad Be quiet! Pure Rock à 35,99 € avec le code 10GAMER alors qu'on le trouve ailleurs à plus de 51 €. Une bonne affaire. Il offre un excellent rapport performances/prix avec une efficacité de refroidissement de 150W TDP, quatre caloducs 6mm, un ventilateur Pure Wings 2 120mm PWM et une conception pratique pour un montage depuis le dessus de la carte mère.


> Voir l'offre
79,99 €Ensemble Microsoft Sculpt Ergonomic Desktop sans fil à 79,99 €
Valable jusqu'au 06 Décembre

Amazon fait une promotion sur le pack complet Microsoft Sculpt Ergonomic Desktop sans fil qui passe à 79,99 € alors qu'on le trouve ailleurs à plus de 110 €. Ce pack comporte un clavier et une souris ergonomique ainsi qu'un pavé numérique externe.

Le clavier sans fil intègre de nombreux raccourcis Windows 10/11 couramment utilisés (fonction rechercher, partager, démarrer, périphériques, paramètres, etc.), mais également un design incurvé en forme de dôme qui se veut ergonomique, rendant la position du poignet plus naturelle. Le repose poignet amovible est également là pour vous apporter tout le confort dont vous avez besoin ! 

Elégante, performante et ergonomique, la souris sans fil vous offre la liberté dont vous avez besoin pour le travail et/ou le divertissement. Le ruban tactile latéral vous permettra d'accéder rapidement à vos fonctionnalités préférées de Windows (8,10 et 11). 

Enfin vous pourrez utiliser à votre guise le pavé numérique externe.


> 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