Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("B3:G10")) Is Nothing Then MsgBox "dedans" End Sub
LigneActive = ActiveCell.Row ColonneActive = ActiveCell.Column If LigneActive >= 5 And LigneActive <= 9 Then If ColonneActive >= 1 And ColonneActive <= 7 Then 'Ouverture du l'onglet Application.Sheets("Pdg 2011").Activate 'On copie les horaires par défaut définis sur la PdG Range("H20:I21").Copy 'On active l'onglet dans lequel on veut coller ces cellules Application.Sheets(NomOnglet).Activate 'On précise "à partir de où" on veut coller Range("D5").Select 'On colle les cellules copiées ActiveSheet.Paste End If End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub HeuresParDefaut() 'Appel de la Fonction permettant d'obtenir le numéro de la semaine en cours 'Fonction récupérée sur http://www.vbfrance.com/codes/CALCUL-AUTOMATIQUE-SEMAINE_40465.aspx NumSemaine = WeekNumber() NomOnglet = "Sem" & NumSemaine j = 5 k = j + 4 For FinTest = 1 To 9 LigneActive = ActiveCell.Row ColonneActive = ActiveCell.Column If LigneActive >= j And LigneActive <= k Then If ColonneActive >= 1 And ColonneActive <= 7 Then 'Ouverture du l'onglet Application.Sheets("Pdg 2011").Activate 'On copie les horaires par défaut définis sur la PdG Range("H20:I21").Copy 'On active l'onglet dans lequel on veut coller ces cellules Application.Sheets(NomOnglet).Activate 'On précise "à partir de où" on veut coller Range("D" & j).Select 'On colle les cellules copiées ActiveSheet.Paste End If End If FinTest = FinTest + 1 j = j + 6 k = j + 4 Next End Sub