XL 2013 Remplir une zone avec un bouton

[purpleman]

Bonjour à tous,
Je suis coincé par un problème de remplissage d'une zone par un choix fait en amont.
Le déroulement est:
Je clique dans une cellule de la colonne J, cela met en mémoire le jour (colonne N)
Cela ouvre une boite de choix demandant l'un des 3 choix Matin / Soir / Nuit
et donc cela recopie la ligne du jour considéré qui se trouve dans le tableau colonne Q à V

Par Ex: je clique sur la cellule J3, "L" est mis en mémoire, la liste de choix s'ouvre, je choisis "S"
Donc dans les cellules J3 / K3, cela copie S3 / T3

Voilà j'espère que c'est compréhensible.

Merci de votre aide.

 

[vgendron]

Hello

avec ce code à placer dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 10 Then Exit Sub
jour = WorksheetFunction.WeekNum(Cells(Target.Row, 1), 2)
While creneau <> 1 And creneau <> 2 And creneau <> 3
    creneau = Application.InputBox("Matin=1 Midi=2 ou Soir=3 ?")
Wend

Range("J" & Target.Row) = Range("Q3").Offset(jour, 2 * creneau - 2)
Range("K" & Target.Row) = Range("R3").Offset(jour, 2 * creneau - 2)

End Sub

note: pas besoin de la colonne N car le jour 'lundi mardi mercredi.. " est déterminé directement sur la date en colonne A

 

[vgendron]

voir PJ

 

[purpleman]

Excuse moi mais je ne comprends pas bien où mettre ton code.
J'ai ouvert Developer, Visual Basic, Modules > J'ai 2 modules (car 2 sheets identiques)
Là j'ai déjà pas mal de code, comment j'insère le tien ?
Merci de ta réponses

 

[purpleman]

ok merci pour le fichier

 

[purpleman]

j'ai dû décaler de 2 colonnes et donc ton fichier ne fonctionne plus.
Peux tu regarder svp? Merci pour tout.

 

[vgendron]

Voici la version corrigée et commentée
j'ai oublié de préciser toute à l'heure, que ton petit tableau des horaires a été nommé "TabCréneau"

 

[purpleman]

Merci bcp de ton aide précieuse