XL 2016 Date automatique

[JOUB42]

bonjour a tous
Je voudrais mettre une date automatiquement
dans ma colonne A 20 une fois que je saisis un nom dans la cellule F20
j'ai recopié cette formule ci dessous
mais j ai un message d'erreur d'execution (13) quand j efface sur ma cellule F20

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F20:F110")) Is Nothing Then
Target.Offset(0, -5).Value = Now
If Target.Value = "" Then Target.Offset(0, -5).Value = ""
End If
End Sub

merci pour votre aide
JOUB42

 

[Antoine C.]

Si tu mets un

If Feuil1.Cells(6,20) = "" Then Exit Sub

au début de ton code pour vérifier la celule F20 ?

 

[JOUB42]

Merci pour ta réponse rapide , mais je suis novice en visual basic
ta ligne je la mets a quel endroit dans ma formule ?
merci

 

[JOUB42]

Re
je te joins mon exemple plus explicite

 

[patricktoulon]

bonjour
c'est normal que tu est une erreur
tu change la "FXX" ca déclenche l'events change et ça change la "AXX"

donc quand ca change le "AXX" tu re déclenche l’événement
conclusion l'événement change sur target "AXX".offset(,-5) déclenche une erreur car il n'y a plus rien a gauche de "A"

conclusion il te faut gérer l'events

voici donc deux propositions
un change la A en face la F
l'autre si un changement venait a etre operer sur plus de 1 cellule en f20:f110 ca opererait sur toute les cellules d'en face en A

code 1 cellule

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("F20:F110")) Is Nothing And Target.Count = 1 Then
        Application.EnableEvents = False
          Target.Offset(, -5).Value = Array(Date, "")(Abs(Target.Value = ""))
        Application.EnableEvents = True
    End If
End Sub

code multi cellules

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("F20:F110")) Is Nothing Then
      Application.EnableEvents = False
       For Each cel In Target.Cells
            cel.Offset(, -5).Value = Array(Date, "")(Abs(cel.Value = ""))
       next
Application.EnableEvents = True
  End If
End Sub

voila

 

[JOUB42]

OK merci ta proposition 1 qui fonctionne
il me manque juste quand j 'efface une donnée dans ma cellule F
je voudrais que la date soit effacer aussi en même temps
si tu as la solution je suis preneur

 

[patricktoulon]

ben tu a essayé avant de poser la question??

un gros LOL!!!

 

[JOUB42]

oui, j ai mis le code ça fonctionne, mais quand je supprime un texte sur une cellule F
la date en colonne A reste je suis obligé de la supprimer manuellement
merci

 

[patricktoulon]

re
c'est que quelque chose déraille chez toi

 

[JOUB42]

je vois que sur ton tableau ça fonctionne
chez moi je ne sais pas ce qui déraille???? c'est peux être la colonne F qui fusionne avec la colonne G ?
merci pour ton aide

 

[patricktoulon]

a ben oui si tu a des fusions en terme de ligne dans "F" LA bonne blague !!!
on base l'action sur le target.count=1 si tu a des fusions ben walouh!!!
il faut bricoler
un peu comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim CelA As Range, CelF As Range
    If Not Application.Intersect(Target, Range("F20:F110")) Is Nothing Then
        Set CelF = Target.Areas(1).Cells(1)
        Set CelA = CelF.Offset(, -5)
         Application.EnableEvents = False
          CelA.Value = Array(Date, "")(Abs(CelF.Value = ""))
        Application.EnableEvents = True
    End If
End Sub

 

[JOUB42]

C'est OK super
merci pour ton aide

 

[patricktoulon]

à la bonne heure
cela dit c'est pas trop bon les fusions si tu dois faire correspondre des cellule de même ligne
dans ce contexte là c'est un vrai poison
Bon courage