Problème de compilation formulaire excel 2010
dragongreg17
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
j'ai un problème de compilation voici ce que j'ai écrit :
Private Sub valider_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets("Renseignement Transports")
derligne = .Range("A65536").End(x1up).rox + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Renseignements Transports.Cells(derligne, r) = Ctrl
Next
End With
TextBox1 = ""
End
End Sub
Es-ce que quelqu'un peut m'aider à trouver le problème merci je débute dans le VBA d'excel.
Par avance merci à tous pour vos réponse!
j'ai un problème de compilation voici ce que j'ai écrit :
Private Sub valider_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets("Renseignement Transports")
derligne = .Range("A65536").End(x1up).rox + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Renseignements Transports.Cells(derligne, r) = Ctrl
Next
End With
TextBox1 = ""
End
End Sub
Es-ce que quelqu'un peut m'aider à trouver le problème merci je débute dans le VBA d'excel.
Par avance merci à tous pour vos réponse!
3 réponses
-
Bonjour,
Dans un bloc With End With sur un objet WorkSheets, inutile de remettre le nom de ta feuille pour l'utiliser. Encore moins mettre juste le nom sans Sheets ou WorkSheets...Private Sub valider_Click() Dim Ctrl As Control Dim r As Integer Dim t As Integer Dim derligne As Integer With Worksheets("Renseignement Transports") derligne = .Range("A65536").End(x1up).Row + 1 'ici faute de frappe : .rox ça n'existe pas! For Each Ctrl In UserForm1.Controls r = Val(Ctrl.Tag) If r > 0 Then .Cells(derligne, r) = Ctrl.Name '?? J'ai ajouté .Name car Ctrl dans une cellule??? End If Next End With TextBox1 = "" End
Ps : je n'ai pas testé...
Cordialement,
Franck P -
Bonjour,
comme tu as plusieurs controls et que tu veux les transférer à la suite dans Excel (actuellement cela va toujours dans m^me cellule
erreur de syntaxe Row au lieu de rox )
essaieWith Worksheets("Renseignement Transports") derligne = .Range("A65536").End(x1up).Row + 1 For Each Ctrl In UserForm1.Controls r = Val(Ctrl.Tag) If r > 0 Then .Cells(derligne, r) = Ctrl derligne = derligne + 1 End if Next End With
Edit 12:03
Salut Pijaku, excuses moi, je n'avais pas rafraichi
Michel -
problème d'erreur d'exécution 9 sur la ligne :
With Worksheets("Renseignement Transports")
Problème d'orthographe sur le nom de ta feuille? Feuille inexistante dans ce classeur? Problème de casse (Majuscule minuscule) dans le nom de la feuille?
