Un help USF

Papou-net

XLDnaute Barbatruc

• 29 Septembre 2012

• #2

Re : Un help USF

Bonjour Ilino,

Avant d'aller plus loin dans le déroulement de ton programme, voici déjà ce qui provoque une erreur dans l'initialisation de ton userform :

Tu fais appel à une feuille nommée "ANNEE", or cette feuille n'existe pas dans ton classeur. Si tu modifies la constante "ANNEE" en "Marché", alors là hop, plus d'erreur.

Par contre, comme ta feuille est vide de données, je ne peux aller plus loin dans l'étude de ton projet.

Le mieux serait que tu joignes ton fichier avec quelques lignes renseignées, sans données confidentielles bien sûr.

A +

Cordialement.

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 29 Septembre 2012

• #3

Re : Un help USF

Bonjour Papou
Merci pour la remarque c’est fait😱, oui vous avez raison, si vous permettez j'ai encore d'autrequestions:
1. comment faire pour mettre dans le comboBox ( des dates colonne H&J) le format de date .
2. faire joindre dans les comboBox (monnaie Colonne E&F) l’unité ( par exemple Euros , Dollars,…selon mon choix)
3. faire sortir sur le USF une info au cas ou la date de signature est sup a la date de mise en vigueur

un grand merci grazie
ci joint le nouveau fichier modifier

 

Pièces jointes

• FSC MARCHE v2.xlsm

  121.8 KB · Affichages: 44

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 29 Septembre 2012

• #4

Re : Un help USF

Bonjour Forum
Ci-dessus mon projet qui est en cours , j’ai déposé un exemple pour du help..donc voila je ne sais pas si j’étais claire ?
Grazie

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 29 Septembre 2012

• #5

Re : Un help USF

Bonsoir,

Pour la validation de la date :

Sous :

Code:

If Test > 0 Then
Alert = MsgBox("Une ou plusieurs cellules ne contiennent pas d'enregistrement." & vbCrLf & _
"Voulez vous poursuivre l'ahout dans la base de donnée .", vbQuestion + vbYesNo, T)
If Alert = vbNo Then Exit Sub ' si on répond non on sort
End If

Ajouter :

Code:

  Dim H1 As Date
  Dim H2 As Date
        ComboBox7.Value = Format(ComboBox7.Value, "dd/mmm/yyyy")
        ComboBox9.Value = Format(ComboBox9.Value, "dd/mmm/yyyy")
  H1 = CDate(ComboBox7.Value)
  H2 = CDate(ComboBox9.Value)
        
        If H1 > H2 Then
        Alert = MsgBox(" La date de signature est supérieure à la date de mise en vigueur." & vbCrLf & _
               "Voulez vous poursuivre l'ahout dans la base de donnée .", vbQuestion + vbYesNo, T)
                If Alert = vbNo Then Exit Sub ' si on répond non on sort
        End If

G

 

Dernière édition: 29 Septembre 2012

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 29 Septembre 2012

• #6

Re : Un help USF

Bonsoir Forum, bonsoir Gelinotte
Merci pour la réponse, mais sans doute ça ne fonctionne pas avec l’exemple suivant :
la date de signature : le 12/02/2012
la date de mise en vigueur : le 5/03/2012

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 30 Septembre 2012

• #7

Re : Un help USF

Bonsoir,

J'ai modifié le post #5.
Le format de la date est 01-01-2012 que je ne contrôle pas encore
Mais le message de la date de signature après la date de Mise en vigueur fonctionne.

À tester.

G

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 30 Septembre 2012

• #8

Re : Un help USF

Bonsoir Ilino,

Voici ton fichier modifié qui devrait répondre à tes questions.

En te souhaitant une bonne soirée.

Cordialement.

Ps : bonsoir Gelinotte

 

Pièces jointes

• Copie de FSC MARCHE v2.xlsm

  120.6 KB · Affichages: 39

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 30 Septembre 2012

• #9

Re : Un help USF

Bonsoir , Grazie Gelinotte
super sa fonctionne tres bien et un grand merci, comme ça j'ai reglé un pblm au moins ( pardon on a réglé) et vous avez repondu a mes deux question(1&3) de post#3, elle reste la question 2 si c'est possibl
thinks

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 30 Septembre 2012

• #10

Re : Un help USF

Bonjour PAPOU
Sorry pour le retard et je te remercie pour ton help
Bon week end

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 30 Septembre 2012

• #11

Re : Un help USF

Bonsoir,

Sur la base de la version du fichier avant la dernière version de Papou-net.
J'ai mis en place les changements de Papou-net, en espérant ne pas en avoir loupé.
J'ai aussi ajouté le choix de l'euro ou du dollar.

À tester

A+ à tous

G

 

Pièces jointes

• FSC MARCHE v3.xlsm

  125.2 KB · Affichages: 37

Dernière édition: 30 Septembre 2012

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 30 Septembre 2012

• #12

Re : Un help USF

Bonsoir Forum, Bonsoir Gelinotte, Bonsoir Papou net
Merci tous monde pour votre aide.
maintenant c'est a moi de continue mon projet.
Encore une fois ARRIVEDERCI

 

Vote positif 0 Vote négatif