aide sur ComboBox

[la croisée des pains]

bonjour le forum,

1ere question:

voila d'après un ComboBox comment faire qu'il recherche le mois sur les feuilles mensuelles

2 e question)

d'après 2 autres ComboBox comment faire la recherche de données sur la feuille mensuelle du 1er ComboBox entre deux dates


merci de votre aide

laurent [file name=Classeur1_20051102182447.zip size=39842]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051102182447.zip[/file]

[laurent45]

Bonsoir Laurent,

Pour ta première question :

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 12
    ComboBox4.AddItem NomMois(i)
Next i
Me.ComboBox4.Value = 'Mois ?'
End Sub

Pour la Fonction de nom de mois, tu peux utiliser MONTHNAME().
Chez moi avec Excel97, ça ne fonctionne pas, donc :

Public Function NomMois(NbMois As Integer) As String
    Select Case NbMois
    Case Is = 1
        NomMois = 'JANVIER'
    Case Is = 2
        NomMois = 'FEVRIER'
    Case Is = 3
        NomMois = 'MARS'
    Case Is = 4
        NomMois = 'AVRIL'
    Case Is = 5
        NomMois = 'MAI'
    Case Is = 6
        NomMois = 'JUIN'
    Case Is = 7
        NomMois = 'JUILLET'
    Case Is = 8
        NomMois = 'AOÛT'
    Case Is = 9
        NomMois = 'SEPTEMBRE'
    Case Is = 10
        NomMois = 'OCTOBRE'
    Case Is = 11
        NomMois = 'NOVEMBRE'
    Case Is = 12
        NomMois = 'DECEMBRE'
    End Select
End Function

Pour ta deuxième question, ça dépends des info que tu veux récupérer.
Merci de nous éclairer.

@+

[la croisée des pains]

bonsoir le forum,
bonsoir Laurent45

merci pour ton aide,je vais essayé ton code;pour la 2e question, tu vois quand je rentre les deux dates et recherche je veux qu'il cherche la somme de recettes journalieres espèces et chèques et au moment du report qu'il se mette dans la feuille encaissement.

je me rends compte que je n'ai pas créer la case recette chèques et son nombre

merci pour ta futur aide.

ps: je vais me coucher

bye laurent

[ChTi160]

salut Laurent
bonsoir Laurent45

on peut dans un soucis de simplification,alimenter le Combobox avec cette procèdure

Private Sub UserForm_Initialize()
Dim maDate As Date
Dim i As Integer
For i = 1 To 12
 maDate = DateSerial(Year(Date), i, 1)
    ComboBox4.AddItem Format(maDate, 'mmmm')
Next i

End Sub

[laurent45]

Re Jean-Marie, Laurent,
Re le Forum,

Voilà, le fichier est prêt.

Jean-Marie, tu as complètement raison. J'ai pris ton code dans le fichier.

Sur ce, bonne nuit à tous.

Message édité par: laurent45, à: 03/11/2005 02:34

[laurent45]

Damned et cuillère en bois (juron de Cuisto)

J'ai retiré les module et les USF qui ne concerne pas le programme

Et le fichier va passer

@+ [file name=Classeur1_20051103024010.zip size=40567]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051103024010.zip[/file]

[la croisée des pains]

bojour le forum,
bonjour à Laurent45 et ChTi160

merci à vous deux pour votre code j'ai essayé et mis sur mon fichier et tout marche immpecable

merci à tous pour votre aide

laurent

[ChTi160]

re Laurent
bonjour le Forum
bonjour le Fil

en pièce jointe une interprétation à améliorer surement



j'ai travaillé sur la feuille Février là où j'ai mis des données lol tu testes
tiens nous au coutant

bonne Journée [file name=MoisV1.zip size=45104]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MoisV1.zip[/file]

[la croisée des pains]

bonjour le forum,
bonjour ChTi,

super travailles que tu as excuté la ,j'ai essayé et j'adopte.

un ptit plus sur au moment de choisir le mois , la fauille du mois se mets, si cela est possible il faudrait que la fenaitre d'encaissement se minimize un peu pour que l'on puisse voir les dates de la feuille de saisie de caisse

j'en demandes peut-etre un peu trop

merci encore beaucoup pour votre travailles

laurent
:silly:

[laurent45]

Bonjour le fil, le Forum,

J'ai craqué :silly: :lol:
[file name=MoisV2.zip size=38296]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MoisV2.zip[/file]
En fait je voulais le dernier mot lol

J'ai enlevé le Select qui affichait la feuille du mois.
Et lors de la sélection de la date de début, la date de fin enlève les dates précédentes. Une gestion d'erreur comme une autre...

Je ne veux pas me battre à coup de version contre ChTi. Je ne fais pas le poids. Mais je voulais juste faire celui là. :whistle:

@+

[la croisée des pains]

re,
super travailles aussi Laurent45;
j'ai essayé ta méthode ;reste à mettre les cartes bleues et leurs nombres ,comme les chèques et mon classeur sera prêt,je pense

laurent

[laurent45]

Re Laurent,

Je travaille depuis quelques temps sur une Appli (CaissesV2.xls) de ce style, entièrement géré par USF, pour la gestion de caisse. Saisie des CA, ticket restau, cartes bleues, chèques, plus tout plein de petites choses (achat caisse, client différé, accompte, vacation...).

Si tu as des Tickets restaurant à gérer, j'ai une partie de mon Appli qui gère ça. Tu rentres les montants, les quantités. CaissesV2.xls te fait les calculs par service (je travaille en restaurant) et te fait un récapitulatif pour fin de semaine, prêt à saisir (à la main) sur le bordereau des CRT.
Si tu es intéressé, je verais à te le mettre en privé (il est trop gros >50ko).

@+

[la croisée des pains]

re Laurent45,
re ChTi 160,

j'espère pas, abuser de votre contribution.

je te remercie beaucoup de ton aide,ta proposition est très gentille,
je ne gères pas les tickets restaurants, merci comme même,
j'ai modifié les feuilles de saisie et le module encaissement avec intégration des cartes bleues.

si tu as quelques instants à consacrer pour les intégrer,j'en serais heureux.

je pense de rien n'avoir oublier,je pense que le classeur sera fini après ces modifications, je le mettrais le final sur le site .

laurent
@+

[la croisée des pains]

re;

j'ai oublié le fichier

laurent
[file name=MoisV3.zip size=45689]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MoisV3.zip[/file]

[ChTi160]

Salut Les Laurents lol
Bonjour le Forum

Alors moi je pars en voyage à Montpellier et à mon retour je m'apercois que les petits Lutins ont fait avancer le Chimilimblick Lol c'est super et c'est comme celà que l'on conçoit L'aide et le partage sur XLD chacun tente à son niveau de faire avancer le projet.

je viens de charger la V3 et je vais y regarder pour visualiser tout celà
à très bientôt