XL 2016 Mise à jour des données via USERFORM

Ricouch

Ricouch

XLDnaute Nouveau
Bonjour,

J'ai beau essayé et chercher sur le web pour avancer sur mon projet, sans succès.

Aujourd'hui, j'essaie de mettre à jour les données du tableau via mon formulaire, pouvez vous m'aider?

1646402981044.png
 

Pièces jointes

  • LE POINT DE VENTE V20220304.xlsb
    125.8 KB · Affichages: 24
Solution
cp4
Bonjour Dranreb;), Bof;), Ricouch:),

@Ricouch: Désolé, suite à ton MP je te réponds mais sans proposition car je n'ai pas compris ta demande.

Bonne soirée.

edit: pas trop compris, voici une proposition pour le bouton mise à jour
VB: 
Private Sub CommandButton3_Click()
'Mettre à jour et sauvegarder les données

'Validations ----------------------------------------------------
    If Me.Cbx_Typederecherche.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Type de Mandat", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Nom.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Nom", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Tel1.Value = "" Then
        MsgBox...
Trier par date Trier par votes
Dranreb

Dranreb

XLDnaute Barbatruc
Bonsoir.
Je propose souvent pratiquement toujours la même chose à part quelques différence seulement dans la Sub UserForm_Initialize où je confie à un objet ComboBoxLiée la gestion des ComboBox pour la saisie des éléments d'identification ou de recherche à listes dynamiques établies de façon complètement automatique, et à un ControlsAssociés tout le reste, y compris d'éventuelles ComboBox à listes fixes.
Cela vous intéresse-t-il ?

Je joins un des récents pour que vous puissiez voir à quoi ça ressemble.
 

Pièces jointes

  • CLsCAsHMS.xlsm
    193.4 KB · Affichages: 17
Dernière édition:
Vote positif 0 Vote négatif
B

bof

XLDnaute Occasionnel
Bonjour Dranreb,
Ricouch :
Il est peu probable que quelqu'un accepte de travailler sur votre modèle.

Personnellement je partirai sur au moins 2 formulaires différents :
Un pour la gestion des individus (Clients, Prospects, Personnels, contacts divers...) avec leurs coordonnées de contact
Et un autre pour les immeubles et les infos commerciales.
Pour les contacts un formulaire "ordinaire" semble suffisant vu qu'on recherche en général les gens par leur nom... Pour les immeubles un formulaire avec Listview peut s'envisager, mais je ne suis pas partisan des recherches multicritères qui présentent plus d'inconvénients que d'avantage...
Voici 2 de mes modèles qui peuvent se décliner de différentes manières.
Le premier est plutôt orienté "individus", le second plutôt "objets..."
Toutes les données sont imaginaires : Toute ressemblance avec des individus réels seraient purement fortuite...
 

Pièces jointes

  • GestBD Tableau Structuré CRUD V2.xlsm
    56.5 KB · Affichages: 13
  • GestBD Tableau Structuré CRUD ListView et Cal.xlsm
    73.2 KB · Affichages: 14
Vote positif 0 Vote négatif
Dranreb

Dranreb

XLDnaute Barbatruc
bof à dit:
l est peu probable que quelqu'un accepte de travailler sur votre modèle.
Cliquez pour agrandir...
Oui et ça m'étonne toujours vu que ça n'implique que d'adapter la Sub UserForm_Initialize, ce qui est fastidieux pour moi mais simple à faire. Je serais toujours disposé à m'occuper d'adapter les autres courtes procédures si c'était nécessaire.

Oui, il faudrait un UserForm par base à mettre à jour.
 
Vote positif 0 Vote négatif
Ricouch

Ricouch

XLDnaute Nouveau
Bonjour @Dranreb , @bof,

Merci pour vos retours, en réponse à vos suggestions :"Personnellement je partirai sur au moins 2 formulaires différents :
Un pour la gestion des individus (Clients, Prospects, Personnels, contacts divers...)"
Pour le formulaire en question, il est relatif uniquement aux biens, chaque bien et lié à un détenteur, pour les autres formulaires clients... je vais le créer plus tard.
Image (1) : Chaque cadre représente un formulaire (4 formulaires à la fin)

1646645180216.png


Image (2) : Pour chemin à tester

1646645869811.png


Je vais me baser sur les fichiers envoyés par @bof pour mettre en place la bonne macro.

