Ne pas charger userform si textbox non vide
Résolu
mikadoo
-
mikadoo -
mikadoo -
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 Vos droits sur internet
- ♡ Coeur vide : Comment le faire ? (Solution !) ✓ - Forum Réseaux sociaux
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