UTILISATION IF AVEC VARIABLES

Fermé
stephbret56 Messages postés 186 Date d'inscription dimanche 27 janvier 2008 Statut Membre Dernière intervention 2 septembre 2011 - 24 juil. 2009 à 09:07
stephbret56 Messages postés 186 Date d'inscription dimanche 27 janvier 2008 Statut Membre Dernière intervention 2 septembre 2011 - 24 juil. 2009 à 09:31
Bonjour,
Je recherche la syntaxe vba du if suivant:

if var1 var2 var3 = "" then
msgbox "les variables sont vides"
endif

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 juil. 2009 à 09:14
bonjour
essaies
if var1+ var2+ var3 = "" then
msgbox "les variables sont vides"
end if
0
stephbret56 Messages postés 186 Date d'inscription dimanche 27 janvier 2008 Statut Membre Dernière intervention 2 septembre 2011 6
24 juil. 2009 à 09:31
Merci ça fonctionne

j'aurai besoin d'une aide sur la façon de continuer mon programme
Le programme et un UserForm qui fait appel à un programme externe sous certaine condition

Mon UserForm comporte 4 zones de saisie (des chiffres) les suivantes:

Private Sub CommandButton1_Click()
'Déclaration des variables de travail

Dim varcrayon As Variant
Dim vargomme As Variant
Dim varregle As Variant
Dim varcarton_papier As Variant

varcrayon = TextBox1
vargomme = TextBox2
varregle = TextBox3
varcarton_papier = TextBox4

Je dois tester s'il y a des choses de saisie dans les TextBox si aucune saisie j'envoie le message de la MsgBox
***J'aimerai Proposer a l'utilisateur l'option de choix suivant :
Voulez saisir un Stock clic sur oui ou clic sur non
Si l'utilisateur choisi non il faut que je sorte de la procédure sans exécuter le programme Gestion_de_Stock_Mod10
S'il choisi l'option oui il doit retrouver le UserForm de saisie

If vargomme + varregle + varcarton_papier + varcrayon = "" Then
MsgBox "il y a aucune saisie pour le Stock"

End If

Gestion_de_Stock_Mod10 varcrayon, vargomme, varregle, varcarton_papier
Unload Me
End Sub

Comment faire pour gérer ces choix???
0