Merci encore :)
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
Bonjour Dranreb;), Bof;), Ricouch:),

@Ricouch: Désolé, suite à ton MP je te réponds mais sans proposition car je n'ai pas compris ta demande.

Bonne soirée.

edit: pas trop compris, voici une proposition pour le bouton mise à jour
VB: 
Private Sub CommandButton3_Click()
'Mettre à jour et sauvegarder les données

'Validations ----------------------------------------------------
    If Me.Cbx_Typederecherche.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Type de Mandat", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Nom.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Nom", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Tel1.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Téléphone (1)", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Qualite.Value = "" Then
        MsgBox "S'il vous plaît sélectionner En qualité de", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Ville.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Ville", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Quartier.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Quartier", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Adresse.Value = "" Then
        MsgBox "S'il vous plaît sélectionner l'Adresse du bien", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Etage.Value = "" Then
        MsgBox "S'il vous plaît sélectionner l'Etage", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Porte.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le N°Porte ", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Typedubien.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Type du bien", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Usage.Value = "" Then
        MsgBox "S'il vous plaît sélectionner l'Usage", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Chambres.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Chambres", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Salon.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Salon", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Hall.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Hall", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Sejour.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Séjour", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Cuisine.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Cuisine", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Meuble.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Meublé", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Supérficie.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Supérficie (m²)", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_WC.Value = "" Then
        MsgBox "S'il vous plaît sélectionner WC", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_SDB.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Salle de bain", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_espaceexterieur.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Espace extérieur", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Ascenseur.Value = "" Then
        MsgBox "S'il vous plaît sélectionner l'Ascenseur", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Garage.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Place au garage", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Prix.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Prix", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Chargé.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le/la Chargé (e)", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Caution.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Caution", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Montant_commission.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Rémunération du mandataire", vbCritical
        Exit Sub
    End If

    '-----------------------------------------------------------------
    With Sheets("BIENS")
Dim Ligne As Long
Ligne = Me.ListBox1.ListIndex + 2
    .Cells(Ligne, 1).Value = Me.Identifiant_Client.Value
    .Cells(Ligne, 2).Value = Me.Cbx_Typederecherche.Value
    .Cells(Ligne, 3).Value = Me.Tbx_Nom.Value
    .Cells(Ligne, 4).Value = Me.Tbx_Prenom.Value
    .Cells(Ligne, 5).Value = Me.Tbx_CIN.Value
    .Cells(Ligne, 6).Value = Me.Tbx_Email.Value
    .Cells(Ligne, 7).Value = Me.Tbx_Tel1.Value
    .Cells(Ligne, 8).Value = Me.Tbx_Tel2.Value
    .Cells(Ligne, 9).Value = Me.Tbx_Adresse.Value
    .Cells(Ligne, 10).Value = Me.Tbx_Qualite.Value
    .Cells(Ligne, 11).Value = Me.Cbx_Typedubien.Value
    .Cells(Ligne, 12).Value = Me.Cbx_Meuble.Value
    .Cells(Ligne, 13).Value = Me.Cbx_Usage
    .Cells(Ligne, 14).Value = Me.Cbx_Supérficie.Value
    .Cells(Ligne, 15).Value = Me.Tbx_Chambres.Value
    .Cells(Ligne, 16).Value = Me.Txt_Salon.Value
    .Cells(Ligne, 17).Value = Me.Tbx_Hall.Value
    .Cells(Ligne, 18).Value = Me.Tbx_Sejour.Value
    .Cells(Ligne, 19).Value = Me.Tbx_Cuisine.Value
    .Cells(Ligne, 20).Value = Me.Tbx_espaceexterieur.Value
    .Cells(Ligne, 21).Value = Me.Tbx_SDB.Value
    .Cells(Ligne, 22).Value = Me.Tbx_WC.Value
    .Cells(Ligne, 23).Value = Me.Tbx_Ascenseur.Value
    .Cells(Ligne, 24).Value = Me.Tbx_Garage.Value
    .Cells(Ligne, 25).Value = Me.Txt_Duree.Value
    .Cells(Ligne, 26).Value = Me.Txt_Dispo.Value
    .Cells(Ligne, 27).Value = Me.Cbx_Ville.Value
    .Cells(Ligne, 28).Value = Me.Cbx_Quartier.Value
    .Cells(Ligne, 29).Value = Me.Txt_Adresse.Value
    .Cells(Ligne, 30).Value = Me.Txt_Etage.Value
    .Cells(Ligne, 31).Value = Me.Txt_Porte.Value
    .Cells(Ligne, 32).Value = Me.Txt_Prix.Value
    .Cells(Ligne, 33).Value = Me.Txt_Chargé.Value
    .Cells(Ligne, 34).Value = Me.Txt_Caution.Value
    .Cells(Ligne, 35).Value = Me.Txt_Avance.Value
    .Cells(Ligne, 36).Value = Me.Txt_Crtitere.Value
    .Cells(Ligne, 37).Value = Me.Txt_Taux_commision.Value
    .Cells(Ligne, 38).Value = Me.Txt_Montant_commission.Value
    .Cells(Ligne, 39).Value = Me.Tbx_Notes.Value
    .Cells(Ligne, 40).Value = Now()
    .Cells(Ligne, 41).Value = Now()
 End With
