Microsoft 365 Source dynamique de ComboBox

sgangbadjo

XLDnaute Nouveau
Bonsoir le Forum,
J'ai créé un formulaire de tracking des réquisitions traitées par le service achat. Au titre des informations a remplir par l'utilisateur, il y le numéro de son budget. J'ai ainsi créé un bouton ajout pour permettre a l'utilisateur d'ajouter son budget dans la source de la liste déroulante s'il ne figure pas déjà.

A l'essaie, le code fonctionne et ajoute le budget suivant le format défini.
Mais dès que l'ajout est fait, le formulaire se plante et redémarre. Je pense que cela est lié a l'approche que j'ai utilisé. J'ai créé une "table" source pour le ComboBox du budget. etsuivant le code, le nouveau budget a ajouter a cette "table"

Je vous prie de bien vouloir m'assister.
Je peux aussi partager le fichier au besoin.


VB:
Private Sub CommandButton3_Click()

'declaration des variables
Dim F As Worksheet
Dim Derligne As Long
          
'identification de la feuille des donnees
Set F = Sheets("DONNEES")
    Derligne = Sheets("DONNEES").Range("A" & Rows.Count).End(xlUp).Row + 1 'derniere ligne du tableau
    poet = InputBox("Veuillez ajouter le Project - Task - Contract de votre budget", "Numero d'ordre de transaction ")
    If poet = "" Then End
    If poet = Format(poet, "######-###-#####") Then
        F.Cells(Derligne, 1) = poet
    Exit Sub
    
    Else
        MsgBox "Veuillez Respecter le Format ######-###-#####"
    Exit Sub   
    End If   
End Sub
 

Discussions similaires

Réponses
18
Affichages
1 K

Statistiques des forums

Discussions
297 996
Messages
1 964 975
Membres
200 792
dernier inscrit
Jdoul