Erreur de compilation type défini par l'utilisateur non défini
Résolu
yao.chris
Messages postés
95
Statut
Membre
-
yao.chris Messages postés 95 Statut Membre -
yao.chris Messages postés 95 Statut Membre -
Bonjour à tous,
Dans la macro ci-dessous, j'ai le message d'erreur "erreur de compilation type défini par l'utilisateur non défini" qui apparaît.
Pouvez-vous m'aider SVP ?
Merci à vous.
Private Sub CommandButton1_Click()
Dim derligne As Interger
If MsBox("Confirmez-vous l'ajout d'un nouveau Client ?", vbYesNo, "Confirmation") = vbYes Then
derligne = Sheets("Clients").Range("A456541").End(xlUp).Row + 1
Cells(derligne, 1) = TextBox1.Value
Cells(derligne, 2) = TextBox1.Value
Cells(derligne, 3) = TextBox1.Value
Cells(derligne, 4) = TextBox1.Value
Cells(derligne, 5) = TextBox1.Value
Cells(derligne, 6) = TextBox1.Value
Cells(derligne, 7) = TextBox1.Value
Cells(derligne, 8) = TextBox1.Value
Cells(derligne, 9) = TextBox1.Value
Cells(derligne, 10) = TextBox1.Value
End If
End Sub
Dans la macro ci-dessous, j'ai le message d'erreur "erreur de compilation type défini par l'utilisateur non défini" qui apparaît.
Pouvez-vous m'aider SVP ?
Merci à vous.
Private Sub CommandButton1_Click()
Dim derligne As Interger
If MsBox("Confirmez-vous l'ajout d'un nouveau Client ?", vbYesNo, "Confirmation") = vbYes Then
derligne = Sheets("Clients").Range("A456541").End(xlUp).Row + 1
Cells(derligne, 1) = TextBox1.Value
Cells(derligne, 2) = TextBox1.Value
Cells(derligne, 3) = TextBox1.Value
Cells(derligne, 4) = TextBox1.Value
Cells(derligne, 5) = TextBox1.Value
Cells(derligne, 6) = TextBox1.Value
Cells(derligne, 7) = TextBox1.Value
Cells(derligne, 8) = TextBox1.Value
Cells(derligne, 9) = TextBox1.Value
Cells(derligne, 10) = TextBox1.Value
End If
End Sub
A voir également:
- Type défini par l'utilisateur non défini vba
- Clear type - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Utilisateur facebook - Forum Facebook
- Utilisateur Facebook ✓ - Forum Facebook Messenger
- Changer nom utilisateur windows 10 - Guide
3 réponses
Bonjour,
Normalement tu aurais dû la trouver tout seul !
En plus évite d'utiliser "integer" pour la ligne préfère "long" car si ta feuille grandi, tu vas chercher un dépassement de capacité.
Dim derligne As Interger
Normalement tu aurais dû la trouver tout seul !
En plus évite d'utiliser "integer" pour la ligne préfère "long" car si ta feuille grandi, tu vas chercher un dépassement de capacité.
Bonjour gbinforme,
Merci beaucoup pour ton retour, c'est vrais que moi et l'Anglais, on est pas copain, lol, et n'oublions pas que je débute !!!!
Ce problème résolu, un autre est apparu, Grrrrrrrr.
Il apparaît dans le "If MsBox"
"erreur de compilation, Sub ou Fonction non définie"
Je ne vois pas où est l'erreur dans ma ligne.
Pouvez-vous m'aider ?
Merci à vous.
Merci beaucoup pour ton retour, c'est vrais que moi et l'Anglais, on est pas copain, lol, et n'oublions pas que je débute !!!!
Ce problème résolu, un autre est apparu, Grrrrrrrr.
Il apparaît dans le "If MsBox"
"erreur de compilation, Sub ou Fonction non définie"
Je ne vois pas où est l'erreur dans ma ligne.
Pouvez-vous m'aider ?
Merci à vous.