XL 2021 Creation de bouton

[jalaba]

Bonjour
J'aimerais ne plus a avoir a renseigner 1 pour valider le choix serait t'il possible de mettre un bouton pour les colonnes bcfgh tout en concervant les formules
merci

 

[sylvanu]

Bonjour Jalaba,
Un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B6:B183,C6:C183,F6:F183,G6:G183,H6:H183")) Is Nothing Then
        Début = Left(Cells(Target.Row, "A"), 1)
        If Début <> "I" And Début <> "V" And Début <> "" Then
            If Target = "" Then Target = 1 Else Target = ""
            Cells(Target.Row, "A").Select
        End If
    End If
Fin:
End Sub

Un clic sur une des cellules concernées met 1 si vide, au second clic met vide.
Pensez à autoriser les macros si ce n'est déjà fait.

 

[jalaba]

merci