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 :
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 SubJ'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
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
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.
A+