Jouxte
XLDnaute Occasionnel
Bonjour à toutes et tous,
Je fais appel à votre connaissance en VBA (que je n’ai malheureusement pas) car j’aurais souhaité jumeler ces deux macros évènementielles que j’ai trouvé sur internet (MERCI Jacques Boisgontier) :
La 1ère est pour insérer la date par un couble click dans la colonne F
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([F:F], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", Now, "")
Cancel = True
End Sub
La 2ème est pour verrouiller la date saisie au moyen du double click de la colonne F
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B13], Target) Is Nothing And Target.Count = 1 And Not témoin Then
témoin = True
ActiveSheet.Unprotect
Target.Locked = True
Target.Interior.ColorIndex = 44
ActiveSheet.Protect
témoin = False
End If
End Sub
Je suppose qu’il faudra remplacer [B2 :B13] par [F :F]
3ème macro évènementielle
Par ailleurs, dans cette feuille de calcul (et non plus seulement colonne F j’aurais souhaité qu’une macro évènementielle me retire le coloriage intérieur de la cellule si la formule qu’elle comprend est changée en une valeur.
Et enfin comment faudrait-il modifier ces macros pour que dans une autre feuille elles ne s’appliquent qu’à une zone nommée « Zone_A » par exemple
Merci à tous.
Je fais appel à votre connaissance en VBA (que je n’ai malheureusement pas) car j’aurais souhaité jumeler ces deux macros évènementielles que j’ai trouvé sur internet (MERCI Jacques Boisgontier) :
La 1ère est pour insérer la date par un couble click dans la colonne F
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([F:F], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", Now, "")
Cancel = True
End Sub
La 2ème est pour verrouiller la date saisie au moyen du double click de la colonne F
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B13], Target) Is Nothing And Target.Count = 1 And Not témoin Then
témoin = True
ActiveSheet.Unprotect
Target.Locked = True
Target.Interior.ColorIndex = 44
ActiveSheet.Protect
témoin = False
End If
End Sub
Je suppose qu’il faudra remplacer [B2 :B13] par [F :F]
3ème macro évènementielle
Par ailleurs, dans cette feuille de calcul (et non plus seulement colonne F j’aurais souhaité qu’une macro évènementielle me retire le coloriage intérieur de la cellule si la formule qu’elle comprend est changée en une valeur.
Et enfin comment faudrait-il modifier ces macros pour que dans une autre feuille elles ne s’appliquent qu’à une zone nommée « Zone_A » par exemple
Merci à tous.
