Pop Up Userform : menu simple

Bonjour le Forum ,

Je n'ai pas trouvé de réponse à mon problème dans d'autres posts du forum ( peut-être qu'il est simple )

Je ne suis pas un grand expert de VBA , mais cette fois ci je sèche .

Apres avoir suivi la vidéo de Sébastien , j'ai réussi à intégrer un "userform modal" dans ma feuille ( qui ne bloque pas l'écriture dans celle - ci ).

Je voudrais créer une sorte de menu pour un planning et que la sélection intègre au clic la couleur et l'initiale , mon exemple :

menu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If actif Then 
'Selection.Interior.Color = frm_pop_up_jour.CommandButton1.BackColor

  Selection.Text = frm_pop_up_jour.TextBox_memoire.Text
  Selection.BackColor = frm_pop_up_jour.TextBox_memoire.BackColor

End If
End Sub

J'ai essayé plein de chose pour que les cellules prennent la valeur de mon choix de menu ( avec un textbox mémoire ) mais je bloque .

Auriez vous une piste ?

Merci à tous

19userform-modal.xlsm (20.86 Ko)

Résolu:

J'ai réussi à me corriger tout seul .

J'utilisé les " mauvais codes " pour sélection.

Sans vouloir faire de pub , je me suis aidé de ce que j'ai trouvé ici : mediaforma - sélection ( peut être à ajouter dans les cours du site Sébastien )

En PJ , le fichier corrigé

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If actif Then 'Selection.Interior.Color = frm_pop_up_jour.TextBox_memoire.BackColor

       Selection.Value = frm_pop_up_jour.TextBox_memoire.Text
       Selection.Interior.Color = frm_pop_up_jour.TextBox_memoire.BackColor

End If

End Sub
18userform-modal.xlsm (22.11 Ko)

bonjour,

Une solution très simple (en pièce jointe)

Le UserForm est déclaré nonModal dans sa fenêtre de propriété : C'est bien suffisant.

58clrplan.xlsm (24.47 Ko)

A+

Rechercher des sujets similaires à "pop userform menu simple"