XL 2016 VBA fonctionne mal

Yoyo01000

XLDnaute Occasionnel
Bonjour le forum,

J'avais obtenu, grâce à vous, une macro faisant déplacer une date vers la colonne "Sortie" lorsqu'une autre date était entrée en colonne "Entrée", sur la même ligne.

Cependant, cette macro ne fonctionne plus et avec mon peu de connaissances en VBA, je n'arrive pas à déchiffrer le code pour comprendre ce qui ne va plus.

Je viens de me rendre compte d'une chose :
ça fonctionne à l'inverse si :
-Il y a une date dans la cellule S18
-Que si une date en AA18 est entrée, la date en S18 se déplace bien en T18

J'ai laissé un commentaire, sur le fichier-joint, pour que ce soit plus compréhensible.
 

Pièces jointes

  • VBA Forum.xlsm
    24.8 KB · Affichages: 7

frangy

XLDnaute Occasionnel
Bonjour,

Essaye comme cela
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
For n = 11 To Cells(1, Columns.Count).End(xlToLeft).Column
  If Cells(Target.Row, n) <> "" And n <> Target.Column And Cells(2, n) = "Entrée" Then
     Cells(Target.Row, n + 1) = Date
     Cells(Target.Row, n) = ""
  End If
Next
Application.EnableEvents = True
End Sub
Cordialement.
 

Discussions similaires