ne pas charger userform si textbox non vide Résolu/Fermé

Question

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.


Configuration: Windows 7 / Firefox 11.0

f894009 · Answer

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

mikadoo · Answer

Impeccable, cela marche nickel. Exactement ce que je voulais.
Un grand merci pour ce script bien expliqué et compréhensible.

A+

Ne pas charger userform si textbox non vide

2 réponses

Discussions similaires