Problème de Macro

Résolu/Fermé

seb2259 - 7 juin 2013 à 10:44
seb2259 - 7 juin 2013 à 12:22

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

A voir également:

Problème de Macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Tri automatique excel sans macro ✓ - Forum Excel

6 réponses

Réponse 1 / 6

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707
Modifié par f894009 le 7/06/2013 à 11:44

Bonjour,

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

Réponse 2 / 6

seb2259
Modifié par seb2259 le 7/06/2013 à 11:51

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

Réponse 3 / 6

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707
7 juin 2013 à 12:03

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+

Réponse 4 / 6

seb2259
7 juin 2013 à 12:10

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 ??

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707
7 juin 2013 à 12:11

Re,

Petit soucis, j'ai regarde le code de la userform2 alors que c'est la userform1 que vous lancez.

Si vous voulez utiliser les tags des controles, faut pas oublier d'ecrire quelque chose dedans les proporietes Tag

A+

Réponse 6 / 6

seb2259
7 juin 2013 à 12:22

suis-je blond !!

Merci beaucoup de votre aide

Discussions similaires

faire une boucle sans VBA

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

Discussions similaires

Newsletters