Bonjour,

En regardant des vidéo sur internet je suis tombé sur un tutoriel permettant de créer un formulaire de saisie comportant ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
 
Dim ctrl As Control
Dim Colonne As Integer
Dim Derligne As Integer
 
Derligne = Sheets("Liste").Range("A1").End(xlDown).Row + 1
 
For Each ctrl In UserForm1.Controls
 
Colonne = Val(ctrl.Tag)
 
 
If Colonne > 0 Then Sheets("Liste").Cells(Derligne, Colonne) = ctrl
 
Next
End
 
 
End Sub
mais j'ai une erreur d'execution '6':
Dépassement de capacité

quelqu'un peut'il m'expliquer?

Cordialement