Actualisation de la date en ligne 2 après saisie d'une valeur non nulle en ligne 1

  • Initiateur de la discussion Initiateur de la discussion Cath67
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Cath67

XLDnaute Nouveau
Bonjour,

je voudrais qu'après chaque mise à jour de cellule dans la ligne 5, la date soit mise à jour dans la ligne 6.
Pour cela j'ai trouvé le code suivant, qui fonctionne bien :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [B1:AG1]) Is Nothing Then
Target(2, 1) = Date + Time
End If
End Sub


Par contre, j'aimerai ajouter la condition suivante : ne mettre la date que si la cellule en ligne 1 n'est pas vide.
Il faudrait donc que le code permettre d'actualiser la date après chaque changement de valeur SI cette valeur n'est pas nulle.

Quelqu'un peut-il m'aider ?

Merci.
 
Bonjour,
Peut-être avec ce bout de code,
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [B1:AG1]) Is Nothing Then
   If Target > 0 and Target <> "" Then Target(2, 1) = Date + Time
End If
End Sub
Cordialement
 
Bonjour,

j'ai essayé et ça fonctionne presque !
Avec cette modification, j'arrive à saisir des valeurs dans la première ligne, par contre l'actualisation ne se fait que si je sors et re-clique/sélectionne sur la cellule. Donc pas tout de suite après la saisie.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
138
Retour