E escudo XLDnaute Nouveau 10 Février 2024 #1 bonjour mes amis j'aimerais connaître comment enlever * dans un combobox_change pour garder seulement les chiffres au lieu d'afficher par exemple 004567* je veux qu'il m'affiche 004567 MERCI POUR VOTRE AIDE
bonjour mes amis j'aimerais connaître comment enlever * dans un combobox_change pour garder seulement les chiffres au lieu d'afficher par exemple 004567* je veux qu'il m'affiche 004567 MERCI POUR VOTRE AIDE
sylvanu XLDnaute Barbatruc Supporter XLD 10 Février 2024 #2 Bonjour Escudo, On pourrait supprimer "*", seulement "*" peut signifier aussi "n'importe quel caractère". C'est mieux d'utiliser : VB: N = Mid(ComboBox1, 1, Len(ComboBox1) - 1) Vote positif 0 Vote négatif
Bonjour Escudo, On pourrait supprimer "*", seulement "*" peut signifier aussi "n'importe quel caractère". C'est mieux d'utiliser : VB: N = Mid(ComboBox1, 1, Len(ComboBox1) - 1)
job75 XLDnaute Barbatruc 10 Février 2024 #3 Bonsoir escudo, sylvanu, Pas bien clair mais bon : VB: ComboBox1 = Replace(ComboBox1, "*", "") A+ Vote positif 0 Vote négatif
E escudo XLDnaute Nouveau 10 Février 2024 #4 MERCI infiniment à vous deux pour votre aide. la solution de job75 fonctionne tres bien Vote positif 0 Vote négatif
job75 XLDnaute Barbatruc 10 Février 2024 #5 Mais s'il s'agit de conserver uniquement les chiffres : Code: Dim x$, y$, i%, z$ '--- x = ComboBox1 y = "" For i = 1 To Len(x) z = Mid(x, i, 1) If IsNumeric(z) Then y = y & z Next ComboBox1 = y Vote positif 0 Vote négatif
Mais s'il s'agit de conserver uniquement les chiffres : Code: Dim x$, y$, i%, z$ '--- x = ComboBox1 y = "" For i = 1 To Len(x) z = Mid(x, i, 1) If IsNumeric(z) Then y = y & z Next ComboBox1 = y