userform

[chris 54]

bonjour les forumistes
une petite question simple( completer un code VBA) se trouve dans la pièce ci jointe...
si quelqu'un peut se pencher sur le sujet se serait super cool...
merci en attendant
chris54

 

[Robert]

Salut Chris, salut le forum

En pièce jointe ton fichier modifié. Je me suis permis de changer la ListBox1 par une ComboBox2 car je n'arrivais pas, à l'initialisation de l'Userform, à avoir la ListBox1 vide... J'espère que ça te conviendra.

À plus,

Robert

 

[H@nnoun]

Bonjour le forum Chris 54

voila dans l'userform tu change listbox par textbox

tu rentre ce code et c'est peut etre se que tu veux

Private Sub CommandButton4_Click()
ActiveCell.Value = ComboBox1.Value
Unload Me
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(-1, 1) = TextBox1.Value
End Sub

Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection
TextBox1 = Sheets("Feuil1").Range("B" & Me.ComboBox1.ListIndex + 2)
End Sub


A+ Hannoun

 

[chris 54]

merci pour vos réponses je vais exploiter ces dernières
bonne soirée à vous deux