Répondre à la discussion

Message

<blockquote data-quote="sgangbadjo" data-source="post: 20466159" data-attributes="member: 342550">Bonsoir le Forum,J'ai cree un formulaire qui presente un inputbox des son activation. Cet inputbox permet de collecter le numero de la ligne de transaction que l'utilisateur veut modifier. Mais lorsqu'on clique sur &quot;Cancel&quot; comme par exemple pour abandonner, j'ai un bug. Je sollicite votre aide pour corriger le code de sorte a ce que : lorsque l'utilisateur clique sur le bouton cancel de l'inputBox, le formulaire se ferme simplement Merci pour votre aide [CODE=vb]Private Sub UserForm_Activate()Dim F1 As Worksheet, Derlign As LongSet F1 = Sheets(&quot;TRACKING&quot;)&nbsp; &nbsp; Derlign = F1.Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).Row + 1line1:ligne = InputBox(&quot;Quel est le numéro de la ligne de la réquisition&quot;, &quot;Numero d'ordre de transaction &quot;)If Application.WorksheetFunction.CountIf(F1.Range(&quot;A1:A&quot; &amp; Derlign), ligne) = 0 Then&nbsp; &nbsp; &nbsp; &nbsp; If MsgBox(&quot;Veuillez saisir le numero d'ordre d'une transaction existante dans la base de données&quot;, vbRetryCancel, &quot;Poursuite du Processus&quot;) = vbCancel Then&nbsp; &nbsp; Exit Sub&nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; GoTo line1:&nbsp; &nbsp; End IfElse&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.TextBox1.Value = F1.Cells(ligne + 1, 3).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.TextBox2.Value = F1.Cells(ligne + 1, 25).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.TextBox3.Value = F1.Cells(ligne + 1, 26).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.TextBox4.Value = F1.Cells(ligne + 1, 27).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.TextBox5.Value = F1.Cells(ligne + 1, 28).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.ComboBox1.Value = F1.Cells(ligne + 1, 29).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.TextBox7.Value = F1.Cells(ligne + 1, 30).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.TextBox8.Value = F1.Cells(ligne + 1, 31).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.TextBox9.Value = F1.Cells(ligne + 1, 32).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.TextBox10.Value = F1.Cells(ligne + 1, 33).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.TextBox11.Value = F1.Cells(ligne + 1, 34).ValueEnd IfEnd Sub[/CODE]</blockquote>

[QUOTE="sgangbadjo, post: 20466159, member: 342550"] Bonsoir le Forum, J'ai cree un formulaire qui presente un inputbox des son activation. Cet inputbox permet de collecter le numero de la ligne de transaction que l'utilisateur veut modifier. Mais lorsqu'on clique sur "Cancel" comme par exemple pour abandonner, j'ai un bug. Je sollicite votre aide pour corriger le code de sorte a ce que : lorsque l'utilisateur clique sur le bouton cancel de l'inputBox, le formulaire se ferme simplement Merci pour votre aide [CODE=vb]Private Sub UserForm_Activate() Dim F1 As Worksheet, Derlign As Long Set F1 = Sheets("TRACKING") Derlign = F1.Range("A" & Rows.Count).End(xlUp).Row + 1 line1: ligne = InputBox("Quel est le numéro de la ligne de la réquisition", "Numero d'ordre de transaction ") If Application.WorksheetFunction.CountIf(F1.Range("A1:A" & Derlign), ligne) = 0 Then If MsgBox("Veuillez saisir le numero d'ordre d'une transaction existante dans la base de données", vbRetryCancel, "Poursuite du Processus") = vbCancel Then Exit Sub Else GoTo line1: End If Else Me.TextBox1.Value = F1.Cells(ligne + 1, 3).Value Me.TextBox2.Value = F1.Cells(ligne + 1, 25).Value Me.TextBox3.Value = F1.Cells(ligne + 1, 26).Value Me.TextBox4.Value = F1.Cells(ligne + 1, 27).Value Me.TextBox5.Value = F1.Cells(ligne + 1, 28).Value Me.ComboBox1.Value = F1.Cells(ligne + 1, 29).Value Me.TextBox7.Value = F1.Cells(ligne + 1, 30).Value Me.TextBox8.Value = F1.Cells(ligne + 1, 31).Value Me.TextBox9.Value = F1.Cells(ligne + 1, 32).Value Me.TextBox10.Value = F1.Cells(ligne + 1, 33).Value Me.TextBox11.Value = F1.Cells(ligne + 1, 34).Value End If End Sub[/CODE] [/QUOTE]

Vérification