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

 

[sylvanu]

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

En fait je ne comprends plus :
Vous demandez au post #1 de "supprimer des lignes vides", puis en parlant du tableau "Je l'ai ensuite redimensionné "
Si on supprime des lignes, cela le réduit, non ?

Je remarque juste que mon clavier numérique se verrouille

Je ne vois pas comment mes trois lignes de code peuvent verrouiller votre clavier.

Si depuis le début vous aviez fourni un fichier test ainsi que l'attendu, vous auriez évitez de perdre votre temps ... et le notre.

 

[Orson83]

En fait je ne comprends plus :
Vous demandez au post #1 de "supprimer des lignes vides", puis en parlant du tableau "Je l'ai ensuite redimensionné "
Si on supprime des lignes, cela le réduit, non ?

Je ne vois pas comment mes trois lignes de code peuvent verrouiller votre clavier.

Si depuis le début vous aviez fourni un fichier test ainsi que l'attendu, vous auriez évitez de perdre votre temps ... et le notre.

Message reçu @sylvanu et merci @job75 pour ce râteau (je plaisante ).

 

[Orson83]

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

Re @job75,
Après le râteau que je viens de prendre par sylvanu , vous voulez bien m'en dire plus ?

 

[TooFatBoy]

Oui, effectivement, à l'exécution de la macro le TS s'est réduit.

Normal, ça semble être le but de la macro.

Elle supprime les lignes du TS dont les cellules de la colonne "Locataire" sont vides.

 

[TooFatBoy]

En fait je ne comprends plus :
Vous demandez au post #1 de "supprimer des lignes vides", puis en parlant du tableau "Je l'ai ensuite redimensionné "
Si on supprime des lignes, cela le réduit, non ?

En fait il ne veut pas utiliser son TS normalement :

- il veut laisser des lignes vides (à cause de formules qui remplissent le TS, si j'ai bien compris...), et il veut utiliser le contenu d'une des colonnes de ce TS comme source d'une liste de choix,

- mais comme il y a ces fameuses lignes vides inutiles (et qu'il veut les garder...), il obtient une liste de choix avec des items vides.

Ce sont ces items vides qu'il veut supprimer.

 

[sylvanu]

Bonsoir TooFatBoy,

Si depuis le début vous aviez fourni un fichier test ainsi que l'attendu, vous auriez évitez de perdre votre temps ... et le notre.

Encore faudrait il savoir comment il a construit sa liste déroulante. Ca aiderait.

 

[TooFatBoy]

Encore faudrait il savoir comment il a construit sa liste déroulante. Ca aiderait.

Avec la formule qu'il donne en #1.

Moi ce que je voudrais encore plus savoir, c'est pourquoi ces lignes vides lui paraissent utiles et indispensables.

 

[sylvanu]

Re,
Un essai en PJ.
La liste déroulante est "planquée" en colonne XFC.
Il n'y a ni vides, ni doublons, et est tri en ordre alpha.

 

[Cousinhub]

Bonsoir,
Pas sûr que ce soit l'idée du siècle...

La liste déroulante est "planquée" en colonne XFC.

Juste la possibilité d'insérer 1 colonne (pas 2...)
Bonne soirée

 

[Staple1600]

Bonsoir le fil

@Cousinhub

Pas sûr que ce soit l'idée du siècle...

Assurément non!
1993: Excel 5 (et apparition de VBA)
Ok, je sors

 

[Orson83]

Re,
Un essai en PJ.
La liste déroulante est "planquée" en colonne XFC.
Il n'y a ni vides, ni doublons, et est tri en ordre alpha.

Bonsoir @sylvanu, le fil,
Merci pour cette proposition, je vais faire des tests.
Bonne soirée.

 

[job75]

Voyez le fichier joint et cette macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, liste(), i&, x$, n&
tablo = [TabRecap].Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
For i = 1 To UBound(tablo)
    x = CStr(tablo(i, 1))
    If x <> "" Then
        ReDim Preserve liste(n) 'base 0
        liste(n) = x
        n = n + 1
    End If
Next
With [C2].Validation
    .Delete 'RAZ
    .Add xlValidateList, Formula1:=Join(liste, ",")
End With
End Sub

La liste de validation se crée en dur en cellule C2 quand on modifie une cellule quelconque.

 

[sylvanu]

Bonsoir,

Pas sûr que ce soit l'idée du siècle...

CousinHub, s'il vous plait, faites nous profiter de vos connaissances, et partagez un fichier avec nous.
C'est l'essence même d' XLD de partager.

En PJ une solution sans VBA juste avec ces deux formules :

En matriciel :
=SIERREUR(INDEX(TabRecap[[#Tout];[Locataire]];PETITE.VALEUR(SI(FREQUENCE(SI(TabRecap[[#Tout];[Locataire]]<>"";EQUIV(TabRecap[[#Tout];[Locataire]];TabRecap[[#Tout];[Locataire]];0)); LIGNE(TabRecap[[#Tout];[Locataire]])-LIGNE(Feuil1!$G$1)+1);LIGNE(TabRecap[[#Tout];
Pour la liste déroulante :
=DECALER(Locataire0;0;0;99-NB.SI(Locataires;""))

 

[Staple1600]

Re,

@sylvanu
En dehors de ma petite blague du #25, je crois comprendre ce que voulait dire @Cousinhub
J'ai fait l'essai suivant
Une validation en XFC1
J'insère une colonne
La validation passe en XFD1
J'insère une seconde colonne
=> Je n'ai plus de validation sur ma feuille
EDITION: si ma validation est sur plusieurs cellules en colonne XFC
j'ai au final ce message d'erreur

D'où le

Juste la possibilité d'insérer 1 colonne (pas 2...)

 

[sylvanu]

@Staple,
Réclamée depuis le début, Orson n'a jamais daigné fournir un fichier représentatif.
Il a donc droit à un fichier test. Ca je l'avais vu, mais comme il devra reprendre le code pour l'adapter, je ne vois pas où est le souci.
Maintenant, ma PJ #28 est sans VBA, cela résous le problème.