aide sur mon projet

anouar1990

XLDnaute Nouveau
bonjour j aimerais bien rendre mon projet meiux que celui la si quelqu un peut m aider a le modifie de le rendre meilleur
bon dans la feuille acceuil je voudrais bien que le champ shop sois avec saisis automatique plus il ronvois les information du cahmp superviseur en plus je voudrais bien reorganiser mon fichier plus lui faire une interface celui qui m aide je le serais tres reconnaison merci
MON PROJET EST DE FAIRE UN FORMULAIRE QUI SERA UTILISER PAR DES SUPERVISEUR DANS LA ACCEUIL QUI VONT ENTRER DES DONNEES QUI SONT LA DATE DE LA COMMANDE ET LA WILAYA ET QUAND ILS SE RENDE SUR LE CHAMP SUPERVISEUR IL REVOIS L INFORMATION PAR WILAYA JE L AI FAIT AVEC INDIRECT PUIS LA MEME CHOSE POUR SHOP PUIS QUAND IL APPUIS SUR LE BOUTTOM ENREGISTRER QUE J AI FAIT AVEC UN MACRO LES INFORMATION SERONT ENREGISTRER DANS DETAIL ENTREE MERCI D AVANCE

MOT DE PASSE OPPO
 

Pièces jointes

  • DELIVERY APP 1.0.xlsm
    103.5 KB · Affichages: 42

vgendron

XLDnaute Barbatruc
Hello
voici une proposition pour la macro "Enregistrer"
VB:
Sub enregistrer_commande()

Application.ScreenUpdating = False 'on empèche les rafraichissements inutiles pendant la macro

With Sheets("DETAIL ENTREE")
    'on commence par insérer une ligne en haut de tableau
    .Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    .Range("A3").FormulaR1C1 = "=R[1]C+1" 'et on met la formule en A3
   
    Range("E4").Copy Destination:=.Range("B3") ' on copie les infos
    Range("E5").Copy Destination:=.Range("C3")
    Range("E6").Copy Destination:=.Range("D3")
    Range("E7").Copy Destination:=.Range("G3")

    .Range("E3").FormulaR1C1 = "=VLOOKUP(RC[2],REGION!C[-2]:C,3,0)" 'on met les formules
    .Range("F3").FormulaR1C1 = "=VLOOKUP(RC[1],REGION!C[-3]:C,2,0)"
   
    Range("D12").Copy Destination:=.Range("H3") 'on copie les infos
    Range("D10:D11").Copy
    .Range("I3").PasteSpecial , Transpose:=True
    Range("D9").Copy Destination:=.Range("K3")
   
    Range("F12").Copy Destination:=.Range("L3")
    Range("F10:F11").Copy
    .Range("M3").PasteSpecial , Transpose:=True
    Range("F9").Copy Destination:=.Range("O3")
   
    'on met les formules
    .Range("P3").FormulaR1C1 = "=SUM(RC[-8]+RC[-7]+RC[-6]+RC[-5]+RC[-4]+RC[-3]+RC[-2]+RC[-1])"
    .Range("Q3").FormulaR1C1 = "=SUM(RC[-9]:RC[-6])/RC[-1]"

    .Cells.EntireColumn.AutoFit
    Application.CutCopyMode = False
   
End With
   
Application.ScreenUpdating = True
End Sub

Pour le reste.. ?? le besoin n'est pas très clair. il faudrait préciser ce que tu souhaites et comment fonctionne le fichier..
 

vgendron

XLDnaute Barbatruc
Hello
Voici une seconde version avec un début de proposition..
un datepicker qui permet de sélectionner un jour directement dans le calendrier qui s'ouvre quand on clique sur la flèche

ensuite, la liste des "wilaya"
puis le combo Superviseur qui se met à jour en fonction du wilaya sélectionné
de meme avec le combo "shop"

!!! j'ai réorganisé ta feuille REGION et supprimé toutes les zones nommées

pour la suite, l'idée est
ajouter un bouton "Enregistrer" qui va enregistrer les datas des textbox Facture et BL dans la feuille Details Entrée.
mais avant de poursuivre.. est ce que l'idée te va déjà?


Hello Yuperquod.
merci pour l'astuce. je vais voir ca
 

Pièces jointes

  • DELIVERY APP 1.0 Rev2.xlsm
    108.5 KB · Affichages: 33

Discussions similaires

Réponses
14
Affichages
621

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 852
dernier inscrit
dthi16088