Contenu récent par escudo

MERCI infiniment à vous deux pour votre aide. la solution de job75 fonctionne tres bien

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

MERCI BEAUCOUP SYLVANU vous m'avez été d'une aide précieuse ca marche nickel 😀

IL A 60 FEUILLE EN TOTAL chaque feuille contient une fiche technique dont la cellule G3 où je transfert les ventes pour chaque plat bien sur que l'ensemble des feuilles doivent être recalculer ainsi la feuille stock voici ce à quoi ressemble une feuille fiche technique toute les autre feuilles...

bonsoir, j'ai conçu une application pour création des fiches techniques des plats tout marche bien sauf que pour un userform dont le temps d'exécution d'une macro est très long parfois Excel ne répond pas l'userform contient une listbox qui affiche les noms des plats qui peut atteindre 60 PLATS...

oui effectivement, merci infiniment

je dois effacer val dans cette ligne est le problème est résolu. If a(i, 1) <> "" Then mondico(a(i, 1)) = Val(a(i, 1)) SOLUTION If a(i, 1) <> "" Then mondico(a(i, 1)) = a(i, 1) MERCI VOUS TOUS ET BONNE NUITS

je peux faire ce que vous me recommander mais comme ça tout les nombres affichés dans ce combobox commenceront par des ZEROS ce qui va affecter ma recherche ou bien mon filtre pour afficher des données dans une listbox en fonction de ce combobox . mois je veux que le combobox m'affiche les...

Private Sub UserForm_Initialize() Dim a2() Dim TEMP() Set f = Sheets("BD") Set rng = f.Range("A2:N" & f.[A65000].End(xlUp).Row) Set mondico = CreateObject("Scripting.Dictionary") BD = rng.Value ncol = rng.Columns.Count ListBox1.ColumnCount = ncol a =...

Private Sub UserForm_Initialize() Dim a2() Dim TEMP() Set f = Sheets("BD") Set rng = f.Range("A2:N" & f.[A65000].End(xlUp).Row) Set mondico = CreateObject("Scripting.Dictionary") BD = rng.Value ncol = rng.Columns.Count ListBox1.ColumnCount = ncol a =...

Ca marche, merci j'ai un autre userform qui contient un combobox alimenter à partir de cette colonne le problème c'est que ce combobox élimine les zéros devant les nombres

Bonjour, tout le monde, j'ai un userform qui contient un textbox avec des valeurs numériques parfois lorsque je veux mettre des zéros devant un nombre par exemple 00567 Lors du transfert des données de ce userform vers une feuille la cellule qui reçoit la valeur 00567 n'affiche pas la valeur...

ca marche nickel; merci de m'avoir aider.

J'aimerais mettre une date pour chaque changement du tarif comme l'image montre: