Code de la feuille, comment dire quelque soit le double clic colorer en vert et figer date du jour ?

anthoYS

XLDnaute Barbatruc
Bonjour,

Tout est dans le titre.
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
If Target.Column = 4 Then
    Cells(Target.Row, 4) = Date
End If
End With
End Sub
 

Si...

XLDnaute Barbatruc
Bon_jour

Est-ce lié à la demande faite ici ?
Je n'y ai rien proposé car je ne sais pas quel calendrier tu utilises.
Si tu l'as abandonné, comme dans ce message, tu pourras utiliser
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Oust As Boolean)
  If R.Column = 4 Then
    Oust = 1
    R = IIf(IsDate(R), "", Date)
    If R = "" Then R(1, 8) = ""
  End If
  If R.Column = 11 Then
    If R(1, -6) <> "" Then
      Oust = 1
      R = IIf(IsDate(R), "", Date)
    End If
  End If
End Sub
qui permet aussi de corriger des saisies.
Remarque : on pourrait inclure dans la macro la gestion des couleurs (déjà faite par Mfc )
 

Pièces jointes

  • Date en Doubleclic.xlsm
    20.3 KB · Affichages: 31

anthoYS

XLDnaute Barbatruc
Re,


Merci à tous deux. Par contre, je veux dire quelque soit la cellule pas seulement en colonne 4 (D).

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If .Column >= 1 Then
    Cells(Target.Row) = Date
    If Target <> "" Then Target.Interior.Color = RGB(0, 255, 0)
    End If
End With
Cancel = True
End Sub

ne fonctionne pas. erreur dans la procédure ?
@Si... : non cela n'a rien avoir avec le sujet précédent.


Merci
 
Dernière édition:

Discussions similaires

Réponses
9
Affichages
168
Réponses
2
Affichages
397

Statistiques des forums

Discussions
298 001
Messages
1 965 031
Membres
200 810
dernier inscrit
lejibe