XL 2010 Supprimer lignes vides dans validation de données

Orson83 · 23 Juin 2023

Bonjour la communauté XLD,
J'aurai besoin de votre aide pour supprimer des lignes vides dans une liste de validation de données (1000 lignes, mais 20 renseignées). Voici la formule :

Code:

=INDIRECT("TabRecap[Locataire]")

Cette formule fait appel à un tableau structuré "TabRecap" dont l'en-tête se nomme "Locataire".
Avez-vous une solution à me proposer ?
Merci pour votre aide.
Je ne pense pas qu'un fichier Excel en PJ soit nécessaire, sinon, je pourrais en fournir un.
PS : je ne peux pas réduire la hauteur de mon TS. De plus, cocher la case "Ignorer les lignes" vides ne fonctionne pas.
Orson83

sylvanu · 23 Juin 2023

Bonjour Orson, ToofatBoy, Job,
Un essai en PJ avec :

VB:

Sub SupLigVides()
    Application.ScreenUpdating = False
    Dim Nlig%, N%
    Nlig = [TabRecap].Rows.Count
    For N = Nlig To 1 Step -1
        If [TabRecap[Locataire]].Item(N) = "" Then [TabRecap].ListObject.ListRows(N).Delete
    Next N
End Sub

Orson83 à dit:
Je ne pense pas qu'un fichier Excel en PJ soit nécessaire, sinon, je pourrais en fournir un.

Ben si, ça évite d'en recréer un.

TooFatBoy · 23 Juin 2023

Bonjour,

La solution déjà, tu connais : on ne laisse jamais de lignes vides dans un TS !

job75 · 23 Juin 2023

Bonjour Orson83, TooFatBoy,

Vous pouvez utiliser une colonne auxiliaire qui supprime les cellules vides, faites une recherche sur XLD.

A+

sylvanu · 23 Juin 2023

Bonjour Orson, ToofatBoy, Job,
Un essai en PJ avec :

VB:

Sub SupLigVides()
    Application.ScreenUpdating = False
    Dim Nlig%, N%
    Nlig = [TabRecap].Rows.Count
    For N = Nlig To 1 Step -1
        If [TabRecap[Locataire]].Item(N) = "" Then [TabRecap].ListObject.ListRows(N).Delete
    Next N
End Sub

Orson83 à dit:
Je ne pense pas qu'un fichier Excel en PJ soit nécessaire, sinon, je pourrais en fournir un.

Ben si, ça évite d'en recréer un.

Orson83 · 23 Juin 2023

TooFatBoy à dit:
Bonjour,

La solution déjà, tu connais : on ne laisse jamais de lignes vides dans un TS !

Bonjour @TFB, le forum,
Je n'ai pas le choix apparemment.
Je suis obligé d'augmenter la taille de mon tableau car il récupère les infos de la feuille planning location.
J'ai essayé, mais des contraintes liées aux nouvelles formules m'empêchent de le réduire.

Orson83 · 23 Juin 2023

job75 à dit:
Bonjour Orson83, TooFatBoy,

Vous pouvez utiliser une colonne auxiliaire qui supprime les cellules vides, faites une recherche sur XLD.

A+

Bonjour @job75, le forum,
@sylvanu a trouvé la solution.
Merci d'être intervenu. Bonne journée

TooFatBoy · 23 Juin 2023

Orson83 à dit:
Je n'ai pas le choix apparemment.
Je suis obligé d'augmenter la taille de mon tableau car il récupère les infos de la feuille planning location.
J'ai essayé, mais des contraintes liées aux nouvelles formules m'empêchent de le réduire.

Ah bon ? Es-tu sûr d'avoir construit correctement tes différents TS ?

Orson83 · 23 Juin 2023

sylvanu à dit:
Bonjour Orson, ToofatBoy, Job,
Un essai en PJ avec :

VB:

Sub SupLigVides() Application.ScreenUpdating = False Dim Nlig%, N% Nlig = [TabRecap].Rows.Count For N = Nlig To 1 Step -1 If [TabRecap[Locataire]].Item(N) = "" Then [TabRecap].ListObject.ListRows(N).Delete Next N End Sub

Ben si, ça évite d'en recréer un.

@sylvanu,
Désolé de ne pas avoir posté de fichier , je le ferai la prochaine fois, promis
Votre solution est parfaite, merci pour cette solution simple et efficace
Bonne journée.
Merci également pour l'intervention de @job75 et @TooFatBoy.

Orson83 · 23 Juin 2023

TooFatBoy à dit:
Ah bon ? Es-tu sûr d'avoir construit correctement tes différents TS ?

Oui, j'ai tout essayé

TooFatBoy · 23 Juin 2023

Orson83 à dit:
Oui, j'ai tout essayé

Oui oui, j'en suis persuadé...

Forcément, si tu reçois des encouragements, il est naturel que tu ne cherches pas plus à savoir si tu peux utiliser tes TS normalement.
Je le comprends parfaitement. Je le déplore, mais je le comprends.

job75 · 23 Juin 2023

La solution du #4 est en contradiction avec :

Orson83 à dit:
PS : je ne peux pas réduire la hauteur de mon TS.

Orson83 · 23 Juin 2023

job75 à dit:
La solution du #4 est en contradiction avec :

Pour quelle raison ?

job75 · 23 Juin 2023

La solution du post #4 réduit la hauteur du TS...

Orson83 · 23 Juin 2023

job75 à dit:
La solution du post #4 réduit la hauteur du TS...

Oui, effectivement, à l'exécution de la macro le TS s'est réduit.
Je l'ai ensuite redimensionné et depuis, malgré l'utilisation de ma liste dans validation de données, il est resté en place.
Je remarque juste que mon clavier numérique se verrouille

Orson83 · 23 Juin 2023

sylvanu à dit:
Bonjour Orson, ToofatBoy, Job,
Un essai en PJ avec :

VB:

Sub SupLigVides() Application.ScreenUpdating = False Dim Nlig%, N% Nlig = [TabRecap].Rows.Count For N = Nlig To 1 Step -1 If [TabRecap[Locataire]].Item(N) = "" Then [TabRecap].ListObject.ListRows(N).Delete Next N End Sub

Ben si, ça évite d'en recréer un.

@sylvanu,
Y aurait-il quelque chose à modifier en raison de mon dernier message dans le post#14 ?

XL 2010 Supprimer lignes vides dans validation de données

Orson83

XLDnaute Impliqué

sylvanu

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Orson83

XLDnaute Impliqué

Orson83

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Orson83

XLDnaute Impliqué

Orson83

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Orson83

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Orson83

XLDnaute Impliqué

Orson83

XLDnaute Impliqué

Discussions similaires