'--------------------------------------------------------------------------------
    Me.TextBox11.Value = ""
    Me.Cbx_Typederecherche.Value = ""
    Me.Tbx_Nom.Value = ""
    Me.Tbx_Prenom.Value = ""
    Me.Tbx_CIN.Value = ""
    Me.Tbx_Email.Value = ""
    Me.Tbx_Tel1.Value = ""
    Me.Tbx_Tel2.Value = ""
    Me.Tbx_Adresse.Value = ""
    Me.Tbx_Qualite.Value = ""
    Me.Cbx_Typedubien.Value = ""

    Me.Cbx_Supérficie.Value = ""
    Me.Tbx_Chambres.Value = ""
    Me.Txt_Salon.Value = ""
    Me.Tbx_Hall.Value = ""
    Me.Tbx_Sejour.Value = ""
    Me.Tbx_Cuisine.Value = ""
    Me.Tbx_espaceexterieur.Value = ""
    Me.Tbx_SDB.Value = ""
    Me.Tbx_WC.Value = ""
    Me.Tbx_Ascenseur.Value = ""
    Me.Tbx_Garage.Value = ""
    Me.Cbx_Ville.Value = ""

    Me.Cbx_Quartier.Value = ""
    Me.Txt_Adresse.Value = ""
    Me.Txt_Etage.Value = ""
    Me.Txt_Porte.Value = ""
    Me.Cbx_Usage.Value = ""
    Me.Txt_Salon.Value = ""
    Me.Cbx_Meuble.Value = ""
    Me.Cbx_Supérficie.Value = ""
    Me.Txt_Prix.Value = ""
    Me.Txt_Chargé.Value = ""
    Me.Txt_Caution.Value = ""
    Me.Txt_Avance.Value = ""
    Me.Txt_Crtitere.Value = ""
    Me.Txt_Duree.Value = ""
    Me.Txt_Dispo.Value = ""
    Me.Tbx_Notes.Value = ""
    Me.Txt_Taux_commision.Value = ""
    Me.Txt_Montant_commission.Value = ""
    Me.Identifiant_Client.Value = ""
    '--------------------------
    'Sauvegarder les données
    Refresh_data
    ThisWorkbook.Save
    MsgBox " Mis à jour avec succès"
End Sub
 
Dernière édition:
Vote positif 1 Vote négatif
Solution
Ricouch

Ricouch

XLDnaute Nouveau
cp4 à dit:
Bonjour Dranreb;), Bof;), Ricouch:),

@Ricouch: Désolé, suite à ton MP je te réponds mais sans proposition car je n'ai pas compris ta demande.

Bonne soirée.

edit: pas trop compris, voici une proposition pour le bouton mise à jour
VB: 
Private Sub CommandButton3_Click()
'Mettre à jour et sauvegarder les données

