XL 2019 Checkbox

[Yarinformatique]

Bonjour comment allez-vous ? Je suis un débutant en programmation et j'emerai savoir quelle code utiliser pour inscrire dans une colonne la lettre M ou F en fonction du sex après avoir insérer deux checkbox M et F dans un userform sous Excel
Aussi j'ai un petit programme pour la gestion des ventes fait avec Excel et j'aimerai savoir si on peut le transformer en une vraie application que je pourrai installé sur une machine et non par simple copie et coler
Merci d'avance

 

[natorp]

Bjr Yarinformatique
La règle dans ce forum est d'aider, aussi il est important que tu joignes un fichier d'exemple
Sinon pour ta 1ère question voilà un lien vers le site de notre regretté Jacques Boisgontier :

Les formulaires

Cela devrait t'aider
Cordialement, Gérard

 

[Yarinformatique]

Bjr Yarinformatique
La règle dans ce forum est d'aider, aussi il est important que tu joignes un fichier d'exemple
Sinon pour ta 1ère question voilà un lien vers le site de notre regretté Jacques Boisgontier :

Les formulaires

Cela devrait t'aider
Cordialement, Gérard

Ok vraiment merci beaucoup.. Rachid

 

[ChTi160]

Bonjour le Fil
Une approche perfectible !
Bonne Journée
Jean marie

 

[Eric C]

Bonjour le forum
Bonjour Yarinformatique, natorp, Jean-Marie

@jean-marie - Je me suis permis de modifier ton fichier pour les correspondances entre contrôles

Bonne journée à toutes & à tous.
@+ Eric c

 

[Eric C]

Re le fil
Oupssss. Je n'avais pas lu que notre ami désirait placer les valeurs en colonne "M".
@+ Eric c

 

[ChTi160]

Re
Effectivement !

Private Sub UserForm_Initialize()
With Me
  With .ComboBox1
    .ColumnCount = 2
    .ColumnWidths = "1;0"
             .AddItem "Homme"
    .List(.ListCount - 1, 1) = "H"
    .AddItem "Femme"
    .List(.ListCount - 1, 1) = "F"  
  End With
End With
End Sub

Private Sub CommandButton1_Click()
Dim DernLigne As Integer
  DernLigne = Range("M65536").End(xlUp).Row + 1
'Insertion des valeurs sur la feuille
   Range("M" & DernLigne) = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
   Unload Me
End Sub

pour changer Lol
Bonne Journée
Jean marie