Userform : mise a jour automatique du formulaire aprés validation

[ancolie]

Bonjour,

Je suis en train de créer un userform (sous excel 2003 et sur un pc) mais je rencontre quelques difficultés.
Si quelqu'un pouvait m'accorder un peu de son aide ça serait vraiment sympathique 🙂

J'ai plusieurs questions. J'ai joint mon doc xls en pièce jointe pour plus de clareté.
1. J'aimerais bien que les champs de mon formulaire se mettent à jour lorsque je clique sur "valider" sans que j'ai besoin à chaque fois de fermer et réouvrir le formulaire. Par exemple, je souhaiterais que la numérotation s'incrémente automatiquement et que les autres champs redeviennent vide comme à l'ouverture du formulaire. En fait j'aimerais faire plusieurs saisies d'un coup sans être obligée de constamment fermer et ouvrir le formulaire.

2. Je souhaite mettre des boutons dans ma feuille de calcul au dessus de mon tableau le souci c'est que mon tableau commence à la ligne 6 et du coup la numérotation ne démarre pas à "1" la encore je ne sais pas comment faire!!


Merci d'avance pour les réponses que vous m'apporterais

Ancolie

 

[porcinet82]

Re : Userform : mise a jour automatique du formulaire aprés validation

Salut,

Modifie tout les codes présents dans le module de ton usf par ceux-ci :

Private Sub CommandButton1_Click()
Dim ligne As Integer, i As Integer
With Sheets("Feuil1")
    ligne = .Range("A65536").End(xlUp).Row
    If Len(.Cells(ligne, 1)) = 0 Then
        ligne = Range("Feuil1!A65500").End(xlUp).Row + 1
        .Cells(ligne, 1) = ligne - 1
    End If
    .Cells(ligne + 1, 1) = TextBox1
    .Cells(ligne + 1, 2) = TextBox2
    .Cells(ligne + 1, 3) = ComboBox1
    .Cells(ligne + 1, 4) = TextBox10
    For i = 1 To 4
        .Range("A" & ligne + 1 & ":D" & ligne + 1).Borders(i).LineStyle = xlContinuous
    Next i
    TextBox1 = .Cells(ligne + 1, 1) + 1
    ComboBox1 = ""
    TextBox10 = ""
End With
End Sub
 
Private Sub CommandButton2_Click()
Unload Me
End Sub
 
Private Sub UserForm_Initialize()
Dim Dline As Integer
Dline = Range("A65536").End(xlUp).Row
If Dline > 6 Then
    TextBox1.Value = Cells(Dline, 1).Value + 1
Else
    TextBox1.Value = 1
End If
TextBox2.Value = Date
ComboBox1.ColumnCount = 1
ComboBox1.List() = Array("", "Pommes", "Poires", "Bananes")
End Sub

@+

 

[Dull]

Re : Userform : mise a jour automatique du formulaire aprés validation

Salut ancolie, le Forum

Un essai en pièce jointe sans dénaturer (oupresque) tes propres code mais ça peut s'arranger si tu veut

Bonne Journée

EDITION: Damned!!! 😀 Porcinet à encore frapper... Salut Romain🙂

 

[ancolie]

Re : Userform : mise a jour automatique du formulaire aprés validation

merci beaucoup pour vos réponses aussi rapide!!! !!! 🙂🙂🙂