Affecter des Repas en VBA

Version imprimable

17/02/2016, 12h51
fredm79

3 pièce(s) jointe(s)

Affecter des Repas en VBA

Bonjour à tous,
J'ai besoin de vos lumières !
Dans mon fichier EXCEL : 3 feuilles
- Une liste de personne avec leur Service et le Plage Horaire
Pièce jointe 201073
- Un tableau de repas pour le Service 1
Pièce jointe 201075
- Un tableau de repas pour le Service 2
Pièce jointe 201076

J'ai besoin d'un p'tit code qui va alimenter la colonne "D" (HEURE DE REPAS) dans la liste des personnes (Feuille LISTE) en fonction des 2 tableaux.
Si je ne suis pas clair, n'hésitez pas et merci d'avance
17/02/2016, 14h12
pasdechances

Citation:

Envoyé par fredm79

J'ai besoin d'un p'tit code qui va alimenter la colonne "D" (HEURE DE REPAS) dans la liste des personnes (Feuille LISTE) en fonction des 2 tableaux.
Si je ne suis pas clair, n'hésitez pas et merci d'avance

Bonjour,

on doit te faire le code?
ou tu veux qu'on t'aide?
si tu veux debuter rien de mieux que : cours
17/02/2016, 14h16
Philippe PONS

Oui, rien ne vaut une bonne formation!!
Cordialement,
17/02/2016, 15h03
fredm79

Citation:

Envoyé par Philippe PONS

Oui, rien ne vaut une bonne formation!!
Cordialement,

Merci sympa ;)
17/02/2016, 15h23
fredm79

Citation:

Envoyé par pasdechances

Bonjour,

on doit te faire le code?
ou tu veux qu'on t'aide?
si tu veux debuter rien de mieux que : cours

dans l'urgence, un exemple de code m'aiderait fortement
merci d'avance

voici l'algorithm :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
fonction principale
while sheets("feuille main").cells(1,y) <> empty
    if sheets("feuille main").cells(1,y) = "" then
        Ecrire 1, y
    else
        Ecrire 2, y
    end if
y = y + 1
wend
fin fonction
 
fonction Ecrire avec en entrer NumFeuille, Ligne
 
if  NumFeuille = 1 then feuille = "le nom de ta feuille1"
if  NumFeuille = 2 then feuille = "le nom de ta feuille2"
plage = sheets("feuille main").cells(1,Ligne)
heure = sheets("feuille main").cells(3,Ligne)
 
if heure = "12h00" then
   LigneEcriture = RecherchePlage feuille, plage
end if ' a répéter pour toute les heures
 
fin fonction
 
 
 
fonction RecherchePlage avec en entrer feuille, plage 
while sheets(feuille).cells(1,i) <> plage
   i = i + 1
wend
RecherchePlage = i
 
fin fonction

c'est un algo! il ne peut etre executer dans vba en gros il te donne une GROSSE piste

17/02/2016, 20h54
clementmarcotte

Citation:

Envoyé par fredm79

dans l'urgence, un exemple de code m'aiderait fortement
merci d'avance

Il y a quelque chose d'intéressant par là.