Re : Finalisation d'un projet !!! besoin d'aide
Bonjours a tous
bon j'avance tout doucement dans mon projet et sur une macro qui me pose quelque soucis !!
la voici !!
Sub employer_1()
' employer_1 Macro
Dim NomFeuille As String
NomFeuille = Range("A20")
Numsemaine = Sheets("HEURESUP").Range("C1").Value
Sheets(NomFeuille).Select
Range("D" & Numsemaine).Select
'lundi
Sheets("EMPLOYER1").Range("D7":"G7").Value = Sheets("HEURESUP").Range("AY20:BB20").Value
'Mardi
Sheets("EMPLOYER1").Range("O7:R7").Value = Sheets("HEURESUP").Range("BJ20:BM20").Value
'Mercredi
Sheets("EMPLOYER1").Range("Z7:AC7").Value = Sheets("HEURESUP").Range("BU20:BX20").Value
'Jeudi
Sheets("EMPLOYER1").Range("AK7:AN7").Value = Sheets("HEURESUP").Range("CF20:CI20").Value
'Vendredi
Sheets("EMPLOYER1").Range("AV7:AY7").Value = Sheets("HEURESUP").Range("CQ20:CT20").Value
'Samedi
Sheets("EMPLOYER1").Range("BG7:BJ7").Value = Sheets("HEURESUP").Range("DB20
E20").Value
'Dimanche
Sheets("EMPLOYER1").Range("BR7:BU7").Value = Sheets("HEURESUP").Range("DM20
P20").Value
End Sub
mon soucis :
Numsemaine = Sheets("HEURESUP").Range("C1").Value
correspond a une valeur de semaines : ex 44
il y a t'il moyen d'ecrire ce genre de ligne pour automatiquement selectioner la case D(numero de semaine) par exemple.
j'ai essayé cette ligne la mais elle m'affiche un message erreur de compilation , attendu séparateur de liste ou ).
Sheets("EMPLOYER1").Range("D" & Numsemaine:"G" & Numsemaine).Value = Sheets("HEURESUP").Range("AY20:BB20").Value
si quelqu'un a une astuce plz !
merci d'avance