Bonjour,
J'aimerai pouvoir utiliser une macro qui s'exécute lorsque une ou plusieurs cellules changent.
Si les cellules A7, A36, A65 ou A94 .... (tous les 29ème cellules) changent, alors dans la plage voulu, la cellule sur la colonne
'E' change aussi de valeur.
En exemples :
Si A7 a été modifié >> alors dans la plage "A7:A35", toutes les cellules dans la colonne 'E' changent aussi.
Si A36 a été modifié >> alors dans la plage "A36:A65", toutes les cellules dans la colonne 'E' changent aussi.
Si possible en utilisant ce début de code :
Merci pour votre aide.
J'aimerai pouvoir utiliser une macro qui s'exécute lorsque une ou plusieurs cellules changent.
Si les cellules A7, A36, A65 ou A94 .... (tous les 29ème cellules) changent, alors dans la plage voulu, la cellule sur la colonne
'E' change aussi de valeur.
En exemples :
Si A7 a été modifié >> alors dans la plage "A7:A35", toutes les cellules dans la colonne 'E' changent aussi.
Si A36 a été modifié >> alors dans la plage "A36:A65", toutes les cellules dans la colonne 'E' changent aussi.
Si possible en utilisant ce début de code :
Code:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Erreurs
Dim i As Integer, DerniereLigne As Integer
Dim KeyCells As Range
' La variable KeyCells contient les cellules qui déclencheront
' une alerte si elles sont modifiées.
Set KeyCells = Range("A1:H1000")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
Application.EnableEvents = False
DerniereLigne = Cells(1000, 1).End(xlUp).Row
For i = 7 To DerniereLigne
Cells(i, 5) = Cells(i, 5) / 86400
Cells(i, 5).NumberFormat = "[h]""h"" mm""min"" ss""sec"""
Next i
Application.EnableEvents = True
End If
Erreurs:
If Err <> 0 Then Application.EnableEvents = True
End Sub
Merci pour votre aide.
Dernière édition: