Fusion de fonction SI et ET

Bonjour,

Je souhaiterais automatiser la saisi et la suppression de certaines données dans mon tableau par un double click.

Les colonnes concernées sont : "K", "L", "M" et "N".
Chaque colonne comporte une donnée différente :

• un "P" dans la colonne "K"
• un "D" dans la colonne "L"
• un "C" dans la colonne "M"
• un "A" dans la colonne "N"

De plus chaque donnée a une couleur de fond correspondante à l'aide de l'outil de mise en forme conditionnelle.

J'ai créé une formule à l'aide de deux autres trouvées que j'ai insérée dans l'onglet "Développeur", sous-onglet "Visualiser le code".

Cependant, ma formule s'applique seulement à ma colonne "K" avec la donnée "P".


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Columns("K"), Target) Is Nothing Then Exit Sub

If IsEmpty(Target) Then

Target = "P"

Cancel = True

Else

If Target = "P" Then

Target = ""

Cancel = True

End If

End If

End Sub


J'aimerais appliquer ma formule à toute mes colonnes.