Cooment rafraichir une liste?

[ascom007]

Comment rafraichir une liste?

Bonjour, après plusieurs recherche je ne trouve pas de solution, voila mon problème:

J'ai un formulaire "Dépense" sur celui ci j'ai plusieurs champs dont un COMBOBOX ou figure mes clients, mais dans le cas ou j'aurai un nouveau client j'ai prévu un bouton nouveau qui m'ouvre un Formulaire "Client".

Mais une fois renseigné mon Formulaire "Client" celui-ci se ferme et je reviens sur le formulaire "Dépense" mais la est le problème mon nouveau client ne figure pas dans le COMBOBOX.

Comment puis je rafraichir la liste ?

PS: évidement si je ferme et réouvre le formulaire "dépense" mon nouveau client apparaît dans la liste

 

[BERRACHED said]

Re : Cooment rafraichir une liste?

Salut,ascom007 et bienvenue sur Xld

il nous faut un fichier exemple pour pouvoir vous donner un coup de main

Cordialement

 

[ascom007]

Re : Cooment rafraichir une liste?

Voila le fichier exemple

 

[Lii]

Re : Cooment rafraichir une liste?

Bonsoir,

une ligne (en gras) à rajouter:

Private Sub Bouton_Nouveau_Client_Click()

    With Formulaire_Client
        .Text_Titre = ""
        .Text_Nom_Client = ""
        .Text_Adresse_Client = ""
        .Text_Adresse_Client1 = ""
        .Text_Code_Postal = ""
        .Text_Ville = ""
        End With

    'Ouvrir formulair Client
    Formulaire_Client.Show
  [B]  UserForm_Initialize[/B]

End Sub

 

[BERRACHED said]

Re : Cooment rafraichir une liste?

Ré,

tu ajoute dans le code du formulaire les lignes en gras :

Private Sub Bouton_Enregistrer_Click()
        
        Dim Ligne_Suivante  As Long
    
    '   Vérifie si le titre a été entrée
        If Text_Titre = "" Then
            MsgBox "Vous devez choisir un titre."
            Exit Sub
        End If
        
    '   Vérifie si nom client a été entrée
        If Text_Nom_Client = "" Then
                MsgBox "Vous devez saisir un nom de client."
                Exit Sub
        End If

        
    '   Vérifie si l'adresse a été entrée
        If Text_Adresse_Client = "" Then
                MsgBox "Vous devez saisir une adresse."
                Exit Sub
        End If

    '   Vérifie si le code postal a été entrée
        If Text_Code_Postal = "" Then
        End If
        
    '   Vérifie si la ville a été entrée
        If Text_Ville = "" Then
                MsgBox "Vous devez saisir une ville."
                Exit Sub
        End If
        
          
    '   Vérifie que la feuille Clients est active
        Sheets("Clients").Activate
    '   Détermine la nouvelle ligne vide
        Ligne_Suivante = Range("A65000").End(xlUp).Row + 1
    '   On transfert les donner dans la feuille selectionner
        Cells(Ligne_Suivante, 1) = Text_Titre  '   Transfert le nom
        Cells(Ligne_Suivante, 2) = Text_Nom_Client
        Cells(Ligne_Suivante, 3) = Text_Adresse_Client
        Cells(Ligne_Suivante, 4) = Text_Adresse_Client1
        Cells(Ligne_Suivante, 5) = Text_Code_Postal
        Cells(Ligne_Suivante, 6) = Text_Ville
      
        
        'Permet de remetre a zero tout les champs du fotmulaire
        Dim CTRL As Control
        For Each CTRL In Me.Controls
        If TypeOf CTRL Is MSForms.TextBox Then
        CTRL = ""
        ElseIf TypeOf CTRL Is MSForms.ComboBox Then
        CTRL.ListIndex = -1
        End If
        Next
        ' On ferme le formulaire
        Unload Me
     [B]Unload Formulaire_recette[/B]
    [B] Sheets("Recette").Select[/B]
    [B] Formulaire_recette.Show[/B]
End Sub

Cordialement

 

[ascom007]

Re : Cooment rafraichir une liste?

Merci, la réponse était toute simple et je me prenais bien la tête

Merci

 

[ascom007]

Re : Cooment rafraichir une liste?

J'ai bien suivie vos conseil et sa marche très bien, mais je voudrais pousser le perfectionniste jusqu'au bout.

Donc je voudrais que ma liste se met a jour ,chose quelle fait avec vos solution mais en même temps je voudrais éviter de perdre les donnée que j'ai renseigner auparavant.

Est ce possible?

 

[Lii]

Re : Cooment rafraichir une liste?

Bonsoir,

si j'ai compris : pour conserver les données d'un USF, il faut passer par "UserForm1.Hide".
"Unload Me" vide l'USF !