Ne pas charger userform si textbox non vide
Résolu/Fermé
A voir également:
- Ne pas charger userform si textbox non vide
- Coeur vide ✓ - Forum Facebook
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Supprimer page vide word - Guide
- Formule excel si cellule non vide alors couleur ✓ - Forum Excel
- Coeur vide ✓ - Forum Facebook
2 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
7 avril 2012 à 09:45
7 avril 2012 à 09:45
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
