Ne pas charger userform si textbox non vide
Résolu
mikadoo
-
mikadoo -
mikadoo -
Bonjour,
j'ai fait une macro auto_open pour afficher un userform qui, via un menu déroulant, permet d'afficher un nom de ville dans une textbox placée sur la feuille.
Ce que je recherche c'est que ce userform ne se charge pas à l'ouverture suivante du fichier si la personne a déjà renseigné ls textbox précédemment.
(J'utilise Excel 2010 mais en mode compatibilité pour fonctionner avec Office2003)
Merci.
j'ai fait une macro auto_open pour afficher un userform qui, via un menu déroulant, permet d'afficher un nom de ville dans une textbox placée sur la feuille.
Ce que je recherche c'est que ce userform ne se charge pas à l'ouverture suivante du fichier si la personne a déjà renseigné ls textbox précédemment.
(J'utilise Excel 2010 mais en mode compatibilité pour fonctionner avec Office2003)
Merci.
A voir également:
- Ne pas charger userform si textbox non vide
- Supprimer page word vide - Guide
- Caractere vide - Guide
- Coeur vide ✓ - Forum Facebook
- Formate pour taxer client frigo vide ✓ - Forum Matériel & Système
- Raccourci coeur blanc - Forum Facebook
2 réponses
Bonjour,
Sub Auto_open()
Dim Obj As OLEObject
'boucle sur les objets de la Feuil1-----> mettez le nom de votre feuille
For Each Obj In Sheets("Feuil1").OLEObjects
'verifie TextBox non vide
If TypeOf Obj.Object Is MSForms.TextBox And Obj.Object <> "" Then
'sortie
Exit Sub
End If
Next Obj
'mettez le nom de votre UF
UserForm1.Show
End Sub
Bonne suite
Sub Auto_open()
Dim Obj As OLEObject
'boucle sur les objets de la Feuil1-----> mettez le nom de votre feuille
For Each Obj In Sheets("Feuil1").OLEObjects
'verifie TextBox non vide
If TypeOf Obj.Object Is MSForms.TextBox And Obj.Object <> "" Then
'sortie
Exit Sub
End If
Next Obj
'mettez le nom de votre UF
UserForm1.Show
End Sub
Bonne suite