Insérer des valeurs (issu d'un userform) dans des cellules

Bonsoir à tous,

Je vous fait part d'une requête, car je suis perdu. J'ai commencé un bout de macro mais en vain...

Je souhaite réaliser que les cellules de B11 à B25, l'userform formé apparaisse et que je puisse choisir entre "TOTO" ou "TATA".

Lorsque le chois est fait, je clique sur le bouton de commande pour pouvoir inscrire la valeur dans la cellule.

Voici ce que j'ai commencé mais le résultat n'y es pas ... :

Dans la feuille : 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$11" Then UserForm1.Show 0
If Target.Address = "$B$12" Then UserForm1.Show 0
If Target.Address = "$B$13" Then UserForm1.Show 0
If Target.Address = "$B$14" Then UserForm1.Show 0
End Sub
Dans l'userform  : 

Private Sub CommandButton1_Click()
Range("$B$11").Value = "TOTO"

End Sub
3tests.xlsm (16.42 Ko)

Merci de votre aide par avance,

Hello,

Tu peux faire une zone de texte cachée dans ton formulaire. Tu y ajoutes l'adresse de ta cellule.

2tests.xlsm (17.97 Ko)

@Rag02700, merci de ton retour, mais je ne vois pas .

Pourrais-tu m'en dire plus, s'il te plait ?

Hello,

Il est sous le bouton TATA

Pour le voir il faut agrandir le userform

Mais il fait parti du userform même s'il ne se voit pas

Ah super, merci !

Bien à vous

Rechercher des sujets similaires à "inserer valeurs issu userform"