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.
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