Set date_de_fin = Sheets("Reporting").Cells(x, y) Set date_de_depart = Sheets("Reporting").Cells(x, y - 10)
Set date_de_fin = Sheets("Reporting").Cells(x+2, y)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
Mois_Precedent = DatePart("m", DateAdd("m", -1, MyDate))
Nom_mois_Prec = Format(DateAdd("m", -1, MyDate), "mmmm", vbMonday, vbFirstFourDays)
il faudrait que la date choisi soit récuperé dans feuil1 ligne 2
Mais j'ai pas le code pour ça???
Sub Update_DayDate() FC_CalendarJML.FC_Calendar_Date = FC_CalendarJML.FC_CalendarJML_Day & " " & _ FC_CalendarJML.FC_CalendarJML_Month & " " & _ FC_CalendarJML.FC_CalendarJML_Year ' pour copier la date dans la feuille 1 Sheets(1).Cells(1, "A").Value = FC_CalendarJML.FC_CalendarJML_Day & " " & _ FC_CalendarJML.FC_CalendarJML_Month & " " & _ FC_CalendarJML.FC_CalendarJML_Year End Sub
Range("G2:Q4").Selectqui te permet de l'indiquer.
Select Case Mois_depart Case "JANVIER" Range_Depart = "D2" Case "FEVRIER" Range_Depart = "E2" ' etc... End Select
Range(Range_Depart & ":" & Range_Fin).Select
Sub test() Dim x As Integer Dim y As Integer Dim date_de_fin As Range Dim date_de_depart As Range Call FC_CalendarOpen x = Range("B6").Value ' N° de ligne y = Range("B4").Value ' N° de colonne If y - 10 < 1 Then Exit Sub ' si plus petit que 1, on sort!! Set date_de_fin = Cells(x, y) Set date_de_depart = Cells(x, y - 10) Range(date_de_depart, date_de_fin).Select ' selection de la dite plage End Sub
Sub test() Dim x As Integer Dim y As Integer Call FC_CalendarOpen x = Range("B6").Value ' N° de ligne y = Range("B4").Value ' N° de colonne If y - 10 < 1 Then Exit Sub ' si plus petit que 1, on sort!! RANGE(cells(x,y-10),cells(x,y)).Select 'selection de la plage
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.