Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then
MsgBox "Vous devez impérativement cliquer sur un prénom !!!"
Else
Hôtesse = ListHôtesses.Value
Unload UserForm2
UserForm3.Show
End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas
de non sélection par l'utilisateur, le traitement soit bloqué...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
mbfac
Bonjour
en mettant un point d'arret sur la ligne if et en tapant ?ListHôtesses.Value dans la fenetre debug ça dit quoi ?
c'est peut etre null et pas chaine vide
Cordialement
Michel BERTRAND
"Yvan" a écrit dans le message de news:
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas de non sélection par l'utilisateur, le traitement soit bloqué...
-- Merci pour vos réponses.
Bonjour
en mettant un point d'arret sur la ligne if et en tapant ?ListHôtesses.Value
dans la fenetre debug ça dit quoi ?
c'est peut etre null et pas chaine vide
Cordialement
Michel BERTRAND
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
32D09798-25DC-4A17-98C7-22896412ED72@microsoft.com...
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then
MsgBox "Vous devez impérativement cliquer sur un prénom !!!"
Else
Hôtesse = ListHôtesses.Value
Unload UserForm2
UserForm3.Show
End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas
de non sélection par l'utilisateur, le traitement soit bloqué...
en mettant un point d'arret sur la ligne if et en tapant ?ListHôtesses.Value dans la fenetre debug ça dit quoi ?
c'est peut etre null et pas chaine vide
Cordialement
Michel BERTRAND
"Yvan" a écrit dans le message de news:
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas de non sélection par l'utilisateur, le traitement soit bloqué...
-- Merci pour vos réponses.
Yvan
Ca dit que je ne sais pas faire ce que tu me demandes... -- Merci pour vos réponses.
Bonjour
en mettant un point d'arret sur la ligne if et en tapant ?ListHôtesses.Value dans la fenetre debug ça dit quoi ?
c'est peut etre null et pas chaine vide
Cordialement
Michel BERTRAND
"Yvan" a écrit dans le message de news:
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas de non sélection par l'utilisateur, le traitement soit bloqué...
-- Merci pour vos réponses.
Ca dit que je ne sais pas faire ce que tu me demandes...
--
Merci pour vos réponses.
Bonjour
en mettant un point d'arret sur la ligne if et en tapant ?ListHôtesses.Value
dans la fenetre debug ça dit quoi ?
c'est peut etre null et pas chaine vide
Cordialement
Michel BERTRAND
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
32D09798-25DC-4A17-98C7-22896412ED72@microsoft.com...
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then
MsgBox "Vous devez impérativement cliquer sur un prénom !!!"
Else
Hôtesse = ListHôtesses.Value
Unload UserForm2
UserForm3.Show
End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas
de non sélection par l'utilisateur, le traitement soit bloqué...
Ca dit que je ne sais pas faire ce que tu me demandes... -- Merci pour vos réponses.
Bonjour
en mettant un point d'arret sur la ligne if et en tapant ?ListHôtesses.Value dans la fenetre debug ça dit quoi ?
c'est peut etre null et pas chaine vide
Cordialement
Michel BERTRAND
"Yvan" a écrit dans le message de news:
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas de non sélection par l'utilisateur, le traitement soit bloqué...
-- Merci pour vos réponses.
mbfac
Bonjour
Ca dit que je ne sais pas faire ce que tu me demandes... -- Merci pour vos réponses.
Bonjour
en mettant un point d'arret sur la ligne if
Grand principe de WINDOWS quand on sait pas ==> Clic droit sur ce qui pose probleme et on cherche dans tous les menus qq chose qui ressemble à point d'arret
et en tapant avec les touches du clavier ?ListHôtesses.Value
dans la fenetre debug ça dit quoi ?
c'est la zone ou il y a écrit execution en bas de la fenetre VB si elle n'y est pas il faut la encore explorer les menus pour trouver qq chose qui permette de voir cette fenetre execution
Bonne recherche @ +
Michel BERTRAND
c'est peut etre null et pas chaine vide
Cordialement
Michel BERTRAND
"Yvan" a écrit dans le message de news:
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas de non sélection par l'utilisateur, le traitement soit bloqué...
-- Merci pour vos réponses.
Bonjour
Ca dit que je ne sais pas faire ce que tu me demandes...
--
Merci pour vos réponses.
Bonjour
en mettant un point d'arret sur la ligne if
Grand principe de WINDOWS quand on sait pas ==> Clic droit sur ce qui pose
probleme et on cherche dans tous les menus qq chose qui ressemble à point
d'arret
et en tapant avec les touches du clavier ?ListHôtesses.Value
dans la fenetre debug ça dit quoi ?
c'est la zone ou il y a écrit execution en bas de la fenetre VB si elle n'y
est pas il faut la encore explorer les menus pour trouver qq chose qui
permette de voir cette fenetre execution
Bonne recherche
@ +
Michel BERTRAND
c'est peut etre null et pas chaine vide
Cordialement
Michel BERTRAND
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
32D09798-25DC-4A17-98C7-22896412ED72@microsoft.com...
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then
MsgBox "Vous devez impérativement cliquer sur un prénom !!!"
Else
Hôtesse = ListHôtesses.Value
Unload UserForm2
UserForm3.Show
End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en
cas
de non sélection par l'utilisateur, le traitement soit bloqué...
Ca dit que je ne sais pas faire ce que tu me demandes... -- Merci pour vos réponses.
Bonjour
en mettant un point d'arret sur la ligne if
Grand principe de WINDOWS quand on sait pas ==> Clic droit sur ce qui pose probleme et on cherche dans tous les menus qq chose qui ressemble à point d'arret
et en tapant avec les touches du clavier ?ListHôtesses.Value
dans la fenetre debug ça dit quoi ?
c'est la zone ou il y a écrit execution en bas de la fenetre VB si elle n'y est pas il faut la encore explorer les menus pour trouver qq chose qui permette de voir cette fenetre execution
Bonne recherche @ +
Michel BERTRAND
c'est peut etre null et pas chaine vide
Cordialement
Michel BERTRAND
"Yvan" a écrit dans le message de news:
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas de non sélection par l'utilisateur, le traitement soit bloqué...
-- Merci pour vos réponses.
papou
Bonjour
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Exit Sub Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
Cordialement Pascal
"Yvan" a écrit dans le message de news:
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas de non sélection par l'utilisateur, le traitement soit bloqué...
-- Merci pour vos réponses.
Bonjour
If ListHôtesses.Value = "" Then
MsgBox "Vous devez impérativement cliquer sur un prénom !!!"
Exit Sub
Else
Hôtesse = ListHôtesses.Value
Unload UserForm2
UserForm3.Show
End If
Cordialement
Pascal
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
32D09798-25DC-4A17-98C7-22896412ED72@microsoft.com...
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then
MsgBox "Vous devez impérativement cliquer sur un prénom !!!"
Else
Hôtesse = ListHôtesses.Value
Unload UserForm2
UserForm3.Show
End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas
de non sélection par l'utilisateur, le traitement soit bloqué...
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Exit Sub Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
Cordialement Pascal
"Yvan" a écrit dans le message de news:
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas de non sélection par l'utilisateur, le traitement soit bloqué...
-- Merci pour vos réponses.
Yvan
Ca ne fonctionne pas Pascal... -- Merci pour vos réponses.
Bonjour
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Exit Sub Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
Cordialement Pascal
"Yvan" a écrit dans le message de news:
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas de non sélection par l'utilisateur, le traitement soit bloqué...
-- Merci pour vos réponses.
Ca ne fonctionne pas Pascal...
--
Merci pour vos réponses.
Bonjour
If ListHôtesses.Value = "" Then
MsgBox "Vous devez impérativement cliquer sur un prénom !!!"
Exit Sub
Else
Hôtesse = ListHôtesses.Value
Unload UserForm2
UserForm3.Show
End If
Cordialement
Pascal
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
32D09798-25DC-4A17-98C7-22896412ED72@microsoft.com...
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then
MsgBox "Vous devez impérativement cliquer sur un prénom !!!"
Else
Hôtesse = ListHôtesses.Value
Unload UserForm2
UserForm3.Show
End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas
de non sélection par l'utilisateur, le traitement soit bloqué...
Ca ne fonctionne pas Pascal... -- Merci pour vos réponses.
Bonjour
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Exit Sub Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
Cordialement Pascal
"Yvan" a écrit dans le message de news:
Bonjour,
Voici les quelques lignes de code associées à un Userform :
Private Sub UserForm_Initialize()
ListHôtesses.RowSource = "Infos!Hôtesses"
End Sub
Private Sub CommandButton1_Click()
If ListHôtesses.Value = "" Then MsgBox "Vous devez impérativement cliquer sur un prénom !!!" Else Hôtesse = ListHôtesses.Value Unload UserForm2 UserForm3.Show End If
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
Mais le test sur la valeur du Listbox ne fonctionne pas. Je veux qu'en cas de non sélection par l'utilisateur, le traitement soit bloqué...
