Un code qui fonctionne pas

[fradouan]

Bonsoir tout le monde svp si quelqu'un peu jetter un coup d'oeil sur cette exemple pour me dire pourquoi ce code ne marche pas

Private Sub CommandButton4_Click() 'CHANGER
Dim I As Integer
I = Me.FRNSEXIST.ListIndex + 2
With Worksheets("FRNS")
For C = 1 To 11
.Cells(I, C) = Me.Controls("TextBox" & C).Value
Me.Controls("TextBox" & C) = ""
Next

End With

End Sub

 

[fradouan]

Re : Un code qui fonctionne pas

re
toute aide est la bienvenue merci

 

[PascalXLD]

Re : Un code qui fonctionne pas

Bonjour

ton code ne fonctionne pas car tu enclenches un autre evenement de ton UF Private Sub FRNSEXIST_Change()
Donc ajoutes un booléen
Tu le déclares tout en haut du code de ton uf avant le Private Sub CommandButton1_Click()

cela donne

Dim MonTest As Boolean

Private Sub CommandButton1_Click()

Puis ensuite modifies ton code ainsi

Private Sub CommandButton4_Click() 'CHANGER
Dim I As Integer
MonTest = True
   I = Me.FRNSEXIST.ListIndex + 2
With Worksheets("FRNS")

For C = 1 To 11
   .Cells(I, C) = Me.Controls("TextBox" & C).Value
  Me.Controls("TextBox" & C) = ""
Next

End With
MonTest = False
End Sub

Private Sub FRNSEXIST_Change()
If MonTest = False Then
I = FRNSEXIST.ListIndex
 For C = 1 To 11
   Me.Controls("TextBox" & C) = Worksheets("FRNS").Cells(I + 2, C).Value

   'Me.FRNSEXIST.List(Me.FRNSEXIST.ListIndex, C)
   Next
End If
End Sub

 

[fradouan]

Re : Un code qui fonctionne pas

Merci apres plusieurs tests enfin ca marche