XL 2010 Supprimer lignes vides dans validation de données

[Orson83]

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 :

=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

 

[TooFatBoy]

Bonjour,

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

 

[job75]

Bonjour Orson83, TooFatBoy,

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

A+

 

[sylvanu]

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

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

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]

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]

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]

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]

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

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]

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

Oui, j'ai tout essayé

 

[TooFatBoy]

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]

La solution du #4 est en contradiction avec :

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

 

[Orson83]

La solution du #4 est en contradiction avec :

Pour quelle raison ?

 

[job75]

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

 

[Orson83]

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]

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

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 ?