Liste déroulante Excel

 1) Tu vas dans https://www.cjoint.com/ 
 2) Tu cliques sur [Parcourir] pour sélectionner ton fichier (8192 Ko maxi)
 3) Tu défiles vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint] 
 4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; tu le sélectionnes et tu fais "Copier"
 5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".
=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers 

Bonjour et merci pour les explications.

Voici mon fichier : http://www.cjoint.com/c/FFbrij1T0tK

Ce que j'aimerais faire se situe dans la colonne D de l'onglet # fiche projet. J'ai déjà fait une liste déroulante à l'aide de validation de données.

Ce que j'aimerais faire maintenant que je n'arrive pas à faire c'est d'éliminer les blancs dans ma liste déroulante.

Quand j'utilise une des données de la liste déroulante pour l'attribuer à un projet(ligne), celui-ci disparait, mais un espace blanc reste toujours visible dans ma liste déroulante. C’est cet espace blanc que j'aimerais voir disparaitre.

Est-ce que mon explication est plus claire?

Merci,

Oui ; j'ai déjà vu quelque chose de semblable dans une autre discussion ...
Je me souviens seulement que c'était autrement plus compliqué que la formule de Michel ! Et aucun de nous n'aurait pu deviner que tu risquais de choisir tes items dans le désordre ... Mes essais se basaient, comme Michel l'a fait, sur la fonction DECALER, que je maîtrise pas suffisamment pour avoir abouti à une formule, mais qui aurait eu le même effet. Alors pas de regret ...

Mes salutations amicales à vous tous.

Si un jour tu te décides

Option Explicit
'-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Static Flag As Boolean, Lig As Integer

    If Not Intersect(Target, Range("D2:D270")) Is Nothing And Not Flag Then
        Flag = True
        With Sheets("data")
            Lig = .Columns("J").Find(Target, .Range("J1"), xlValues).Row
            .Cells(Lig, "J").ClearContents
            .Range("dispo").SpecialCells(xlCellTypeBlanks).Delete
        End With
        Flag = False
    End If
End Sub

comment installer ?
copier cette macro
clic droit sur le nom de l'onglet de la feuille "data" (en bas de l'écran)
visualiser le code
coller