'Validations ----------------------------------------------------
    If Me.Cbx_Typederecherche.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Type de Mandat", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Nom.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Nom", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Tel1.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Téléphone (1)", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Qualite.Value = "" Then
        MsgBox "S'il vous plaît sélectionner En qualité de", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Ville.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Ville", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Quartier.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Quartier", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Adresse.Value = "" Then
        MsgBox "S'il vous plaît sélectionner l'Adresse du bien", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Etage.Value = "" Then
        MsgBox "S'il vous plaît sélectionner l'Etage", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Porte.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le N°Porte ", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Typedubien.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Type du bien", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Usage.Value = "" Then
        MsgBox "S'il vous plaît sélectionner l'Usage", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Chambres.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Chambres", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Salon.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Salon", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Hall.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Hall", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Sejour.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Séjour", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Cuisine.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Cuisine", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Meuble.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Meublé", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Cbx_Supérficie.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Supérficie (m²)", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_WC.Value = "" Then
        MsgBox "S'il vous plaît sélectionner WC", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_SDB.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Salle de bain", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_espaceexterieur.Value = "" Then
        MsgBox "S'il vous plaît sélectionner Espace extérieur", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Ascenseur.Value = "" Then
        MsgBox "S'il vous plaît sélectionner l'Ascenseur", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Tbx_Garage.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Place au garage", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Prix.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le Prix", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Chargé.Value = "" Then
        MsgBox "S'il vous plaît sélectionner le/la Chargé (e)", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Caution.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Caution", vbCritical
        Exit Sub
    End If
    '----------
    If Me.Txt_Montant_commission.Value = "" Then
        MsgBox "S'il vous plaît sélectionner la Rémunération du mandataire", vbCritical
        Exit Sub
    End If

    '-----------------------------------------------------------------
    With Sheets("BIENS")
Dim Ligne As Long
Ligne = Me.ListBox1.ListIndex + 2
    .Cells(Ligne, 1).Value = Me.Identifiant_Client.Value
    .Cells(Ligne, 2).Value = Me.Cbx_Typederecherche.Value
    .Cells(Ligne, 3).Value = Me.Tbx_Nom.Value
    .Cells(Ligne, 4).Value = Me.Tbx_Prenom.Value
    .Cells(Ligne, 5).Value = Me.Tbx_CIN.Value
    .Cells(Ligne, 6).Value = Me.Tbx_Email.Value
    .Cells(Ligne, 7).Value = Me.Tbx_Tel1.Value
    .Cells(Ligne, 8).Value = Me.Tbx_Tel2.Value
    .Cells(Ligne, 9).Value = Me.Tbx_Adresse.Value
    .Cells(Ligne, 10).Value = Me.Tbx_Qualite.Value
    .Cells(Ligne, 11).Value = Me.Cbx_Typedubien.Value
    .Cells(Ligne, 12).Value = Me.Cbx_Meuble.Value
    .Cells(Ligne, 13).Value = Me.Cbx_Usage
    .Cells(Ligne, 14).Value = Me.Cbx_Supérficie.Value
    .Cells(Ligne, 15).Value = Me.Tbx_Chambres.Value
    .Cells(Ligne, 16).Value = Me.Txt_Salon.Value
    .Cells(Ligne, 17).Value = Me.Tbx_Hall.Value
    .Cells(Ligne, 18).Value = Me.Tbx_Sejour.Value
    .Cells(Ligne, 19).Value = Me.Tbx_Cuisine.Value
    .Cells(Ligne, 20).Value = Me.Tbx_espaceexterieur.Value
    .Cells(Ligne, 21).Value = Me.Tbx_SDB.Value
    .Cells(Ligne, 22).Value = Me.Tbx_WC.Value
    .Cells(Ligne, 23).Value = Me.Tbx_Ascenseur.Value
    .Cells(Ligne, 24).Value = Me.Tbx_Garage.Value
    .Cells(Ligne, 25).Value = Me.Txt_Duree.Value
    .Cells(Ligne, 26).Value = Me.Txt_Dispo.Value
    .Cells(Ligne, 27).Value = Me.Cbx_Ville.Value
    .Cells(Ligne, 28).Value = Me.Cbx_Quartier.Value
    .Cells(Ligne, 29).Value = Me.Txt_Adresse.Value
    .Cells(Ligne, 30).Value = Me.Txt_Etage.Value
    .Cells(Ligne, 31).Value = Me.Txt_Porte.Value
    .Cells(Ligne, 32).Value = Me.Txt_Prix.Value
    .Cells(Ligne, 33).Value = Me.Txt_Chargé.Value
    .Cells(Ligne, 34).Value = Me.Txt_Caution.Value
    .Cells(Ligne, 35).Value = Me.Txt_Avance.Value
    .Cells(Ligne, 36).Value = Me.Txt_Crtitere.Value
    .Cells(Ligne, 37).Value = Me.Txt_Taux_commision.Value
    .Cells(Ligne, 38).Value = Me.Txt_Montant_commission.Value
    .Cells(Ligne, 39).Value = Me.Tbx_Notes.Value
    .Cells(Ligne, 40).Value = Now()
    .Cells(Ligne, 41).Value = Now()
 End With
