Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    Générer un tableau sur une feuil à partir du nombre de textbox dans un USF
    Bonjour à tous et à toutes!

    J'ai un petit soucis avec mon programme de répartition automatique de tâche que j'essaye de développer:

    Pour le contexte:
    Sur ma feuille Excel ("Repart"), le bouton "commandbutton" affiche userform_generer dans lequel l'utilisateur doit saisir les paramètres du tableau dans des Textbox (le nom des agents et des différentes catégories de dossiers à répartir). L' utilisateur peut ajouter des contrôles textbox en cliquant sur le label "ajouter..." qui ouvre alors le userform_ajouter.



    Si l'utilisateur ajoute un ou plusieurs Textbox à partir de userform_ajouter, le "Label" sur userform_generer prendra la valeur du nombre entré par l'utilisateur, et les Textbox seront rajoutées automatiquement comme ci dessous:



    Le Second bouton ouvre un 3ème userform qui contient l'algorithme de répartition.

    Le petit souci:
    Dans la portion de code ci-dessous, je veux faire afficher le tableau de répartition en fonction du nombre total de Texbox des noms et catégories.

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Private Sub CommandButton_entrer_Click()
     
        Dim nb_textbox_name As Integer, nb_textbox_categorie As Integer
     
        'Calcul du nombre de textbox NOM et CATEGORIE
        If UserForm_generer.Label_nb_textbox_name.Caption <> "Label" Then
            nb_textbox_name = 5 + Label_nb_textbox_name.Caption
        Else
            nb_textbox_name = 5
        End If
     
        nb_textbox_categorie = 4
     
        For i = 0 To nb_textbox_name
            For j = 0 To nb_textbox_categorie
                With Cells(i, j).Borders
                .LineStyle = x1dashdotdot
                .Weight = 2
                End With
            Next
        Next
        Unload Me
    End Sub
     
    Private Sub Label1_Click()
        UserForm_ajouter.Show
    End Sub



    En cliquant sur générer, le message d'erreur "Erreur définie par l'action ou par l'objet" apparait. Quelqu'un pourrait m'aider à y voir plus clair SVP?

    PS: c'est la première fois que je poste quoi que ce soit sur un forum, j'espère que mon message contient suffisamment d'information. Si vous avez des suggestions, n' hésitez pas!

    Merci à vous!

  2. #2
    Expert éminent sénior
    Citation Envoyé par Orgvba Voir le message

    Bonjour,

    I et J ne peuvent démarrer à 0 dans :
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
       For i = 0 To nb_textbox_name
            For j = 0 To nb_textbox_categorie
                With Cells(i, j).Borders
                .LineStyle = x1dashdotdot
                .Weight = 2
                End With
            Next
        Next
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Futur Membre du Club
    Résolu
    Bonjour Eric,

    Merci bien pour ta réponse! Ca fonctionne parfaitement

    Bonne journée à toi!