Code feuille : Comment supprimer les données et ajouter date+5? [résolu !]

[anthoYS]

Bonjour,


Ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Column = 2 Then
Cells(Target.Row, 7) = Date
Cells(Target.Row, 1).Interior.ColorIndex = 4
Cells(Target.Row, 5).Interior.ColorIndex = 4
Cells(Target.Row, 6).Interior.ColorIndex = 4
Cells(Target.Row, 7).Interior.ColorIndex = 4
End If
If Target.Column = 3 Then
Cells(Target.Row, 1).Interior.ColorIndex = 2
Cells(Target.Row, 5).Interior.ColorIndex = 2
Cells(Target.Row, 6).Interior.ColorIndex = 2
Cells(Target.Row, 7).Interior.ColorIndex = 2
End If
End Sub

Comment faire pour effacer la date mise en 7 par double clic en 3 (2ème partie du code).

Cells(Target.Row, 7).ClearContent = 2

?
Si cela existe. Dites-moi svp.
Et ajouter à cette deuxième partie de code : en 5, la date AUJOURDHUI()+5 jours ?

Pour récapituler mon souhait, c'est (on isole la partie du code souhaité) :

If Target.Column = 3 Then
Cells(Target.Row, 1).Interior.ColorIndex = 2
Cells(Target.Row, 5).Interior.ColorIndex = 2
Cells(Target.Row, 6).Interior.ColorIndex = 2
Cells(Target.Row, 7).Interior.ColorIndex = 2
Cells(Target.Row, 7). 'effacer la date figé en 7 par la partie du code précédent (double clic en 2)'
Cells(Target.Row, 5). 'ajouter la fonction date (aujourdhui()+5 jours'
End If

Merci.🙂

à+

 

[JNP]

Re : Code feuille : Comment supprimer les données et ajouter date+5 à la place de la

Bonjour Anthoys 🙂,
La réponse est dans la question 😛...

Cells(Target.Row, 7).ClearContents
Cells(Target.Row, 5) = Date + 5

Bonne suite 😎

 

[anthoYS]

Re : Code feuille : Comment supprimer les données et ajouter date+5 à la place de la

Impeccable, merci.

Bonne fin de journée 😀