macro

a10 · 14 Décembre 2012

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 · 16 Décembre 2012

Re : macro

Bonjour

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

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

macro

a10

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Discussions similaires

macro

a10

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency