Remplacer une donnée par une autre avec un Userform

Bonjour,

Nous avons rencontré un souci au niveau d'un Userform. En fait, nous n'arrivons pas à savoir quel nom nous devons mettre à la place de ComboBox1.Value sur la 4e ligne de notre code.

Nous cherchons à remplacer le mot que nous sélectionnons dans la ComboBox1 par un autre. Notre Userform est donc composé d'une ComboBox et d'une ListBox.

Comment faire pour que ce soit possible?

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Sheets("Carte").Select
Range("ComboBox1").Select

Archivage:

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = TextBox1.Value

ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TextBox2.Value

End Sub

Merci bien!

Bonjour Ninanou2009,

Bon il y a un "soucaye" dans l'utilisation des objets.

Il n'est à mon avis pas nécessaire de sélectionner une comboBox pour en extraire une valeur une fois la feuille sélectionnée.

Par exemple Range("A1").value=comboBox2.value ===> cela marche aussi bien.

Dans les propriétés de la ComboBox, tu as son nom : champ "(Name)" premier de la liste des propriétés.

Au plaisir.

Captain SOLO