rahamata
XLDnaute Nouveau
Bonjour,
Je me permets de solliciter votre aide pour améliorer le macro ci-dessous :
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 5 Or Target.Column = 9 Or Target.Column = 13 Or Target.Column = 17 Or Target.Column = 21 Or Target.Column = 25 Or Target.Column = 29) And Target.Value <> "" Then
Target.Offset(0, 1).Value = Format(Now, "dd/mm/yyyy hh:mm")
End If
End Sub
Ce macro a pour objectif de renseigner les dates et heures dans les colonnes F, J,N,R, V, Z et AD. Pour se faire, il faut indiquer 0, 1 ou 2 dans les colonnes E, I, M, Q, U, Y, AC.
Malheureusement quand ma nièce me retourne le planning( elle est sous mac et moi windows), les dates et heures ne correspondent pas exactement.
Comme je ne suis pas au top niveau en VBA, je vous remercie de m'aider.
Bonne soirée
Je me permets de solliciter votre aide pour améliorer le macro ci-dessous :
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 5 Or Target.Column = 9 Or Target.Column = 13 Or Target.Column = 17 Or Target.Column = 21 Or Target.Column = 25 Or Target.Column = 29) And Target.Value <> "" Then
Target.Offset(0, 1).Value = Format(Now, "dd/mm/yyyy hh:mm")
End If
End Sub
Ce macro a pour objectif de renseigner les dates et heures dans les colonnes F, J,N,R, V, Z et AD. Pour se faire, il faut indiquer 0, 1 ou 2 dans les colonnes E, I, M, Q, U, Y, AC.
Malheureusement quand ma nièce me retourne le planning( elle est sous mac et moi windows), les dates et heures ne correspondent pas exactement.
Comme je ne suis pas au top niveau en VBA, je vous remercie de m'aider.
Bonne soirée