Userform Problème

Bonjour,

je suis une débutante en VBA qui cherche à le maîtriser au plus vite.

Et dans le cadre de mes études, je dois créer un outil.

J'ai ainsi découvert les userform.

J'en ai créé un mais il ne fonctionne pas. Je ne trouve pas où j'ai pu faire une faute. Je l'ai réalisé à l'aide d'un tutorial.

Mais lorsque je rempli les champs de l'userform, rien ne se passe sur ma feuille excel.

Voici mon code:

Private Sub Ordre_Change()
[D20] = UserForm1.Ordre
End Sub

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub Label3_Click()

End Sub

Private Sub OptionButton1_Click()
If Controls("OptionButton1").Value = True Then
[E20] = Controls("OptionButton1").Caption
End If
End Sub

Private Sub OptionButton2_Click()
If Controls("OptionButton2").Value = True Then
[E20] = Controls("OptionButton2").Caption
End If
End Sub

Private Sub DateDenouement_Change()
[A20] = UserForm1.DateDenouement
End Sub

Private Sub DateVL_Change()
[B20] = UserForm1.DateVL
End Sub

Private Sub VL_Change()
[G20] = UserForm1.VL
End Sub

Private Sub NbParts_Change()
[F20] = UserForm1.NbParts
End Sub

Private Sub FOND_Change()
[F20] = UserForm1.FOND
End Sub

Private Sub Frais_Change()
[H20] = UserForm1.Frais
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub TextBox7_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Aussi, j'ai voulu ajouter une macro qui insère une ligne lié au bouton de lancement de l'userform.

J'ai donc ajouté avant le code précédent la macro suivante. Et pareil, lorsque je clique sur mon bouton, la ligne n'est pas créé.

Sub New_FOND()
'
' New_FOND Macro
'

'
    Range("A20").Select
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A20:L20").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Voilà c'est tout.

Je vous remercie par avance pour votre aide.

Bonsoir,

Tu peux nous mettre le fichier qui va avec (pas besoin de données sur les feuilles, c'est

juste pour qu'on voie cet UserForm de plus près.

A+

Bonsoir,

Voici le fichier.

J'ai dû supprimer certaines feuilles car le fichier était trop gros.

Mais chacune des feuilles avait la même composition que les feuilles qui sont visibles.

Merci par avance

Salut le forum

Il fonctionne le UserForm, il écrit ou tu le demande

[C20] = UserForm1.ComboBox1
[E20] = Controls("OptionButton1").Caption
[A20] = UserForm1.TextBox1

Regarde les cellules de la ligne 20 de la feuille active.

Mytå

Bonsoir,

mais lorsque je remplis les champs du Userform,

cela ne me remplit pas les cellules souhaitées , en l'occurence sur la ligne 20.

CDLT

Bonsoir,

merci, vous avez raison, j'ai simplement fais des erreurs d'allocation.

Alors, en fait, j'aimerais simplement savoir si vous pouvez m'aider pour la 2ème question.

A savoir, j'aimerais joindre la macro "Nouvelle ligne" au bouton de l'userform.

J'ai essayer d'ajouter le code de la macro avant le code lié à l'userform mais rien ne s'est passé.

CDLT