Problèmes UserForm

Bonjour à toutes et à tous,

Je suis tout nouveau sur ce forum, et débutant sur VBA.
Je cherche aujourd'hui de l'aide sur un formulaire UserForm pour lequel je rencontres plusieurs difficultés.
Ce formulaire sert à compléter un tableau Excel sur plusieurs onglets et est (censé être) construit de la manière suivante :

Un bouton pour lancer le formulaire (contrôle ActiveX), qui insert une ligne afin d'y effectuer la saisie.

- Une zone de liste modifiable (ComboBox) permettant de rentrer une information selon le choix sélectionné (dans une cellule particulière).
- Une zone de saisie afin de rentrer des informations (appliquée sur une cellule particulière).
- Deux OptionButton afin de rentrer des informations (appliquée sur une cellule particulière).
- Encore deux OptionButton afin de rentrer des informations (appliquée sur une cellule particulière).
- Une zone de liste modifiable (ComboBox) permettant de rentrer une information selon le choix sélectionné (dans une cellule particulière également).
- Une CheckBox afin de déverrouiller le bouton valider (permet de bien vérifier la saisie de ses informations).
- Un bouton "valider" (CommandButton) qui va tout simplement valider l'entrée et lui appliquer une mise en forme (bouton accessible sous condition d'avoir valider la CheckBox précédente).
- Un bouton "annuler" (CommandButton) qui va effacer les informations saisie en supprimant la ligne insérée et en remettant à zéro le formulaire.

Voilà à quoi il ressemble :

Pièce jointe 200865

Pour infos, les sources pour les liste déroulantes se situent dans un onglet spécifique.

Je rencontre plusieurs problèmes sur les point suivants :

- Lorsque je lance le UserForm via le bouton sur la feuille Excel (ActiveX), le checkbox "Données vérifiées" permettant d'accéder au bouton valider est bien décoché, mais le bouton validé est accessible. Comment régler ce problème ?
- Lorsque je sélectionne une option sur mes OptionButton, la première ligne insérée (lors de la première utilisation du userform lorsqu'on ouvre le fichier) ne les prends pas en compte, mais celle d'après oui. Je vous laisse regarder le code et éventuellement trouver mon erreur mais là je bloque.
- Comment entrer les informations des listes déroulantes dans les macros ?



Voilà mon code appliqué au bouton ActiveX :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click() 'Ouvrir le formulaire de saisie     Worksheets("Tableau").Rows(6).Select Selection.Insert With UserForm1 .Famille_Produit.Text = "" .Part_Number.Text = "" .SMT.Value = False .TMT.Value = False .RA.Value = False .V.Value = False .Plating.Text = ""   End With Range("C6") = False Range("D6") = False UserForm1.Show   End Sub

---

Le code me permettant d'avoir la checkbox décoché tout le temps :

Code:

---

1 2 3 4 5

Private Sub Workbook_Open()   UserForm1.CommandButton1.Enabled = False   End Sub

---

Voilà mon code UserForm :

Code:

---

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128

Private Sub CheckBox1_Click()   'Permet d'activer le bouton "Valider"   If Me.CheckBox1.Value = True Then Me.CommandButton1.Enabled = True Else Me.CommandButton1.Enabled = False End If End Sub     Private Sub CommandButton1_Click()   'Conditions appliquées sur le bouton "valider" (Mise en forme, fermeture userform etc.)   UserForm1.Hide   If Range("C6") = True Then Range("C6") = "SMT" Else Range("C6") = "TMT" End If   If Range("D6") = True Then Range("D6") = "Right Angle" Else Range("D6") = "Vertical" End If   Range("A6:N31").Select Range("N31").Activate Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Range("A4:N5").Select Range("N4").Activate Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlMedium End With   UserForm1.CommandButton1.Enabled = False CheckBox1.Value = False   End Sub   Private Sub CommandButton2_Click()   'Conditions appliquées sur le bouton "Annuler".   UserForm1.Hide Worksheets("Tableau").Rows(6).Select Selection.Delete   End Sub     Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)   'Bouton croix = bouton annuler   If CloseMode = 0 Then Cancel = False   UserForm1.CommandButton1.Enabled = False CheckBox1.Value = False Worksheets("Tableau").Rows(6).Select Selection.Delete     End Sub

---

J'espère trouver de l'aide, et que vous aurez le courage de lire ce (long) message. J'espère ne pas être trop exigent pour un premier message haha.

Merci par avance,
Cordialement.

JulienFBR

2 petites choses avant de directement te donner du code :

1) Ton code n'est vraiment pas clair à cause des CommandButton1, CheckBox1, UserForm1, .... Appelles tes controls par des noms explicites qu'on sache ce à quoi ils font référence exactement, parce que là, on ne sait pas ce qui correspond à quoi.

2) En ce qui concerne tes CheckBox et autres éléments à initialiser à l'ouverture du UserForm, il te manque le plus important :

Code:

---

1 2 3 4

Public Sub UserForm_Initialize() '''''''''''''''''''''''''C'est ici que tu dois initialiser tout ton UserForm, remplir ou non, cocher ou non, tous tes paramètres par défaut doivent être rédigés ici End Sub

---

J'espère que tu as compris la base ;)

Merci Jeanmidudu,

J'essaye de remettre le tout au propre et je reviendrais avec la version "correcte".

Cordialement.

J'ai finalement réussi à me débrouiller tant bien que mal, merci !

Cordialement,

JFa