XL 2010 Fusionner un bouton Valider pour 2 Combobox dans un Userform

[CATPLUS]

Bonjour

Dans l'Userform j'ai 2 Combobox (1 => IN & 1 => OUT)

Pour valider les données j'ai crée un bouton par combobox, comment utiliser SVP la même bouton pour le 2 Combobox?

Private Sub CommandButton5_Click() 'Private Sub Valider_Click()
With ActiveSheet
ligne = .Range("A65635").End(xlUp).Row + 1
.Cells(ligne, 1).Value = Me.ComboBox1
lblmessage2 = "Transfert effectué"
End With
EffaceTout
ComboBox1.SetFocus
[A65789].End(xlUp).Offset(1, 0).Select
End Sub

Private Sub CommandButton11_Click() 'Private Sub Valider_Click()
With ActiveSheet
ligne = .Range("A65635").End(xlUp).Row + 1
.Cells(ligne, 1).Value = Me.ComboBox2
lblmessage2 = "Transfert effectué"
End With
EffaceTout
ComboBox2.SetFocus
[A65789].End(xlUp).Offset(1, 0).Select
End Sub

Cordialement

 

[fanfan38]

Bonjour
Un fichier est TOUJOURS le bienvenu…

Private Sub CommandButton5_Click() 'Private Sub Valider_Click()
With ActiveSheet
ligne = .Range("A65635").End(xlUp).Row + 1
if me.combobx1.value<>"" then
.Cells(ligne, 1).Value = Me.ComboBox1.value
else
.Cells(ligne, 1).Value = Me.ComboBox2.value
endif
lblmessage2 = "Transfert effectué"
End With
EffaceTout
ComboBox1.SetFocus
[A65789].End(xlUp).Offset(1, 0).Select
End Sub

Cordialement
A+ François

 

[CATPLUS]

Merci François pour cette réponse qui fonctionne parfaitement
Une petite erreur

if me.combobx1.value<>"" then
if me.Combobox1.value<>"" then

Désolé de ne pas avoir insérer de fichier, celui-ci est trop important (+de 5Mo)
Cordialement