XL 2013 Remplir une zone avec un bouton

vgendron

XLDnaute Barbatruc

• 12 Septembre 2017

• #2

Hello

avec ce code à placer dans le module de la feuille

VB:

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 12 Septembre 2017

• #3

voir PJ

 

Pièces jointes

• Heures 2017.xlsm

  73.1 KB · Affichages: 17

Vote positif 0 Vote négatif

purpleman

XLDnaute Nouveau

• 12 Septembre 2017

• #4

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

 

Vote positif 0 Vote négatif

purpleman

XLDnaute Nouveau

• 12 Septembre 2017

• #5

ok merci pour le fichier

 

Vote positif 0 Vote négatif

purpleman

XLDnaute Nouveau

• 12 Septembre 2017

• #6

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

 

Pièces jointes

• Heures 2017.xlsm

  74.5 KB · Affichages: 16

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 12 Septembre 2017

• #7

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"

 

Pièces jointes

• Heures 2017 (1).xlsm

  75.7 KB · Affichages: 20

Vote positif 0 Vote négatif

purpleman

XLDnaute Nouveau

• 12 Septembre 2017

• #8

Merci bcp de ton aide précieuse

 

Vote positif 0 Vote négatif