Problème de Macro
Résolu
seb2259
-
seb2259 -
seb2259 -
Bonjour,
Je suis en train de créer un userform afin d'insérer un nom, un prénom, une date d'entrée et une raison sur chaque ligne .
J'ai créer l'userform et quand je rentre cette macro pour le bouton VALIDER il me marque que "(1xUp) " n'est pas défini
Quelqu'un peut-il m'aider à comprendre ?
Voici ma macro
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets("Feuil1")
derligne = .Range("1048576").End(x1Up).Row + 1
For Each Ctrl In UserForm1.Controls
r = valeur(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(derligne, r) = Ctrl
Next
End With
TextBox1 = ""
End
End Sub
Merci d'avance à vous
Je suis en train de créer un userform afin d'insérer un nom, un prénom, une date d'entrée et une raison sur chaque ligne .
J'ai créer l'userform et quand je rentre cette macro pour le bouton VALIDER il me marque que "(1xUp) " n'est pas défini
Quelqu'un peut-il m'aider à comprendre ?
Voici ma macro
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets("Feuil1")
derligne = .Range("1048576").End(x1Up).Row + 1
For Each Ctrl In UserForm1.Controls
r = valeur(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(derligne, r) = Ctrl
Next
End With
TextBox1 = ""
End
End Sub
Merci d'avance à vous
A voir également:
- Problème de Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
6 réponses
Bonjour,
ceci devrait aller,
Bonne suite
ceci devrait aller,
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
With Worksheets("Feuil1")
derligne = .Range("A1048576").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then .Cells(derligne, r) = Ctrl
Next Ctrl
End With
TextBox1 = ""
End Sub
Bonne suite
Bonjour,
Merci mais mon problème à changer maintenant, le code à l'air de s'exécuter correctement par contre quand je rempli mes champs sur le questionnaire, rien ne se met sur l'onglet : Feuil1 comme demandé.
Ci joint le fichier : http://cjoint.com/?CFhlX4VtDzQ
Merci d'avance
Merci mais mon problème à changer maintenant, le code à l'air de s'exécuter correctement par contre quand je rempli mes champs sur le questionnaire, rien ne se met sur l'onglet : Feuil1 comme demandé.
Ci joint le fichier : http://cjoint.com/?CFhlX4VtDzQ
Merci d'avance
Bonjour,
Vous n'aviez pas qu'une erreur de code dans ce que vous aviez demander.
r = "valeur" = (Ctrl.Tag)--------------------->r = Val(Ctrl.Tag)
et
cette ligne vous permettez d'ecrire au moins quelque chose
If r > 0 Then .Cells(derligne, r) = Ctrl
mais maintenant vous n'avez aucune ligne de code qui ecrive sur votre feuille!!!!!!!!!
A+
Vous n'aviez pas qu'une erreur de code dans ce que vous aviez demander.
r = "valeur" = (Ctrl.Tag)--------------------->r = Val(Ctrl.Tag)
et
cette ligne vous permettez d'ecrire au moins quelque chose
If r > 0 Then .Cells(derligne, r) = Ctrl
mais maintenant vous n'avez aucune ligne de code qui ecrive sur votre feuille!!!!!!!!!
A+
Bonjour,
JE suis novice en VBA et là je ne comprend pas trop :(
ok pour la 1ère erreur
mais si je lui demande d'écrire sur ma dernière ligne dispo avec IF pourquoi maintenant plus rien n'est écrit ??
JE suis novice en VBA et là je ne comprend pas trop :(
ok pour la 1ère erreur
mais si je lui demande d'écrire sur ma dernière ligne dispo avec IF pourquoi maintenant plus rien n'est écrit ??
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question