'--------------------------------------------------------------------------------
    Me.TextBox11.Value = ""
    Me.Cbx_Typederecherche.Value = ""
    Me.Tbx_Nom.Value = ""
    Me.Tbx_Prenom.Value = ""
    Me.Tbx_CIN.Value = ""
    Me.Tbx_Email.Value = ""
    Me.Tbx_Tel1.Value = ""
    Me.Tbx_Tel2.Value = ""
    Me.Tbx_Adresse.Value = ""
    Me.Tbx_Qualite.Value = ""
    Me.Cbx_Typedubien.Value = ""

    Me.Cbx_Supérficie.Value = ""
    Me.Tbx_Chambres.Value = ""
    Me.Txt_Salon.Value = ""
    Me.Tbx_Hall.Value = ""
    Me.Tbx_Sejour.Value = ""
    Me.Tbx_Cuisine.Value = ""
    Me.Tbx_espaceexterieur.Value = ""
    Me.Tbx_SDB.Value = ""
    Me.Tbx_WC.Value = ""
    Me.Tbx_Ascenseur.Value = ""
    Me.Tbx_Garage.Value = ""
    Me.Cbx_Ville.Value = ""

    Me.Cbx_Quartier.Value = ""
    Me.Txt_Adresse.Value = ""
    Me.Txt_Etage.Value = ""
    Me.Txt_Porte.Value = ""
    Me.Cbx_Usage.Value = ""
    Me.Txt_Salon.Value = ""
    Me.Cbx_Meuble.Value = ""
    Me.Cbx_Supérficie.Value = ""
    Me.Txt_Prix.Value = ""
    Me.Txt_Chargé.Value = ""
    Me.Txt_Caution.Value = ""
    Me.Txt_Avance.Value = ""
    Me.Txt_Crtitere.Value = ""
    Me.Txt_Duree.Value = ""
    Me.Txt_Dispo.Value = ""
    Me.Tbx_Notes.Value = ""
    Me.Txt_Taux_commision.Value = ""
    Me.Txt_Montant_commission.Value = ""
    Me.Identifiant_Client.Value = ""
    '--------------------------
    'Sauvegarder les données
    Refresh_data
    ThisWorkbook.Save
    MsgBox " Mis à jour avec succès"
End Sub
Cliquez pour agrandir...
CP4, Your are a boss :)
Merci beaucoup ça marche.
 
Vote positif 0 Vote négatif

Discussions similaires

G
  • Résolu(e)
XL 2021 Mise à jour d'un graphique, avec les données qui s'empilent
Réponses
12
Affichages
197
gerardphi
G
L
  • Question
XL 2016 Plantage de Excel après mise à jour Windows
Réponses
13
Affichages
416
Lermiton
L
B
  • Question
XL 2013 trier les lignes pour transfert sur autre tableau
Réponses
2
Affichages
225
bruno972
B
C
  • Question
Microsoft 365 détecter la mise à jour d'une requête API
Réponses
4
Affichages
281
C.Laurent
C
S
  • Résolu(e)
Microsoft 365 Appliquer par vba une mise en forme conditionnelle d'après une liste de cellules mises en forme
Réponses
9
Affichages
614
Dranreb
Dranreb
E
  • Question
Power Query Index TP de l'INSEE - Ajuster une formule à chaque mise à jour d'un tableau généré avec PQ
2
Réponses
21
Affichages
800
laurent950
laurent950
M
  • Question
XL 2021 TCD / Interactions / sorties / gestion
Réponses
4
Affichages
191
MALTER
M
T
  • Question
XL 2019 Tableau croisé dynamique connecté à des feuilles créée par un userform
Réponses
2
Affichages
384
Cousinhub
Cousinhub
Poulet13
  • Question
XL 2021 Projet associatif - Challenge interne course à pied
Réponses
3
Affichages
391
Poulet13
Poulet13
N
  • Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
509
crocrocro
C

Membres actuellement en ligne

5 membres et 65 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 096
Messages
2 116 184
Membres
112 678
dernier inscrit
arno12345678