Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Code de la feuille, comment dire quelque soit le double clic colorer en vert et figer date du jour ?
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 !
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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
If Target.Column = 4 Then
If Target = "" Then Cells(Target.Row, 4) = Date
If Target <> "" Then Target.Interior.Color = RGB(0, 255, 0)
End If
End With
End Sub
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 )
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.
- 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