Microsoft 365 Source dynamique de ComboBox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
182
Réponses
3
Affichages
504
Réponses
21
Affichages
2 K
Réponses
40
Affichages
3 K
Réponses
5
Affichages
807
Compte Supprimé 979
C
Retour