Discussion :

[fredm79]

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

- Un tableau de repas pour le Service 1

- Un tableau de repas pour le Service 2


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

[pasdechances]

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

[Philippe PONS]

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

[fredm79]

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

Merci sympa

[fredm79]

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

[pasdechances]

voici l'algorithm :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clementmarcotte]

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

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