Microsoft 365 trouver code d'un userform existant

Adrien60 à dit:

s'il était possible de creer un userform normalement et de récupérer le code ?

Cliquez pour agrandir...

Option Explicit

Dim instances(1 To 5) As Object

Sub test()
Dim i&
  
   For i = 1 To 5
      Set instances(i) = New UserForm1
      With instances(i)
         .Label2 = i
         .Show vbModeless
         .Top = 100 + i * 60
         .Left = 100 + i * 60
      End With
   Next i
End Sub

mapomme à dit:

Bonjour @Adrien60,


Je ne le pense pas. Le code est interne à VBA.

Pour le fun :
Vous pouvez créer un userform complexe comme un userform normal (avec ces propriétés et ces contrôles). Dans le code de votre macro, vous pouvez créer une nouvelle instance de ce userform, modifier les propriétés de cette instance, y ajouter ou retirer des contrôles, etc.... Le plus gros du travail étant fait à la conception du Userform. Voir exemple joint.
Code dans module1 (on crée 5 instances à partir de UserForm1.

VB:

Option Explicit

Dim instances(1 To 5) As Object

Sub test()
Dim i&
 
   For i = 1 To 5
      Set instances(i) = New UserForm1
      With instances(i)
         .Label2 = i
         .Show vbModeless
         .Top = 100 + i * 60
         .Left = 100 + i * 60
      End With
   Next i
End Sub

Cliquez pour agrandir...

Adrien60 à dit:

je me demandais s'il était possible de creer un userform normalement et de récupérer le code ?

Cliquez pour agrandir...

• Exécutez le classeur joint : il ne se passe apparemment rien ...
  
• Dézippez le fichier zip dans le même dossier que le classeur et relancez celui-ci,
• vous allez bénéficier d'un userform déjà préparé ...

fanch55 à dit:

Salut,

Si l'userform a été créé et testé par les voies normales,
pourquoi ne pas l'exporter et l'importer au moment idoine dans les classeurs voulus ?

Un exemple en automatique pour le Fun :

• Exécutez le classeur joint : il ne se passe apparemment rien ...
  
• Dézippez le fichier zip dans le même dossier que le classeur et relancez celui-ci,
• vous allez bénéficier d'un userform déjà préparé ...

Cliquez pour agrandir...

Option Explicit
Dim obj As Object

Sub CreateUsf()
Dim i As Integer
Dim nbinstal As Integer
Dim Usf(1 To 10) As Object
Dim UsfName As String
 
nbinstal = ThisWorkbook.Sheets("Données").Cells(1, 1).Value
 
For i = 1 To nbinstal
    UsfName = ThisWorkbook.Sheets("Données").Cells(i + 1, 1).Value
    If UsfExist(UsfName) = False Then
        Set Usf(i) = New ModelUsf
            With Usf(i)
            .Label2 = i
            .Top = 100 + i * 60
            .Left = 100 + i * 60
            End With
    End If
    ShowAnyForm (UsfName)
Next i
End Sub

Sub ShowAnyForm(FormName As String, Optional Modal As FormShowConstants = vbModal)
 
        For Each obj In VBA.UserForms
            If StrComp(obj.Name, FormName, vbTextCompare) = 0 Then
                obj.Label1.Caption = "Form Already Loaded"
                obj.show Modal
                Exit Sub
            End If
        Next obj
          
        With VBA.UserForms
            On Error Resume Next
            Err.Clear
            Set obj = .Add(FormName)
            If Err.Number <> 0 Then
                MsgBox "Err: " & CStr(Err.Number) & "   " & Err.Description
                Exit Sub
            End If
            obj.show Modal
        End With
        
    
End Sub

Function UsfExist(UsfName As String, Optional classeur As String) As Boolean

Dim VBComp As VBComponent

On Error Resume Next
Set VBComp = ThisWorkbook.VBProject.VBComponents(UsfName)
If VBComp Is Nothing Then
UsfExist = False
Else
UsfExist = True
End If

End Function

Adrien60 à dit:

mon nombre de userform a creer est variable

Cliquez pour agrandir...

Sub test()
Dim i&, nbr As Long
   nbr = Val(InputBox("Nombre de fenêtre à créer ?:"))
   If nbr <= 0 Then Exit Sub
   ReDim instances(1 To nbr)
   For i = 1 To nbr
      Set instances(i) = New UserForm1
      With instances(i)
         .Label2 = i
         .Show vbModeless
         .Top = 100 + i * 60
         .Left = 100 + i * 60
      End With
   Next i
 
   'Plus tard -> Une supplémentaire
   nbr = nbr + 1
   ReDim Preserve instances(1 To nbr)
   Set instances(nbr) = New UserForm1
   instances(nbr).Label2 = nbr
   instances(nbr).Label3 = "Et une en bonus"
   instances(nbr).Show vbModeless
End Sub

mapomme à dit:

Voyez ce code comme un exemple de création à la volée.

VB:

Sub test()
Dim i&, nbr As Long
   nbr = Val(InputBox("Nombre de fenêtre à créer ?:"))
   If nbr <= 0 Then Exit Sub
   ReDim instances(1 To nbr)
   For i = 1 To nbr
      Set instances(i) = New UserForm1
      With instances(i)
         .Label2 = i
         .Show vbModeless
         .Top = 100 + i * 60
         .Left = 100 + i * 60
      End With
   Next i

   'Plus tard -> Une supplémentaire
   nbr = nbr + 1
   ReDim Preserve instances(1 To nbr)
   Set instances(nbr) = New UserForm1
   instances(nbr).Label2 = nbr
   instances(nbr).Label3 = "Et une en bonus"
   instances(nbr).Show vbModeless
End Sub

Cliquez pour agrandir...

Sub CreateUsf()
Dim i As Integer
Dim nbinstal As Integer
Dim UsfName As String
 
nbinstal = ThisWorkbook.Sheets("Données").Cells(1, 1).Value
If nbinstal <= 0 Then Exit Sub
   ReDim Usf(1 To nbinstal)
For i = 1 To nbinstal
    UsfName = ThisWorkbook.Sheets("Données").Cells(i + 1, 1).Value
    If UsfExist(UsfName) = False Then
        Set Usf(i) = New ModelUsf
            With Usf(i)
            .Label2 = i
            .Top = 100 + i * 60
            .Left = 100 + i * 60
            End With
    End If
    ShowAnyForm (UsfName)
Next i
End Sub

mapomme à dit:

Re,

Sans fichier comprenant le code et les données et le code de toutes les fonctions utilisées, je ne peux pas grand chose...
En général, avec l'erreur 424, on tente de manipuler quelque chose qui n'est pas un objet. mais qui devrait l'être. Mais sans fichier, c'est compliqué...

Cliquez pour agrandir...

Dranreb à dit:

Bonsoir.
J'ai créé un générateur d'UserForm à partir d'une liste de contrôles désirés.
Est-ce ce qui vous intéresse ?

Cliquez pour agrandir...

fanch55 à dit:

Re,
Les Usf de "classe" perdent leur nom et sont référençables uniquement par le nom d'objet donné au moment de leur création .

Exemple:

Set ChambreEnfant = new Chambre​

Set ChambreParent = new Chambre​

ChambreEnfant et ChambreParent doivent être déclarés en tant que Public dans un module.​

On peut par la suite dans les codes , les référencer correctement :​

ChambreEnfant.show​

Unload ChambreParent​

ChambreEnfant.label1 = ...​

etc ...​

Effectivement, s'il y a beaucoup d'Usf à créér,
on est tenté de les "rassembler" dans un tableau:

​

redim preserve Chambres ( 1 to ...)​

set Chambres(1) = new Chambre​

etc ...​

On doit également déclarer le tableau en Public pour y faire référence plus tard .​

Et là, on découvre qu'on ne se rappelle plus ce que sont les chambres(1) ou chambres(n) :​

Chambres(1).show​

Chambres(25).hide​

etc ...​

​

Nota:​

Il ne faut pas retrouver le nom de l'userform dans le code de ce dernier, mais le désigner par ME de préférence .​

​

Cliquez pour agrandir...

sousou à dit:

Bonjour à tous.
Pas sur que cela t'aide, mais ce fichier construit une base ou des bases de données avec les userforms associés peur-être que quelques lignes de code pourront t'inspirer

Cliquez pour agrandir...