XL 2019 Résultat d'une liste déroulante en cascade sans underscore "_"

[murainesouspatate]

Bonjour à tous,
Je bute sur un petit problème que je n'arrive pas à résoudre. Dans une feuille "FACTURE", j'ai trois liste déroulantes en cascade qui m'affiche un résultat de plage nommée qui contient des underscore. Pour une raison d'esthétique, je souhaiterais remplacer les underscores par un espace. Voici un exemple :

j'ai essayé d'inclure dans la formule de la liste déroulante : SUBSTITUE("_";" ") mais n'y arrive pas car cela me met une erreur de formule.

Pourriez vous me donner un petit coup de pouce ?

 

[djidji59430]

Bonjour à tous,

formule liste en C5
=INDIRECT(JOINDRE.TEXTE("_";;FRACTIONNER.TEXTE($B5;" ")))

Crdlmt

 

[murainesouspatate]

Bonjour à tous,

formule liste en C5
=INDIRECT(JOINDRE.TEXTE("_";;FRACTIONNER.TEXTE($B5;" ")))

Crdlmt

Merci de votre réactivité, mais cela ne fonctionne pas , je pense qu'il faut modifier au niveau de la formule

Cordialement.

 

[djidji59430]

Tu as modifié dans ta liste ?

 

[fanch55]

Tu as modifié dans ta liste ?

Salut @djidji59430
Fractionner.Texte ne fonctionne que sur office 365 ou excel 2021,
notre solliciteur est sur 2019 ....

 

[djidji59430]

Fractionner.Texte ne fonctionne que sur office 365 ou excel 2021,

J'avais verifié pour joindre.texte() et naïvement, je pensais que son contraire l'était également !!

Crdlmt

 

[fanch55]

J'avais verifié pour joindre.texte() et naïvement, je pensais que son contraire l'était également !!

Crdlmt

Facile pour moi, je suis en 2019 et toutes les fonctions valides mais non présentes sont précédées de xlfn.. 😏

 

[djidji59430]

je suis revenu avec ta formule et elle fonctionne :
=INDIRECT(SUBSTITUE($B5;" ";"_"))
sauf que tu as inversé le "_" avec le " "
vu que tu démarres d'un texte sans _ pour les ajouter pour correspondre au nom de ta liste !

Crdlmt

 

[murainesouspatate]

Je vous remercie beaucoup, car je ne comprenais pas la subtilité d'insérer substitue dans la 3ème liste déroulante, j'essayais de la placer dans la deuxième liste déroulante et je me faisait jeter à chaque essais.

Bien cordialement.
Vous m'avez bien aidé , à très bientôt

 

[fanch55]

Pour répondre précisément à la demande initiale,

Pour une raison d'esthétique, je souhaiterais remplacer les underscores par un espace

On peut mettre dans le code de la feuille "Facture" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set Lr = Columns("B").Rows(Rows.Count).End(xlUp)
    Select Case True
        Case Target.Cells.Count > 1
        Case Not Intersect(Target, Range("B4:B" & Lr.Row)) Is Nothing
            With WorksheetFunction
                Target.Validation.Modify Formula1:= _
                .Substitute(.TextJoin(",", True, ActiveWorkbook.Names(Target.Offset(0, -1).Value).RefersToRange), "_", " ")
            End With
    End Select
End Sub

Nota; la validation colonne C a été ajustée .