macro

[a10]

bonjour,

je voudrai avoir une macro simple qui m'ouvre une boite de dialogue pour me demander le jour
si la personne inscrit dans la boite lundi alors il colle les données en a1 si c'est matdi en b1

comment ecrire cette macro?

a+

 

[Staple1600]

Re : macro

Bonjour


Tu peux améliorer la lisibilité de ton message en utilsant les balises BBCODE CODE

Range("i10:l539").Select
Range(Selection, Selection.End(xlDown)).Copy
Sheets("recap semaine").Select
'selection du jour
Dim semaine(), j As String
semaine = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
j = InputBox("Quel jour ? :", "Saisir le jour")'jour = InputBox("Quel jour svp (en minuscule)", "lundi mardi mercredi....etc")
Range("a1000") = j
Range("a1000").Select
For Each cell In Selection
cell.Formula = LCase(cell.Formula)
Next cell
If Range("a1000") = "lundi" Then Range("F4").Select
If Range("a1000") = "mardi" Then Range("j4").Select
If Range("a1000") = "mercredi" Then Range("n4").Select
If Range("a1000") = "jeudi" Then Range("r4").Select
If Range("a1000") = "vendredi" Then Range("v4").Select
If Range("a1000") = "samedi" Then Range("z4").Select


Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False