Formulaire de saisie avec calcul de date

job75

XLDnaute Barbatruc

• 23 Avril 2019

• #2

Bonjour Monhtc, le forum,

Il faudrait vous donner un peu plus de mal et être plus explicite :

- il manque les listes pour alimenter les 5 ComboBoxes

- il manque la liste des jours fériés

- les OptionButtons SAMEDI et DIMANCHE doivent être remplacés par des CheckBoxes

- on ne sait pas ce qu'il faut faire en Feuil3.

Bonne journée.

 

Vote positif 0 Vote négatif

N

Nosma

XLDnaute Nouveau

• 23 Avril 2019

• #3

Bonjour à tous,
j'ai créer un formulaire sur excel via le VBA mais je bloque sur un petit détail. j'aimerai que les données s'acrémentent dans le tableau ligne après ligne sans en creer de nouvelle.
ex: les données se mettent en B11, C11, D11 (le tableau commence en ligne 11); ensuite B12,C12,D12 etc... sans sortir du tableau qui se finit en ligne 22

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Avril 2019

• #4

@ Nosma ne squattez pas ce fil, créez une nouvelle discussion et soyez beaucoup plus explicite !

@ Monhtc voyez le code de l'UserForm dans le fichier joint.

 

Pièces jointes

• Classeur(1).xlsm

  36 KB · Affichages: 23

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Avril 2019

• #5

J'ajoute que lier le nom, le poste et le contact ne me paraît pas une bonne idée car le poste et le contact peuvent changer.

 

Vote positif 0 Vote négatif

M

Monhtc

XLDnaute Occasionnel

• 24 Avril 2019

• #6

Bonsoir a tous merci surtout à JOB75 pour son assistance, je vais joindre un fichier bien plus complet ainsi que mon avancement sur ce userfom afin de vous aider à m'orienter

 

Vote positif 0 Vote négatif

M

Monhtc

XLDnaute Occasionnel

• 25 Avril 2019

• #7

Bonjour chers tous,
après mainte recherche je me tourne vers vous en espérant trouver solution pour terminer mon formulaire.

1/ Déterminer une série de jours ouvrés avant et après un weekend ou un jour férie à partir d'une date début. (option samedi et dimanche pris en charge dans les cas exceptionnel)
EXEMPLE: POUR UNE PÉRIODE DU 25 AVRIL AU 30 AVRIL; COMMENT OBTENIR
PERIODE 1: Date de début: 25 Avril - Date de fin: 26 Avril
PERIODE 2: Date de début: 29 Avril - Date de fin: 30 Avril

