Mettre en pause une macro lors d'un Userform non modal

Bonjour,

Je réalise une macro VBA. Avant de faire des traitements, je souhaite verifier que mon fichier de Data est en bon ordre.
(la personne qui envoie le fichier de data ne sais pas qu'il va être utilisé par une macro. Ce fichier peut donc être modifié).
Je souhaite notamment vérifier si les colonnes sont dans le même ordre que celui que j'attends.

On va dire,
colonne A : Nom
Colonne B : Prénom
Colonne C : Matricule
Colonne D : Valeur

voila l'ordre que j'attends.

Je ne peux pas faire de vérification automatique de l'ordre des colonnes car les titre des colonne ne sont pas vraiment normé. Par exemple la Colonne C : "Matricule" pourrais être remplacé par "Mat".
Donc j'ai pensé que l'utilisateur pourrais faire la vérification lui même.
Il faudrait que s'affiche un message :
"Vérifiez que l'ordre des colonnes est bien,
colonne A : Nom
Colonne B : Prénom
Colonne C : Matricule
Colonne D : Valeur
Corrigez si nécessaire"

Mais Si je fait un simple messagebox, il est impossible de faire de modification sur le fichier en même temps.
J'ai donc pensé à un Userform en mode non modal.
Mais le problème c'est que le code ne s'arrête pas en mode non modal. La macro va continuer sans attendre que l'utilisateur ait cliqué sur le bouton continuer.
Comment résoudre ce problème ?

Salut,

Tu peux t'en sortir sans trop de difficultés.

Tu crées un useform avec 1 liste déroulantes,

Avec des chiffres de 1 à 4 et une textbox que tu rempliras au fur et à mesure avec le nom des colonnes que tu veux,

Dans un module tu crées une fonction,
Tu boucles en demandant à l'utilisateur de dire en quelle colonne se situe actuellement la première données,

Si elle n'est pas bien située, tu fais un couper la colonne puis insérer.

On est donc bien d'accord que l'utilisateur doit pouvoir avoir accès au fichier pour voir quel est le nom des colonnes. Or si on ne peu pas a cause Dun userform modal qui empêche de scroller ca bloque tout. C'est pour ca que je voulais pouvoir laisser a l'utilisateur la possibilité d'agir sur le fichier.

Bonjour,

il te faut faire une boucle ... conditionnée par exemple par la visibilité de ton userform :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Bouton1_Cliquer() If UserForm1.Visible Then UserForm1.Hide Else UserForm1.Show 0 While UserForm1.Visible DoEvents Wend End If   End Sub

---

Bonjour,
si tes colonne existe toute dans ton fichier Excel, tu peux avec un [Dictionary] repairer l'ordre de tes colonne! ainsi tu écris dans ta colonne en l'appelant par son nom sens te poser de question sur l'ordre des colonnes!

Code:

---

1 2 3 4 5 6 7 8 9

Sub Test() Dim dico As Object, R As Range, C As Integer Set dico = CreateObject("Scripting.Dictionary") Set R = ActiveSheet.UsedRange For C = 1 To R.Columns.Count If dico.exists(Trim("" & R(1, C))) = False Then dico.Add Trim("" & R(1, C)), C Next Cells(12, dico.Item("System Exploitation")) = "toto" 'ici on place le nom de la colonne! End Sub

---

si tu effectue un traitement similaire sur la source et la cible!

Code:

---

Cells(12, dicoCible.Item("System Exploitation")) =Cells(12, dicoSource.Item("System Exploitation"))

---

la source peut ce trouvé en colonne 4 et la cible en colonne 2 ça n'a aucune espèce d’importance!

j'ai résolu mon problème de colonne.
Par contre je suis très intéressé par ce qu'a dis ddil sur la boucle. Mais je n'ai pas compris le fonctionnement.
Dans la suite de ma macro, je verifie une liste de nom a par rapport a une autre. Si il y a des nom que je ne trouve pas je les affiche en rouge, et quand j'ai parcouru toute la liste, j'affiche un userform qui dis a l'utilisateur de corriger les case en rouge.
J'avais pensé faire quelque chose comme ça

Code:

---

1 2 3 4

Urf_ErreurNom.Show vbModeless Do Loop While Urf_ErreurNom.Visible

---

En gros j'affiche mon userform en mode non modal.(je laisse donc la possibilité a l'utilisateur de faire des corrections sur la feuille)
Mais j'empeche la macro d'aller plus loin en faisant une boucle infini tant que le userform n'est pas caché.
Sur ce userform j'ai justement un bouton qui quand je clique dessus est sensé caché le userform

dans le userform

Code:

---

1 2 3 4

Private Sub CommandButton_Suivant_Click() Me.Hide End Sub

---

une fois le userform caché ça peux continuer.

Malheureusement ça plante. (application de réponds pas) j'ai la fenêtre de userform qui s'ouvre. mais elle est vierge. il semblerais que ça bloque avant de charger le message et le bouton.

bonjour,

relis mon code tu as oublié le DoEvents...

javais bien vu mais je ne comprends pas son foncionnement

tu as essayé l'aide en ligne ( :f1: ) sur doEvents ?

doEvents permet de libérer temps pour laisser windows le temps de traiter les événements pendant le déroulement de ta boucle .. événements tels que clics sur souris par exemple..

J'ai réussi a me servir du doEvent. c'est effectivement exactement la solution qui me fallait. Merci