bonjour, le forum
j'ai un nouveau problème avec un code que j'essaie de faire fonctionner, mais erreur "non gérée par cet objet" si quelqu'un peut m'aider SVP! Merci
voici le code qui calle sur la ligne juste apres "for i"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Image2_Click()
 Dim pg, i, T
   With Sheets("BD_Client")
     pg = .Range("A" & Rows.Count).End(xlUp).Row + 1
     .Rows(pg).Insert
       For i = 1 To 15
     .Cells(pg, i + 1).Value = .Controls("T" & i).Value
       Next i
   End With
End Sub