Actualisation temps réel userform

[fan.54]

Bonjour à tous,
Voilà j’ai besoin d’un coup de pouce concernant l’enregistrement de donnée via un formulaire. Prenons pour exemple dans mon fichier le cas où un responsable d’affaire n’existe pas dans ma COMBOLIST, je souhaite pouvoir l’ajouter à la suite de la liste. Cela fonction très bien sauf que je n’arrive pas à actualiser ces informations en temps réel sans être obligé de ressortir. Si quelqu’un à une petite idée je suis preneur.
Merci par avance.

 

[Yaloo]

Re : Actualisation temps réel userform

Bonsoir Fan et bienvenu sur XLD, bonsoir le forum,

Remplace ton code Private Sub CmdValideRA_Click()

Par :

Private Sub CmdValideRA_Click()

        'On teste la saisie du nom ...
    If TextBoxRA.Text = "" Then
        MsgBox "Vous devez entrer un nom."
        TextBoxRA.SetFocus
        Exit Sub
    End If
        'On appel de la fauille RA
        
    With Worksheets("RA")
      derligne = Sheets("RA").[A65000].End(xlUp).Row + 1
      Feuil4.Cells(derligne, 1) = TextBoxRA.Value
    End With

    'Mise à jour de ta ListBoxRA
    With Feuil4
      derligne = Sheets("RA").[A65000].End(xlUp).Row
      tableau = Range("RA!A1:A" & derligne)
      ListBoxRA.List = tableau
    End With

    'Ajout de la nouvelle valeur du RA
    Formulaire.ComboRA.AddItem TextBoxRA.Value
    TextBoxRA = ""
    
    Application.ScreenUpdating = True
    Formulaire.Repaint
    Application.ScreenUpdating = False
End Sub

A te relire

Martial

 

[fan.54]

Re : Actualisation temps réel userform

Merci beaucoup Martial, cela fonction très bien.
Encore merci et à bientôt car mon code n'est pas fini mais j'ai bonne éspoir.