XL 2013 Gestion clic bouton UserForm

M.Ben à dit:

Bon, j'ai essayé tous ce que j'ai pu pour arriver à mes fins, mais sans succès.

J'ai l'impression que je sort directement de ma fonction car mon programme m'affiche mon message Box avant d'avoir cliqué sur mon bouton pour atteindre la valeur cible.

Alors que je souhaite qu'il reste dans ce programme tant qu'il n'a pas atteint la valeur cible.

Lorsque la valeur Act_Suivant = Actuator_Number_Add, alors et seulement à ce moment la il sort de ma function et peut afficher mon message.

Cliquez pour agrandir...

Gégé-45550 à dit:

DSL mais je ne comprends pas ce que vous cherchez à faire.
Dans ces conditions, il m'est difficile de vous aider davantage.
Cordialement,

Cliquez pour agrandir...

M.Ben à dit:

Bonjour,

Je fais une dernière tentative pour expliciter ce que je cherche à faire (en espérant que se soit le plus claire possible).

Pour la partie Actionneur:

1) L'utilisateur choisie s'il veut ajouter ou supprimer des actionneurs à la liste LAC,
2) Il renseigne dans le Champs "Nbr Actionneur" le nombre qu'il veut ajouter ou supprimer (pour le moment pour ce Topic, je désire gérer la partie ajouter),
3)L'utilisateur sélection soit l'Option créer ligne 1 à 1, soit créer les lignes en 1 fois (L'option lignes en 1 fois est déjà gérée dans mon programme).
4)L'option Créer ligne 1 à 1 est coché, alors la frame avec les champs et les boutons "Actionneur suivant" et "Créer ligne restantes" apparaissent.
5) Un Msgbox avec la question suivante apparait "Commencez-vous une nouvelle LAC ?", si l'utilisateur répond OUI, cela signifie que les champs qu'il va renseigner, débuteront à la première ligne du tableau de la rubrique actionneur. Si la réponse est NON, elles se rajouteront à la suite.

Le plus compliqué dans mon explication commence maintenant je pense:

Dans mon module "GestionLAC", dans mon MAIN j'appelle un sous programme en fonction de la réponse à la question "Commencez-vous une nouvelle LAC ?".
Je cherche que lorsque je rentre dans ce sous programme j'y reste, jusqu'à ce que j'ai fini d'ajouter mes actionneurs 1 à 1 (grâce au bouton "Actionneur suivant").
Le clic sur le bouton suivant, me permet de revenir au début de ce sous-programme pour refaire les opération de copier_coller ou insertion ligne + copier_coller.

Lorsque j'ai atteint la valeur renseignée dans le champ "Nbr actionneur", je sors de ce sous-programme et je reviens dans mon main.

Actuellement de mon main je vais vers mon sous-programme et j'en sort directement.

Mon userform reste ouvert et je peux incrémenter ma variable qui est sensée me faire revenir en début de mon sous-programme.

J'espère que mon explication cette fois si est plus compréhensible sur ce que je cherche à faire.

Cordialement,

Cliquez pour agrandir...

Function Actionneur_en_1a1_Premiere_LAC()
Dim i&, derlig&, retour&
    With Sheets("LAC")
        .Unprotect
        Debug.Print "Act_Suivant = " & Act_Suivant
        Debug.Print "Actuator_Number_Add = " & Actuator_Number_Add
'        derlig = .Cells(Rows.Count, 15).End(xlUp).Row       'calcule le numéro de la dernière ligne non vide de la 15e colonne (colonne O)
'        For i = 1 To derlig
'            .Range("O" & i) = ""                                         'Efface les résultats précédents
        Select Case Act_Suivant
            Case Is <= Actuator_Number_Add
                '[B][COLOR=rgb(226, 80, 65)]Code pour les différentes actions a exécuter[/COLOR][/B]
                .Range("O1") = Act_Suivant
              
            Case Is > Actuator_Number_Add
               [B][COLOR=rgb(226, 80, 65)] 'code de sortie[/COLOR][/B]
         End Select

     End With

End Function

M.Ben à dit:

Autant pour moi, le blocage doit venir de moi alors.

Je vais suivre votre conseil et continuer à développer mon sous-programme "Function Actionneur_en_1a1_Premiere_LAC".
Une fois que j'aurai fait cela, en fonction du résultat je reviendrais cloturer le sujet.

Merci Gégé,

Cliquez pour agrandir...