Effacement de cellule

Bonjour

A partir de la ligne 517,la colonne D affiche la date et l'heure de la saisie en colonne A. Cela fonctionne.

Ce qui ne fonctionne pas, c'est que lorsque je supprime la donnée en A,la date ne s'efface pas ?

Help !

Merci

Bonjour,

Une possibilité serait d'ajouter :

If Target = "" Then Target.Offset(0, 3).ClearContents

Merci.... Mais ne fonctionne pas .... La date ne s'efface pas...

coogar a écrit :

Merci.... Mais ne fonctionne pas .... La date ne s'efface pas...

Je viens de faire le test, ça fonctionne sans soucis chez moi. Où avez vous placé cette instruction ?

A la suite de ce qui existait deja..

Dites moi ou aurais du le faire ?

Merci

coogar a écrit :

A la suite de ce qui existait deja...

C'est très vague...

Peux-tu joindre ton code actualisé, en utilisant bien les balises </> pour la mise en forme du code sur le forum.

Merci de votre patience !

Mais malheureusement vous me parlez chinois lol

Balises ?

Pourquoi ne pas m'envoyer le fichier qui fonctionne chez vous ?

coogar a écrit :

Pourquoi ne pas m'envoyer le fichier qui fonctionne chez vous ?

D'une part l'envoi d'un fichier complet pour un simple ajout dans une macro me parait inutile. D'autre part, je préfère souvent m'assurer que les demandeurs comprennent les solutions proposées, plutôt que de les recopier bêtement... Au risque de passer pour un chieur (ce que j'assume parfaitement !).

coogar a écrit :

Mais malheureusement vous me parlez chinois lol

Balises ?

Je souhaite simplement que vous copiez l'intégralité du code de la macro dans laquelle vous avez essayé d'incorporer l'instruction que j'ai proposé. Pour que ce soit lisible, le forum dispose d'une mise en forme automatique du code, mais pour cela il faut le sélectionner et cliquer sur le bouton </>, qui ajoute de part au d'autre du code des "balises" :

pre___XLPSPXLP___000001

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [a517:a1500]) Is Nothing Then _

       If Target.Offset(0, 3) = "" Then
         Target.Offset(0, 3) = Now()
         If Target = "" Then Target.Offset(0, 3).ClearContents
         

Bonjour coogar, le forum,

Ton extrait de code est incomplet. Quelques remarques :

• Si tu mets chacune des tes deux instructions If Condition Then Instruction sur une seule ligne, tu n'as pas besoin d'y mettre de End If
• La date s'efface uniquement si la cellule est vide (contenu = "") et pas si le contenu est 0, c'est bien l'objectif de départ ?

Bonjour

Oui c'est bien cela

Et il faut que cette date s'efface si je supprime après coup la cellule A

merci

coogar a écrit :

Bonjour

Oui c'est bien cela

Et il faut que cette date s'efface si je supprime après coup la cellule A

merci

Je maintiens que chez moi ça fonctionne, et rien ne permet d'indiquer le contraire dans les quelques éléments que tu as transmis...

Code de la macro fonctionnelle :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [A517:A1500]) Is Nothing Then
       If Target.Offset(0, 3) = "" Then Target.Offset(0, 3) = Now()
       If Target = "" Then Target.Offset(0, 3).ClearContents
End If

If Target.Column = 17 And Target.Value <> "" Then
      Do While IsEmpty(Target.Offset(0, 1))
          MsgBox ("Veuillez renseigner cette cellule")
          Target.Offset(0, 1) = InputBox("Date ?")
      Loop
End If

End Sub

Ok bizarre... Je commence a 14h00

Je vois après

Merci

Bonsoir

Pas eu le temps avant..

J'ai recopié ton dernier message

Tout fonctionne. Mais pas l'effacement de la date

J'ai fais une petite vidéo mais impossible d'envoyer

Un fichier mp4..

Bon we

Bon étant très têtu... J'ai chercher bien que n'y connaissant absolument rien a mon grand desespoir...

J'ai donc remplacé tous les "3" dans les offset(0,3)

Par un "4".la date s afgichait donc plus dans la bonne colonne mais par contre elle s'effacait bien ?...

Donc machine arrière. Je remplace les 4 par 3

Et la miracle tout fonctionne tres bien.

Je me doute que tu vas trouver cela bizarre

Mais bon le but recherché est pour moi atteint.

Je tenais a te remercier et j'avoue que j'envie vraiment les personnes comme toi qui maitrise vba

Peut-être (même sûrement a une autre fois)

Bonjour

coogar a écrit :

Je tenais a te remercier et j'avoue que j'envie vraiment les personnes comme toi qui maitrise vba

Peut-être (même sûrement a une autre fois)

Si je donne l'impression de maitriser VBA sur le bout des doigts, tant mieux, mais c'est loin de la vérité !

Mais je suis la preuve que tout n'est pas perdu, car j'ai atterrit sur le forum il y a 2 ans pour poser une question, en y connaissant pratiquement rien, mais à force de pratique ça vient...

Bon courage pour la suite !