base de donnée

[ZEPE]

Bonjour,
je reviens vers vous pour un problème, je viens de créer une petite base de donnée avec du code (je débute).
Quand je génère ma macro mon formulaire apparait, mais lorsque je remplis les champs rien ne s'inscrit dans mon tableau clients, il ne se remplit. De plus, j'ai créé une liste déroulante qui n'apparait pas dans le formulaire. (Codes postaux).
Pouvez-vous m'aider.
Merci

 

[ZEPE]

Re : base de donnée

Bonjour,
merci cela fonctionne j'ai pu ajouter des formules, le seul problème c'est quand j'enregistre plusieurs clients et que je les effaces, quand je veux refaire un nouvel enregistrement il l'enregistre comme si il y avait toujours quelques choses il ne le met pas à la place vide
merci

 

[gilbert_RGI]

Re : base de donnée

Bonjour,

pour éviter ça supprimer la ligne entière

ou mettre ce bout de code dans un module standard

se placer sur le client à supprimer puis lancer la macro

Sub supprimeC()
Dim lig As Integer
lig = ActiveCell.Row
    Rows(lig & ":" & lig).Select
    Selection.ClearContents
    Selection.Delete Shift:=xlUp
End Sub

ou double cliquer dans la colonne A sur le n° de client à supprimer voir fichier ci-joint

 

[gilbert_RGI]

Re : base de donnée

dans le fichier précédemment envoyé

ouvrez le code de la sheet1 et modifiez ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
x
x
x
End Sub

par ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rep As String
    If Target.Column <> 1 Or Target.Row = 1 Or Target.Value = "" Then Exit Sub
    rep = MsgBox("Voulez vous supprimer ce Client ?", vbExclamation + vbYesNo, "Supprimer client")
    If rep = vbYes Then
        supprimeC
    Else
        Exit Sub
    End If
End Sub

désolé de ne pas avoir correctement fait du premier coup

 

[ZEPE]

Re : base de donnée

Bonjour ben pas de souci c'est très gentil de s'occuper de moi merci je vais tester

 

[ZEPE]

Re : base de donnée

j'ai changer le code impec, je ne comprends pas pourquoi dans ma fenêtre calcul total prod j'obtiens une somme erronée alors que le formatage de mes formules est bien en nombre
merci

 

[gilbert_RGI]

Re : base de donnée

c'est le format qui n'est pas bon il faut convertir les CELLULES en nombre

 

[gilbert_RGI]

Re : base de donnée

ou si vous voulez

en dessous de la ligne en rouge mettre les trois suivantes dans le code

Ws.Cells(derl, 16).FormulaR1C1 = "=R[0]C[-1]*R[0]C[-2]"

For i = 14 To 16
            Ws.Cells(derl, i) = Format(Ws.Cells(derl, i), "0")
        Next

 

[ZEPE]

Re : base de donnée

Bonjour,
Parfait fonctionne impeccable, je vais continuer à amélioré
grand merci

 

[gilbert_RGI]

Re : base de donnée

Bonjour,

De rien à votre service si problème autre

@ plus

 

[ZEPE]

Re : base de donnée

bonsoir je reviens vers vous pour un problème dans ma base de donnée quand j'essaye de mettre par ex 1,356% il ne m'affiche pas cela dans la colonne commission donc le calcul n'est pas bon pourtant mon forma de cellule est bien pourcent deux decimales.
Une autre question si je me trompe dans les dates je suppose que je peux les changer directement dans le tableau ?
merci de votre aide

 

[gilbert_RGI]

Re : base de donnée

Bonjour,

je ne savais pas que la colonne 15 était en %


alors j'ai refait quelques modifs de formatage de cellule et des modifications pour filtrer la saisie dans les textbox 12 et 13 afin de modifier le point en virgule et la saisie de nombre uniquement

vous n'avez pas à ajouter le signe % dans le formulaire le programme s'en occupe

après plusieurs tests ça devrait être bon

vous pouvez directement changer les dates dans le tableau

voilà un essai dites moi si ça vous convient

 

[ZEPE]

Re : base de donnée

bonjour merci je teste

 

[ZEPE]

Re : base de donnée

bon j'ai testé super encore merci