XL 2019 Action sur un userform par Application.Run

[farid]

Bonjour à vous tous,
j'ai un fichier "Source supprime", à partir de ce fichier et en cliquant sur le bouton "GO", cela agit bien sur la macro "supprimerUnModule" des fichiers, et cela fonctionne sur tous les fichiers avec les modules à supprimer et lorsque la procédure arrive en fin de cycle un MSG terminer est affiché, jusqu'à là ça va.
Cependant, il y a quelques problèmes à savoir :
Si un des fichiers n'a pas le ou les modules à supprimer tel qui est écrit dans "Remove.Item-------" de la macro "supprimerUnModule" alors j'ai un bug sur le fichier concerné.
Les questions sont :
1- Est-ce possible lorsque le cycle a commencé en cliquent sur le bouton "GO" du classeur "Source supprime" et si des fichiers ne contient pas un ou plusieurs modules concernés par la macro "supprimerUnModule", que cela ne provoque pas un bug, mais que le processus puisse continuer jusqu'à la fin ?
2- Est-ce que la macro "supprimerUnModule" dans les classeurs 1/2/3...... Peut-être intégrer dans la macro même du module "Supprime" du classeur "Source supprime" ?

En vous remercient
Farid

 

[dysorthographie]

Bonjour,

Sub supprimerUnModule()
For Each M In ThisWorkbook.VBProject.VBComponents
If CBool(InStr("®Module1®®Module2®®Module3®", "®" & CStr(M.Name) & "®")) Then
With ThisWorkbook.VBProject.VBComponents
.Remove .Item(M.Name)
End With
End If
Next
End Sub

 

[farid]

Bonjour,

Bonjour dysorthographie,
merci beaucoup,
une petite question, c'est quoi le R encerclé,
merci

 

[dysorthographie]

Bonjour,
C'est un caractère qui n'existe pas sur le clavier.

Il permet un délimitation parfaite des feuilles concernées.
Par exemple
Module11;Module21;Module31
je pourrais supprimer le Module1 car il es inclus dans Module11

alors que ®Module1® n'est pas inclus dans ®Module11®

Je rajoute un caractère qui ne peut pas être saisi au clavier pour bien délimité le texte à rechercher.

 

[farid]

Bonjour,
C'est un caractère qui n'existe pas sur le clavier.

Il permet un délimitation parfaite des feuilles concernées.
Par exemple
Module11;Module21;Module31
je pourrais supprimer le Module1 car il es inclus dans Module11

alors que ®Module1® n'est pas inclus dans ®Module11®

Je rajoute un caractère qui ne peut pas être saisi au clavier pour bien délimité le texte à rechercher.

Bonsoir et merci pour ces explications et merci pour tout bien cordialement