Ajouter un underscore

Bonjour à tous!

J'ai un code qui permet d'aller chercher les éléments de plusieurs listbox et textbox afin de les intégrer dans un seule textbox.

Je souhaiterais que chaque élément soit séparé des autres éléments par un underscore. Ci-dessous mon code:

Private Sub ListBoxDomaine_Change()

UpdateTextBox

End Sub

Private Sub ListBoxCatégorie_Change()

UpdateTextBox

End Sub

Private Sub ListBoxSouscatégorie_Change()

UpdateTextBox

End Sub

Private Sub TextBoxNomwav_Change()

UpdateTextBox

End Sub

Sub UpdateTextBox()

TextBoxNomivr.Value = ListBoxDomaine.Value & ListBoxCatégorie.Value & ListBoxSouscatégorie & TextBoxNomwav

End Sub

Merci.

Bonne journée!

Bonjour

A voir

TextBoxNomivr.Value = ListBoxDomaine.Value & "_" & ListBoxCatégorie.Value & "_" & ListBoxSouscatégorie & "_" & TextBoxNomwav

Bonjour à toi et merci car c’était tout simple au final

Bonne journée! A bientot!

Bonjour,

Je fais suite à mon précédent message sur ce poste car je ne sais pas comment faire pour supprimer le dernier underscore (celui qui est entre les deux derniers éléments) si le dernier élément n'est pas sélectionner.

Sub UpdateTextBox()

TextBoxNomivr.Value = ListBoxDomaine.Value & "_" & ListBoxCatégorie.Value & "_" & ListBoxSouscatégorie & "_" & TextBoxNomwav & "_" & ComboBoxLDIR

End Sub

Quelqu'un à une idée? Merci beaucoup

Bonjour.

Si le denier élément est vide alors blabla sans le _ et le dernier élément, sinon ta formule.

Bonne journée.

Merci beaucoup Elhevan.

du coup mon code ressemble à ça:

Sub UpdateTextBox()

If Me.ComboBoxLDIR = "" Then

TextBoxNomivr.Value = ListBoxDomaine.Value & "_" & ListBoxCatégorie.Value & "_" & ListBoxSouscatégorie & "_" & TextBoxNomwav

Else

TextBoxNomivr.Value = ListBoxDomaine.Value & "_" & ListBoxCatégorie.Value & "_" & ListBoxSouscatégorie & "_" & TextBoxNomwav & "_" & ComboBoxLDIR

End If

End Sub

Bonne journée!