Discussion :

[DRDams]

Bonjour,

Je reviens vers vous pour des questions sur des formules concernant la création d'un emploi du temps en forme de calendrier Excel.

En pièce jointe, vous pourrez trouvez un fichier excel que j'essaie d'adapter.
Ce que je souhaiterais, c'est :

dans la feuille : "Planing de rendez vous" introduire mes rendez vous selon une liste comme j'ai fais.

Maintenant je souhaiterais qu'excel redirige ce RDV à la bonne Date et à la bonne Heure sur la bonne feuille.

J'ai essayé une formule "RECHERCHE V" , qui, OK pour le report à la bonne date, Mais j'ai des difficultés à adapter cette formule pour que le RDV soit à la bonne heure.

Est ce que quelqu'un pourrais m'aider svp, ou me donner un indice pour savoir quelle formule utiliser?

Merci à vous tous,

DRDAMS

[DRDams]

Re Bonjour,

Il n'y a personne qui serais m'aider pour adapter ma formule sur la page "semaine1" svp?

Merci beaucoup

[Menhir]

Un RECHERCHEV() ne sera applicable que si tu utilises de vraies heures (et non des chaines de caractère ressemblant à des heures) et que tu mets la date et l'heure dans la même cellule dans ta liste source, quitte éventuellement à faire une colonne supplémentaire pour additionner date et heure.

[ARTURO83]

Bonjour,

Vu le nombre de feuilles, il vaut mieux passer par un bout de code en VBA.

le fichier
Pièce jointe 537830

Le code

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long, Col_d As Long
    Dim Feuil As String, Soc As String, Heure_RDV As String
    Dim Date_RDV As Date
    Dim Lig_h As Object
    Application.ScreenUpdating = False
    If Target.Column <> 4 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target.Offset(0, -3) = "" Or Target.Offset(0, -2) = "" Or Target.Offset(0, -1) = "" Then Exit Sub
    i = Target.Row
    Feuil = Cells(i, "A")
    Date_RDV = Cells(i, "B") * 1
    Heure_RDV = Cells(i, "C")
    Soc = Cells(i, "D")
    Date_Dep = [I3]
    Col_d = 3
    Do While Sheets(Feuil).Cells(7, Col_d) * 1 < Date_RDV
        Col_d = Col_d + 1
    Loop
    Set Lig_h = Sheets(Feuil).Columns(1).Find(Heure_RDV)
    Sheets(Feuil).Cells(Lig_h.Row, Col_d) = Soc
End Sub

Cdlt

[Menhir]

Vu le nombre de feuilles, il vaut mieux passer par un bout de code en VBA.

C'est un point de vue légitime mais je ne le partage pas.
La mise au point d'une formule et sa recopie sur une dizaine de feuille sera sans doute plus rapide et dynamique que la mise au point d'une macro VBA.

[ARTURO83]

Bonjour Mebhir,

C'est un point de vue légitime mais je ne le partage pas.
La mise au point d'une formule et sa recopie sur une dizaine de feuille sera sans doute plus rapide et dynamique que la mise au point d'une macro VBA.

Avec la conception du fichier telle qu'elle est, il y a 52 feuilles pour 52 semaines (personnellement j'en aurai mis une 53ème) avec pour chaque feuille les 7 jours de la semaine x 21 plages horaires soit en tout 147 formules par feuilles (un peu plus de 7000 cellules), ce qui n'est rien pour un PC, mais l'élaboration d'une formule ne m'a pas paru la plus judicieuse, mais ce n'est que mon avis.
Quant à la rapidité, il n'y a pas de souci vu que le remplissage se fait uniquement lors de la saisie d'une seule valeur(celle du nom de la société), donc au cas par cas et non sur l'ensemble des données, d'où une extrême rapidité.

Attendons que DDRams se manifeste pour connaître son avis sur la solution proposée.

Cdlt

[ARTURO83]

RE,

uite à la remarque de Menhir, voici la même proposition avec formules (formule matricielle à valider avec CTRL + SHIFT + ENTREE).
En C9 de chaque feuille à tirer vers la droite puis vers le bas

Code :

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

=SIERREUR(INDEX(Planning_des_rendez_vous!$A$5:$D$1000;EQUIV(C$7&" "&$A9;Planning_des_rendez_vous!$B$5:$B$1000&" "&Planning_des_rendez_vous!$C$5:$C$1000;0);4);"")

le fichier
Pièce jointe 537971

Cdlt

[DRDams]

Bonjour à tous,

Ah, merci à vous tous pour vos réponses.

J'ai fais également des recherches et j'avais mis en place une formule presque identique à celle de "ARTHURO83" suivant le dernier post mais j'avais des erreurs... maintenant je les vois. merci
Je vais donc la tester maintenant et je reviens vers vous.

Merci à tous pour votre participation.

Si cela intéresse quelqu'un je vais éditer un nouveau sujet avec des questions tel que est il possible qu'excel m'envoie une notification par mail 1 semaine avant les rendez vous lister sur Excel.