2/
a/J'aimerais créer une liste déroulante dynamique (les boxnom, les boxfnction et les boxcontact) avec condition de sorte à ce que si le nom entré ne figure pas préalablement dans la liste source, il soit accepté et s'y rajoute dans la base. (Tableau lié a la Feuil3)
b/les les boxnom, les boxfnction et les boxcontact étant liés si l'un est tapé sa correspondance s'affichent automatiquement dans les autres (comme les formules RECHERCHE V et INDEX EQUIV)
NB;
Pour répondre a JOB75 (J'ajoute que lier le nom, le poste et le contact ne me paraît pas une bonne idée car le poste et le contact peuvent changer.) je crois que si les combox enregistrent toutes les données et acceptent les nouvelles qui sont pas repertoriées la modification se fera automatiquement
j'ai rajouter ce code

VB:

Sheets("CONFIG").Range("H2").Value = Sheets("CONFIG").Range("H2").Value + 1

pour incrementer le numero de series à chaque sauvegarde mais il marche pas

 

Pièces jointes

• TEST.xlsm

  31.7 KB · Affichages: 11

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 25 Avril 2019

• #8

Bonjour Monhtc
le Fil ,le Forum
j'ai modifié ainsi (non testé la sauvegarde)

VB:

=E2&TEXTE(F2;"0000")&"/"&TEXTE(AUJOURDHUI();"mm/aaaa")&"/"&TEXTE(G2;"")

mm/aaaa

Cliquez pour agrandir...

il faut je pense :

Modifier la cellule F2 et Non G2 pour incrémenter

Cliquez pour agrandir...

soit :

VB:

With Sheets("CONFIG")
     .Range("F2").Value = .Range("F2").Value + 1
End With

pas sur d'avoir compris lol
jean marie

 

Dernière édition: 25 Avril 2019

Vote positif 0 Vote négatif

M

Monhtc

XLDnaute Occasionnel

• 25 Avril 2019

• #9

ChTi160 à dit:

Bonjour Monhtc
le Fil ,le Forum
j'ai modifié ainsi (non testé la sauvegarde)

VB:

=E2&TEXTE(F2;"0000")&"/"&TEXTE(AUJOURDHUI();"mm/aaaa")&"/"&TEXTE(G2;"")

il faut je pense :

soit :

VB:

With Sheets("CONFIG")
     .Range("F2").Value = .Range("F2").Value + 1
End With

pas sur d'avoir compris lol
jean marie

Cliquez pour agrandir...

Merci je m'en suis rendu compte c'est plutôt la cellule "F2" mais elle ne s'incrémente que lorsque j'ouvre et ferme le formulaire

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 25 Avril 2019

• #10

Re
Peut être en mettant la procédure au niveau du Bouton d'enregistrement

VB:

With Sheets(2)
        .Range("A" & dlign) = om
        .Range("B" & dlign) = boxnom
        .Range("C" & dlign) = boxfonction
        .Range("D" & dlign) = boxcontact
        .Range("E" & dlign) = boxlieu
        .Range("F" & dlign) = boxobjet
        .Range("G" & dlign) = boxtransport
        .Range("H" & dlign) = boxdepart
                  boxdepart = Format(boxdepart, "dd/mmm/aaaa")
        .Range("I" & dlign) = boxretour
                  boxdepart = Format(boxretour, "dd/mmm/aaaa")
        .Range("J" & dlign) = boxbudget
        .Range("K" & dlign) = boxsignature
        .Range("F2").Value = .Range("F2").Value + 1 '<---------------- ICI
  End With

non testé
jean marie

 

Vote positif 0 Vote négatif

M

Monhtc

XLDnaute Occasionnel

• 4 Mai 2019

• #11

job75 à dit:

Merci @job75 pour votre assistance, voici plus de détail
J'ajoute que lier le nom, le poste et le contact ne me paraît pas une bonne idée car le poste et le contact peuvent changer.

Cliquez pour agrandir...

Merci @job75 pour votre assistance, voici plus de détail
J'ai testé le code il marche parfaitement mais n'ayant moi meme donné plus de detail je suis coincé; alors je rajoute a cete explicaio qui suit mon fichier bcp plus complet afin de pouvoir finaliser le boulot grace à votre assistance.
1/ Déterminer une série de jours ouvrés avant et après un weekend ou un jour férie à partir d'une date début. (option samedi et dimanche pris en charge dans les cas exceptionnel)
EXEMPLE: POUR UNE PÉRIODE DU 25 AVRIL AU 30 AVRIL; COMMENT OBTENIR
PERIODE 1: Date de début: 25 Avril - Date de fin: 26 Avril
PERIODE 2: Date de début: 29 Avril - Date de fin: 30 Avril

2/
a/J'aimerais créer une liste déroulante dynamique (les boxnom, les boxfnction et les boxcontact) avec condition de sorte à ce que si le nom entré ne figure pas préalablement dans la liste source, il soit accepté et s'y rajoute dans la base. (Tableau lié a la Feuil3)
b/les les boxnom, les boxfnction et les boxcontact étant liés si l'un est tapé sa correspondance s'affichent automatiquement dans les autres (comme les formules RECHERCHE V et INDEX EQUIV)
NB: vous trouverez des commentaires dans mon code vba pour plus d'explication

 

Pièces jointes

• TEST.xlsm

  29.9 KB · Affichages: 15

Dernière édition: 10 Mai 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Mai 2019

• #12

Bonjour le fil

Monhtc
Apparemment la 1ère fois, tu n'avais pas vu ce post (que j'avais posté dans un autre de tes fils) en guise d'amical conseil
Donc je le reposte

Staple1600 à dit:

Bonjour

Juste pour infos
Sur un forum, saisir ses titres (voir ses message) en MAJUSCULES équivaut à "gueuler"...

Cliquez pour agrandir...

Je rajoute que des titres ou messages en MAJUSCULES ne sont pas agréables à lire.
(Et ce n'est pas une lubie de ma part, on retrouve cette "règle de rédaction" sur de nombreux forums)

 

Vote positif 0 Vote négatif

M

Monhtc

XLDnaute Occasionnel

• 4 Mai 2019

• #13

Bien noté... Encore une fois désolé

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Mai 2019

• #14

Re

Monhtc
Merci d'en avoir pris note
(quand tu auras le temps, édites le titre de tes fils pour les passer en minuscule)

 

Vote positif 0 Vote négatif

M

Monhtc

XLDnaute Occasionnel

• 12 Mai 2019

• #15

Bonjour @job75 , bonjour @Staple1600 malgré tout le boulot effectuer par @job75 je coicne et galere depuis des semaines sur mon formulaire sur mon code, vraiment besoin d'aides svp.
Avec votre accord permettez moi de joindre le fichier

 

Vote positif 0 Vote négatif