XL 2019 Checkbox

natorp

XLDnaute Barbatruc

• 9 Février 2022

• #2

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

 

Vote positif 0 Vote négatif

Y

Yarinformatique

XLDnaute Nouveau

• 9 Février 2022

• #3

natorp à dit:

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

Cliquez pour agrandir...

Ok vraiment merci beaucoup.. Rachid

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 9 Février 2022

• #4

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

 

Pièces jointes

• Classeur2 Chti160.xlsm

  14 KB · Affichages: 3

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 9 Février 2022

• #5

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

 

Pièces jointes

• Classeur2 Chti160 revu Eric.xlsm

  20.5 KB · Affichages: 2

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 9 Février 2022

• #6

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

 

Pièces jointes

• Classeur2 Chti160 revu Eric.xlsm

  22.7 KB · Affichages: 3

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 9 Février 2022

• #7

Re
Effectivement !

VB:

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

 

Vote positif 0 Vote négatif