XL 2010 Ecrire résultat d'un userform dans cellules

[flstyle]

Bonjour ,


je souhaiterai que pour le résultat de mon userform2, noté dans "TextBox_Choix" après avoir utilisé le bouton "CommandButton1", soit copier, imbriquer ou dupliquer pour la cellule que j'active dans un code VBA de la feuille ("Fiche") où sont toutes les cellules que je souhaiterai activer.
J'active ma cellule comme ceci pour la cellule D14:

Private Sub Worksheet_BeforerightClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = "$D$14" Then
    UserForm2.Show
    Cancel = True
End If
End Sub

Mais le souci c'est que j'ai beaucoup de cellules à activer à part celle-la et donc beaucoup de résultat à dupliquer.

Voici en Pj un fichier test pour plus de facilité de compréhension.
Il y a beaucoup d'élément donc j'ai mis en rouge ce que je voulais dans la feuille "Fiche".


Vous seriez super si vous pourriez aider un amateur en VBA

Cordialement.

 

[gonz19]

salut,

la VBA n'apprécie gère les cellules fusionnées. je pense que ton problème vient de la.
Je pense qu'il faut revoir la mise en forme du classeur.

 

[flstyle]

Oui tu as raison mais je peux toujours crée un bouton ou dé-fusionner les cellules.
Le problème viens de la façon de faire que je ne trouve pas.
En clair, j'appuie sur un endroit de la cellule (bouton ou autre) --> Ouverture de l'UserForm2 --> Après avoir appuyer sur le bouton valider marque le résultat écris dans "TextBox_Choix" dans la cellule où j'ai appuyer préalablement.

Je connais pas cet formule, je débute sur VBA
Merci pour ta rapidité Gonz13 ^^

 

[gonz19]

dans userform2 tu rajoute ca

Private Sub CommandButton1_Click()
UserForm2.Hide ' cache l'userform2
End Sub

Dans ta feuille 4 voici le code modifé

Private Sub Worksheet_BeforerightClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 1 Then
UserForm2.Show
    'Cancel = True
    Target.Select
Target.Cells.Offset(0, 3) = UserForm2.TextBox_Choix.Value
Unload UserForm2 ' ferme l'userform2
End If

End Sub

 

[flstyle]

super ca marche nikel !! tu es au top .
Pour info j'ai du dédoublé la cellule D puis la refusionner pour l'esthétisme.

Private Sub Worksheet_BeforerightClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = "$D$14" Then
UserForm2.Show
    Cancel = True
    Target.Select
Target.Cells.Offset(0, 0) = UserForm2.TextBox_Choix.Value

Range("D14:D15").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge


End If

Merci encore