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!
A voir également:
- Problème de compilation formulaire excel 2010
- Whatsapp formulaire opposition - Guide
- Formulaire de réclamation facebook compte désactivé - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
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...
Ps : je n'ai pas testé...
Cordialement,
Franck P
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 )
essaie
Edit 12:03
Salut Pijaku, excuses moi, je n'avais pas rafraichi
Michel
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 )
essaie
With 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
With Worksheets("Renseignement Transports")
????
merci
regarde ton classeur