je suis confronté au problème suivant :
colonne A de la feuille "Clients" le nom des sociétés.
par l'intermédiaire d'un Inputbox je demande le nom d'un client
si le client existe je récupère son nom dans C4 de la feuille "Facture"
sinon je souhaite une msgbox m'avertissant client inconnu.
Voici mon code :
Sub societe_a_facurer()
societe = InputBox("Nom de la société à facturer :")
Sheets("CLIENTS").Select
Range("A2").Select
Do While ActiveCell <> ""
Do While ActiveCell = societe
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Facture").Select
Range("C4").Select
ActiveCell = societe
GoTo fin
ActiveCell.Offset(1, 0).Select
Loop
MsgBox ("Client inconnu")
fin:
End Sub
Que le client existe ou pas même résultat.
Moi pas trouvé.
Merci pour vos trouvailles
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
Jacky
Bonjour,
Que le client existe ou pas même résultat.
Plus de problème de ce genre avec une simple liste de validation, sans vba Je te propose ceci. Voir ici: http://cjoint.com/?hulprJevlL
-- Salutations JJ
"jacques77" a écrit dans le message de news: 4882f35e$0$883$
Bonjour aux membres de mpfe,
je suis confronté au problème suivant : colonne A de la feuille "Clients" le nom des sociétés. par l'intermédiaire d'un Inputbox je demande le nom d'un client si le client existe je récupère son nom dans C4 de la feuille "Facture" sinon je souhaite une msgbox m'avertissant client inconnu. Voici mon code :
Sub societe_a_facurer() societe = InputBox("Nom de la société à facturer :") Sheets("CLIENTS").Select Range("A2").Select Do While ActiveCell <> "" Do While ActiveCell = societe ActiveCell.Offset(1, 0).Select Loop Sheets("Facture").Select Range("C4").Select ActiveCell = societe GoTo fin ActiveCell.Offset(1, 0).Select Loop MsgBox ("Client inconnu") fin: End Sub
Que le client existe ou pas même résultat. Moi pas trouvé. Merci pour vos trouvailles
Jacques
Bonjour,
Que le client existe ou pas même résultat.
Plus de problème de ce genre avec une simple liste de validation, sans vba
Je te propose ceci.
Voir ici:
http://cjoint.com/?hulprJevlL
--
Salutations
JJ
"jacques77" <jgerain@wanadoo.fr> a écrit dans le message de news:
4882f35e$0$883$ba4acef3@news.orange.fr...
Bonjour aux membres de mpfe,
je suis confronté au problème suivant :
colonne A de la feuille "Clients" le nom des sociétés.
par l'intermédiaire d'un Inputbox je demande le nom d'un client
si le client existe je récupère son nom dans C4 de la feuille "Facture"
sinon je souhaite une msgbox m'avertissant client inconnu.
Voici mon code :
Sub societe_a_facurer()
societe = InputBox("Nom de la société à facturer :")
Sheets("CLIENTS").Select
Range("A2").Select
Do While ActiveCell <> ""
Do While ActiveCell = societe
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Facture").Select
Range("C4").Select
ActiveCell = societe
GoTo fin
ActiveCell.Offset(1, 0).Select
Loop
MsgBox ("Client inconnu")
fin:
End Sub
Que le client existe ou pas même résultat.
Moi pas trouvé.
Merci pour vos trouvailles
Plus de problème de ce genre avec une simple liste de validation, sans vba Je te propose ceci. Voir ici: http://cjoint.com/?hulprJevlL
-- Salutations JJ
"jacques77" a écrit dans le message de news: 4882f35e$0$883$
Bonjour aux membres de mpfe,
je suis confronté au problème suivant : colonne A de la feuille "Clients" le nom des sociétés. par l'intermédiaire d'un Inputbox je demande le nom d'un client si le client existe je récupère son nom dans C4 de la feuille "Facture" sinon je souhaite une msgbox m'avertissant client inconnu. Voici mon code :
Sub societe_a_facurer() societe = InputBox("Nom de la société à facturer :") Sheets("CLIENTS").Select Range("A2").Select Do While ActiveCell <> "" Do While ActiveCell = societe ActiveCell.Offset(1, 0).Select Loop Sheets("Facture").Select Range("C4").Select ActiveCell = societe GoTo fin ActiveCell.Offset(1, 0).Select Loop MsgBox ("Client inconnu") fin: End Sub
Que le client existe ou pas même résultat. Moi pas trouvé. Merci pour vos trouvailles
Jacques
Jacky
Re... Une erreur s'est glissée dans la définition du nom Voir ici avec 2 possibilités une(c4) en vba et une autre(c5) sans vba http://cjoint.com/?humzHvd8c3 '----------- Sub jj() societe = InputBox("Nom de la société à facturer :") If societe = "" Then Exit Sub For Each c In [NomClient] If UCase(societe) = UCase(c) Then Sheets("Facture").[c4] = c Exit Sub End If Next MsgBox ("Client inconnu") End Sub '------------ -- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour,
Que le client existe ou pas même résultat.
Plus de problème de ce genre avec une simple liste de validation, sans vba Je te propose ceci. Voir ici: http://cjoint.com/?hulprJevlL
-- Salutations JJ
"jacques77" a écrit dans le message de news: 4882f35e$0$883$
Bonjour aux membres de mpfe,
je suis confronté au problème suivant : colonne A de la feuille "Clients" le nom des sociétés. par l'intermédiaire d'un Inputbox je demande le nom d'un client si le client existe je récupère son nom dans C4 de la feuille "Facture" sinon je souhaite une msgbox m'avertissant client inconnu. Voici mon code :
Sub societe_a_facurer() societe = InputBox("Nom de la société à facturer :") Sheets("CLIENTS").Select Range("A2").Select Do While ActiveCell <> "" Do While ActiveCell = societe ActiveCell.Offset(1, 0).Select Loop Sheets("Facture").Select Range("C4").Select ActiveCell = societe GoTo fin ActiveCell.Offset(1, 0).Select Loop MsgBox ("Client inconnu") fin: End Sub
Que le client existe ou pas même résultat. Moi pas trouvé. Merci pour vos trouvailles
Jacques
Re...
Une erreur s'est glissée dans la définition du nom
Voir ici avec 2 possibilités une(c4) en vba et une autre(c5) sans vba
http://cjoint.com/?humzHvd8c3
'-----------
Sub jj()
societe = InputBox("Nom de la société à facturer :")
If societe = "" Then Exit Sub
For Each c In [NomClient]
If UCase(societe) = UCase(c) Then
Sheets("Facture").[c4] = c
Exit Sub
End If
Next
MsgBox ("Client inconnu")
End Sub
'------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
uSa1gmk6IHA.1192@TK2MSFTNGP05.phx.gbl...
Bonjour,
Que le client existe ou pas même résultat.
Plus de problème de ce genre avec une simple liste de validation, sans vba
Je te propose ceci.
Voir ici:
http://cjoint.com/?hulprJevlL
--
Salutations
JJ
"jacques77" <jgerain@wanadoo.fr> a écrit dans le message de news:
4882f35e$0$883$ba4acef3@news.orange.fr...
Bonjour aux membres de mpfe,
je suis confronté au problème suivant :
colonne A de la feuille "Clients" le nom des sociétés.
par l'intermédiaire d'un Inputbox je demande le nom d'un client
si le client existe je récupère son nom dans C4 de la feuille "Facture"
sinon je souhaite une msgbox m'avertissant client inconnu.
Voici mon code :
Sub societe_a_facurer()
societe = InputBox("Nom de la société à facturer :")
Sheets("CLIENTS").Select
Range("A2").Select
Do While ActiveCell <> ""
Do While ActiveCell = societe
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Facture").Select
Range("C4").Select
ActiveCell = societe
GoTo fin
ActiveCell.Offset(1, 0).Select
Loop
MsgBox ("Client inconnu")
fin:
End Sub
Que le client existe ou pas même résultat.
Moi pas trouvé.
Merci pour vos trouvailles
Re... Une erreur s'est glissée dans la définition du nom Voir ici avec 2 possibilités une(c4) en vba et une autre(c5) sans vba http://cjoint.com/?humzHvd8c3 '----------- Sub jj() societe = InputBox("Nom de la société à facturer :") If societe = "" Then Exit Sub For Each c In [NomClient] If UCase(societe) = UCase(c) Then Sheets("Facture").[c4] = c Exit Sub End If Next MsgBox ("Client inconnu") End Sub '------------ -- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour,
Que le client existe ou pas même résultat.
Plus de problème de ce genre avec une simple liste de validation, sans vba Je te propose ceci. Voir ici: http://cjoint.com/?hulprJevlL
-- Salutations JJ
"jacques77" a écrit dans le message de news: 4882f35e$0$883$
Bonjour aux membres de mpfe,
je suis confronté au problème suivant : colonne A de la feuille "Clients" le nom des sociétés. par l'intermédiaire d'un Inputbox je demande le nom d'un client si le client existe je récupère son nom dans C4 de la feuille "Facture" sinon je souhaite une msgbox m'avertissant client inconnu. Voici mon code :
Sub societe_a_facurer() societe = InputBox("Nom de la société à facturer :") Sheets("CLIENTS").Select Range("A2").Select Do While ActiveCell <> "" Do While ActiveCell = societe ActiveCell.Offset(1, 0).Select Loop Sheets("Facture").Select Range("C4").Select ActiveCell = societe GoTo fin ActiveCell.Offset(1, 0).Select Loop MsgBox ("Client inconnu") fin: End Sub
Que le client existe ou pas même résultat. Moi pas trouvé. Merci pour vos trouvailles
Jacques
jacques77
Merci Jacky. J'explore ta macro pour essayer de bien la comprendre.
Cordialement Jacques "Jacky" a écrit dans le message de news:
Re... Une erreur s'est glissée dans la définition du nom Voir ici avec 2 possibilités une(c4) en vba et une autre(c5) sans vba http://cjoint.com/?humzHvd8c3 '----------- Sub jj() societe = InputBox("Nom de la société à facturer :") If societe = "" Then Exit Sub For Each c In [NomClient] If UCase(societe) = UCase(c) Then Sheets("Facture").[c4] = c Exit Sub End If Next MsgBox ("Client inconnu") End Sub '------------ -- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour,
Que le client existe ou pas même résultat.
Plus de problème de ce genre avec une simple liste de validation, sans vba Je te propose ceci. Voir ici: http://cjoint.com/?hulprJevlL
-- Salutations JJ
"jacques77" a écrit dans le message de news: 4882f35e$0$883$
Bonjour aux membres de mpfe,
je suis confronté au problème suivant : colonne A de la feuille "Clients" le nom des sociétés. par l'intermédiaire d'un Inputbox je demande le nom d'un client si le client existe je récupère son nom dans C4 de la feuille "Facture" sinon je souhaite une msgbox m'avertissant client inconnu. Voici mon code :
Sub societe_a_facurer() societe = InputBox("Nom de la société à facturer :") Sheets("CLIENTS").Select Range("A2").Select Do While ActiveCell <> "" Do While ActiveCell = societe ActiveCell.Offset(1, 0).Select Loop Sheets("Facture").Select Range("C4").Select ActiveCell = societe GoTo fin ActiveCell.Offset(1, 0).Select Loop MsgBox ("Client inconnu") fin: End Sub
Que le client existe ou pas même résultat. Moi pas trouvé. Merci pour vos trouvailles
Jacques
Merci Jacky. J'explore ta macro pour essayer de bien la comprendre.
Cordialement
Jacques
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eB1qcOl6IHA.1200@TK2MSFTNGP04.phx.gbl...
Re...
Une erreur s'est glissée dans la définition du nom
Voir ici avec 2 possibilités une(c4) en vba et une autre(c5) sans vba
http://cjoint.com/?humzHvd8c3
'-----------
Sub jj()
societe = InputBox("Nom de la société à facturer :")
If societe = "" Then Exit Sub
For Each c In [NomClient]
If UCase(societe) = UCase(c) Then
Sheets("Facture").[c4] = c
Exit Sub
End If
Next
MsgBox ("Client inconnu")
End Sub
'------------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
uSa1gmk6IHA.1192@TK2MSFTNGP05.phx.gbl...
Bonjour,
Que le client existe ou pas même résultat.
Plus de problème de ce genre avec une simple liste de validation, sans vba
Je te propose ceci.
Voir ici:
http://cjoint.com/?hulprJevlL
--
Salutations
JJ
"jacques77" <jgerain@wanadoo.fr> a écrit dans le message de news:
4882f35e$0$883$ba4acef3@news.orange.fr...
Bonjour aux membres de mpfe,
je suis confronté au problème suivant :
colonne A de la feuille "Clients" le nom des sociétés.
par l'intermédiaire d'un Inputbox je demande le nom d'un client
si le client existe je récupère son nom dans C4 de la feuille "Facture"
sinon je souhaite une msgbox m'avertissant client inconnu.
Voici mon code :
Sub societe_a_facurer()
societe = InputBox("Nom de la société à facturer :")
Sheets("CLIENTS").Select
Range("A2").Select
Do While ActiveCell <> ""
Do While ActiveCell = societe
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Facture").Select
Range("C4").Select
ActiveCell = societe
GoTo fin
ActiveCell.Offset(1, 0).Select
Loop
MsgBox ("Client inconnu")
fin:
End Sub
Que le client existe ou pas même résultat.
Moi pas trouvé.
Merci pour vos trouvailles
Merci Jacky. J'explore ta macro pour essayer de bien la comprendre.
Cordialement Jacques "Jacky" a écrit dans le message de news:
Re... Une erreur s'est glissée dans la définition du nom Voir ici avec 2 possibilités une(c4) en vba et une autre(c5) sans vba http://cjoint.com/?humzHvd8c3 '----------- Sub jj() societe = InputBox("Nom de la société à facturer :") If societe = "" Then Exit Sub For Each c In [NomClient] If UCase(societe) = UCase(c) Then Sheets("Facture").[c4] = c Exit Sub End If Next MsgBox ("Client inconnu") End Sub '------------ -- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour,
Que le client existe ou pas même résultat.
Plus de problème de ce genre avec une simple liste de validation, sans vba Je te propose ceci. Voir ici: http://cjoint.com/?hulprJevlL
-- Salutations JJ
"jacques77" a écrit dans le message de news: 4882f35e$0$883$
Bonjour aux membres de mpfe,
je suis confronté au problème suivant : colonne A de la feuille "Clients" le nom des sociétés. par l'intermédiaire d'un Inputbox je demande le nom d'un client si le client existe je récupère son nom dans C4 de la feuille "Facture" sinon je souhaite une msgbox m'avertissant client inconnu. Voici mon code :
Sub societe_a_facurer() societe = InputBox("Nom de la société à facturer :") Sheets("CLIENTS").Select Range("A2").Select Do While ActiveCell <> "" Do While ActiveCell = societe ActiveCell.Offset(1, 0).Select Loop Sheets("Facture").Select Range("C4").Select ActiveCell = societe GoTo fin ActiveCell.Offset(1, 0).Select Loop MsgBox ("Client inconnu") fin: End Sub
Que le client existe ou pas même résultat. Moi pas trouvé. Merci pour vos trouvailles