XL 2010 Date automatiquement suivant condition

snoopy07

XLDnaute Occasionnel
Bonsoir le forum

j ai trouver sur le forum la solution a mon petit problème

j ai adapter le code comme je le désire mais cela ne marche pas

quand je fais un double clic sur une cellule de la colonne A le symbole P en police Wingdings 2 apparait mais la date n apparait pas dans la cellule de la colonne B

voici les codes que j ai mis

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
If IsEmpty(Target) Then
Target = "P"
Else
Target = ""

End If


End If
End Sub



Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then ' Adapter la zone active
If LCase(Target) = "P" Then Cells(Target.Row, "B") = Date ' Adapter la colonne où se trouve la date
End If
Fin:
End Sub

le premier code sert pour le double clic sur les cellules de la colonne A

le deuxieme code c'est celui que j ai trouve sur le forum et que j ai adapter

le resultat souhaiter est

Quand les cellule de la colonne A sont remplie dans les cellule de la colonne B apparaisse la date
Quand les cellule de la colonne A sont vide dans les cellule de la colonne B sont vide


je vous joint un fichier

https://1fichier.com/?req0hrfl18hgoclrkxfn

je vous remercie d'avance pour votre aide et votre temps passer pour m aider a trouver la solution

Cordialement

Snoopy07
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Snoopy,
Ou je n'ai pas bien compris la problématique, ou il me semble qu'on peut tout faire d'un seul coup ?
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
        If IsEmpty(Target) Then
            Target = "P"
            Cells(Target.Row, "B") = Date
        Else
            Target = ""
            Cells(Target.Row, "B") = ""
        End If
   End If
End Sub
 

Pièces jointes

  • essai date.xlsm
    15.8 KB · Affichages: 12

Statistiques des forums

Discussions
292 869
Messages
1 926 872
Membres
183 294
dernier inscrit
MINA82