Bouton modifier,rechercher,ajouter pour formulaire

Messages postés
84
Date d'inscription
mercredi 2 janvier 2019
Statut
Membre
Dernière intervention
23 août 2019
- - Dernière réponse : belba.yahya
Messages postés
84
Date d'inscription
mercredi 2 janvier 2019
Statut
Membre
Dernière intervention
23 août 2019
- 12 juil. 2019 à 20:15
bonjour

peut quelqu'un m'aider de trouver une solution d'un formulaire que j'ai,ce formulaire à pour but le code de client qui est important, pour un bouton de recherche je tape le nom du client et qu'il m'affiche son code,et si je modifie le contenu du client il me modifie dans la ligne enregistré de la base des données,et si j'ajoute il me le rajoute de nouveau à la ligne suivant.
çi dessous le lien de mon fichier:
https://www.cjoint.com/c/IGcuLdpghCX


merci infiniment
Afficher la suite 

2 réponses

Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45
0
Merci
Bonjour,

Je devrais mettre quelques jours avant de te renvoyer le classeur modifié. Avec un peu de chance, tu auras d'autres réponses.

Cordialement.

Daniel
Commenter la réponse de danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45
0
Merci
Tu es sûr que c'est bien ce que tu veux ? Comme tu peux avoir plusieurs clients avec le même nom, on se base plutôt sur le code client qui est, lui, unique. J'attends ta réponse pour continuer.

Daniel
belba.yahya
Messages postés
84
Date d'inscription
mercredi 2 janvier 2019
Statut
Membre
Dernière intervention
23 août 2019
-
Bonsoir Monsieur Daniel,j’espère que vous allez en bonne forme,concernant mon premier de l'inverse de date via userform, problème je l'ai bien résolu, j'ai une autre proposition, je ne sais pas si cela fonctionne je veux transformer une facture qui des formules,je veux ces formule qu'ils soient en VBA, avez vous une idée sur ce sujet?
mon fichier çi joint.
https://www.cjoint.com/c/IGmalmkuUfD
merci infiniment
danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45 > belba.yahya
Messages postés
84
Date d'inscription
mercredi 2 janvier 2019
Statut
Membre
Dernière intervention
23 août 2019
-
Bonjour,

Pouvez-vous me dire à quel endroit, dans le code, il faut remplir les champs de la facture ?

Daniel
danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45 > belba.yahya
Messages postés
84
Date d'inscription
mercredi 2 janvier 2019
Statut
Membre
Dernière intervention
23 août 2019
-
Ne tenez pas compte de mon précédent message, je crois avoir compris.

Daniel
danielc0
Messages postés
658
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 septembre 2019
45 > belba.yahya
Messages postés
84
Date d'inscription
mercredi 2 janvier 2019
Statut
Membre
Dernière intervention
23 août 2019
-
J'ai ajouté ce code dans le module de la feuille Facture :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Ligne As Long, C As Range, Ctr As Long
  If Target.Address = "$C$7" And Target.Count = 1 Then
    With Sheets("Clients")
      If IsNumeric(Application.Match(Target.Value, [Clients!A:A], 0)) Then
        Ligne = Application.Match(Target.Value, [Clients!A:A], 0)
        Application.EnableEvents = False
        [D8:D10,B12,D13,B15:E17,D18:E18,E32,E36].Value = ""
        [D8] = .Cells(Ligne, 2)
        [D9] = .Cells(Ligne, 4)
        [D10] = .Cells(Ligne, 5)
        [B12] = "Durée de " & [Home!Q5] & " Jour(s)"
        [D13] = [Home!Q2] & Format(Date, "dd mm yyyy")
        [E11] = .Cells(Ligne, "O")
        [E12] = .Cells(Ligne, "P")
        [B15] = .Cells(Ligne, 11)
        If [B15] <> "" Then
          [C15] = .Cells(Ligne, 14)
          [D15] = .Cells(Ligne, 8)
        End If
        If [C15] <> "" And [D15] <> "" Then
          [E15] = [C15] * [D15]
        End If
        [B16] = .Cells(Ligne, 10)
        If [B16] <> "" Then
          [C16] = .Cells(Ligne, 13)
          [D16] = .Cells(Ligne, 7)
        End If
        If [C16] <> "" And [D16] <> "" Then
          [E16] = [C16] * [D16]
        End If
        [B17] = .Cells(Ligne, 9)
        If [B17] <> "" Then
          [C17] = .Cells(Ligne, 12)
          [D17] = .Cells(Ligne, 6)
        End If
        If [C17] <> "" And [D17] <> "" Then
          [E17] = [C17] * [D17]
        End If
        If [E11] > 0 Then [D18] = 9
        [C18] = [C17] * [Home!Q7] + [C16] * [Home!Q8] + [C15] * [Home!Q9]
        [E18] = IIf([Home!Q5] <> 0, [C18] * [C18] * [Home!Q5], [C18] * [C18])
        [E32] = Application.Sum([E15:E31])
        [E33] = [E32] - [E18] / 1.1
        [E34] = [E33] / 10
        With Sheets("Suivis-Facture")
          Ctr = 0
          For Each C In .Range("A4", .Cells(.Rows.Count, 1).End(xlUp))
            If C.Value = [C7] Then Ctr = Ctr + C.Offset(, 10).Value
          Next C
        End With
        If Ctr > 0 Then [E35] = Ctr
        [E36] = Application.Sum([E32,E35])
        Application.EnableEvents = True
      End If
    End With
  End If
End Sub


Voici le lien sur le classeur modifié :
https://mon-partage.fr/f/nGsWAfJF/

Bons tests.

Daniel
belba.yahya
Messages postés
84
Date d'inscription
mercredi 2 janvier 2019
Statut
Membre
Dernière intervention
23 août 2019
-
merci merci beaucoup Monsieur Daniel,c'est travail professionnelle et supérieur.
Cordialement
YAHYA
Commenter la réponse de danielc0