XL 2021 Case a cocher

[clausen]

Bonsoir

Je m'amuse pour apprendre à faire un formulaire de saisie.
J'aimerais pouvoir remplacer les Cases (F & G 7) par deux case à cocher.

Est-ce possible avec le bouton enregistrer de la transmettre directement dans la feuille base de données et d'effacer la saisie


Merci d'avance

 

[sylvanu]

Bonjour Clausen,
Comme il y a des boutons, et que c'est un xlsm, je me suis permis de faire ça en VBA avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [F7]) Is Nothing Then
        If Target = "" Then Target = "P" Else Target = ""
    ElseIf Not Intersect(Target, [G7]) Is Nothing Then
        If Target = "" Then Target = "P" Else Target = ""
    End If
End Sub

et pour "Enregistrer"

Sub Enregistrer()
    With Sheets("Base de données")
        DL = 1 + .[B10000].End(xlUp).Row
        .Range("B" & DL & ":G" & DL) = [Saisie].Value
        [Saisie].ClearContents
    End With
End Sub

 

[clausen]

Merci je vais continuer mes essais de débutant. A 81 ans ça fonctionne pas comme a 20 ans

 

[Dudu2]

A 81 ans ça fonctionne pas comme a 20 ans

Ça dépend de quoi tu parles. Pour le VBA, ça fonctionne toujours

 

[Dudu2]

A 81 ans ça fonctionne pas comme a 20 ans

Ça dépend de quoi tu parles. Pour le VBA, ça fonctionne toujours

 

[clausen]

Je parlais pas du VBA. Ais de moi