Microsoft 365 Useform

Oneida

XLDnaute Impliqué

• 8 Avril 2023

• #2

Bonjour,
Tout a fait normal de pas avoir Userform cela depuis Excel 2011 environ.
Vous pouvez creer une Userform par programme.
Vous trouverez sur Google des infos a ce sujet, mais c'est un peu delicat a maitriser.
A vous de voir.

 

Vote positif 0 Vote négatif

stevevda

XLDnaute Junior

• 8 Avril 2023

• #3

Merci pour la réponse.
J'ai un peu cherché sur les forum dommage que ce module n'est pas disponible pour mac.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Avril 2023

• #4

bonjour

VB:

Sub ajoute_un_userform()
Set uf = ThisWorkbook.VBProject.VBComponents.Add(3)
End Sub

 

Vote positif 0 Vote négatif

stevevda

XLDnaute Junior

• 9 Avril 2023

• #5

patricktoulon à dit:

Sub ajoute_un_userform() Set uf = ThisWorkbook.VBProject.VBComponents.Add(3) End Sub

Cliquez pour agrandir...

Fonctionne pas ?.
Merci quand même.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Avril 2023

• #6

re
bonjour
si tu met le end sub sur la même ligne separe au moins l'instruction
Sub ajoute_un_userform() : Set uf = ThisWorkbook.VBProject.VBComponents.Add(3) : End Sub

 

Vote positif 0 Vote négatif

stevevda

XLDnaute Junior

• 9 Avril 2023

• #7

J'ai essayé ceci mais fonctionne pas...

sub Ajouter_UserForm() Dim NouveauUserForm As Object Set NouveauUserForm = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm) NouveauUserForm.Name = "MonUserForm" End Sub

 

Pièces jointes

• Classeur30.xlsm

  12.7 KB · Affichages: 3

Vote positif 0 Vote négatif