Merci Banzai64 !! c'est exactement cela
Je rencontre un autre soucis avec ce fichier.. je ne sais pas si tu peux m'aider. Je voulais y insérer 2 code mais je n'y parviens pas. Je m'explique :
Je n'arrive pas a modifier mon code suivant déjà existant sur le fichier dans l'onglet PORTEFEUILLE LIVRABLE :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 1 Then
.Value = Date: Cancel = True
End If
End With
End Sub
Je voulais nommer les colonnes 1,2,3 et 4... mais j'ai un "débogage" a chaque fois...
2eme partie :
J'aimerais insérer le code suivant sur l'onglet PORTEFEUILLE LIVRABLE mais pareil j'ai le droit à un débogage....
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long
'Si la fonction activer/Déactiver est implémentée ajouter la ligne ci-dessous
If ActivationLigne Then Exit Sub
If Target.Count > 1 Then Exit Sub
If AncAdress <> 0 Then 'remettre en normal
Rows(AncAdress).Interior.ColorIndex = xlNone
Rows(AncAdress).Font.ColorIndex = 0
End If
Target.EntireRow.Font.ColorIndex = 5
Target.EntireRow.Interior.ColorIndex = 28
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
End Sub
MERCI d'avance pour ton aide
[fichier ci joint]