Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que sa
fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing And
Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row + 1)
= Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que sa
fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing And
Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row + 1)
= Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que sa
fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing And
Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row + 1)
= Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" a écrit dans le message de
news:er0%23$Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que sa
fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row + 1)
= Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" <denys9@hotmail.com> a écrit dans le message de
news:er0%23$3v1HHA.3916@TK2MSFTNGP02.phx.gbl...
Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que sa
fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row + 1)
= Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" a écrit dans le message de
news:er0%23$Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que sa
fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row + 1)
= Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Salut Denis,
ceci fonctionne parfaitement.
Peut être n'avais-tu pas recu mon dernier message.
Youky
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("A" & [BD!A65536].End(3).Row + 1) = Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing And
Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row + 1)
= Target
End If
End Sub
Salut Denis,
ceci fonctionne parfaitement.
Peut être n'avais-tu pas recu mon dernier message.
Youky
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("A" & [BD!A65536].End(3).Row + 1) = Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing And
Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row + 1)
= Target
End If
End Sub
Salut Denis,
ceci fonctionne parfaitement.
Peut être n'avais-tu pas recu mon dernier message.
Youky
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("A" & [BD!A65536].End(3).Row + 1) = Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing And
Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row + 1)
= Target
End If
End Sub
Bonjour Philippe R
voici le fichier
http://cjoint.com/?ifscFgK5he
et la ligne qui bug
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) = Target.Value
pour recréer cette erreur va dans l'onglet BD et efface les personnes qui
sont la
merci beaucoup pour ton aide
Denis
"Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote in message
news:Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" a écrit dans le message de
news:er0%23$Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que
sa fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row +
1) = Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Bonjour Philippe R
voici le fichier
http://cjoint.com/?ifscFgK5he
et la ligne qui bug
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) = Target.Value
pour recréer cette erreur va dans l'onglet BD et efface les personnes qui
sont la
merci beaucoup pour ton aide
Denis
"Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote in message
news:ugMIIEy1HHA.3916@TK2MSFTNGP02.phx.gbl...
Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" <denys9@hotmail.com> a écrit dans le message de
news:er0%23$3v1HHA.3916@TK2MSFTNGP02.phx.gbl...
Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que
sa fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row +
1) = Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Bonjour Philippe R
voici le fichier
http://cjoint.com/?ifscFgK5he
et la ligne qui bug
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) = Target.Value
pour recréer cette erreur va dans l'onglet BD et efface les personnes qui
sont la
merci beaucoup pour ton aide
Denis
"Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote in message
news:Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" a écrit dans le message de
news:er0%23$Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que
sa fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row +
1) = Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Bonjour Philippe R
voici le fichier
http://cjoint.com/?ifscFgK5he
et la ligne qui bug
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) = Target.Value
pour recréer cette erreur va dans l'onglet BD et efface les personnes qui
sont la
merci beaucoup pour ton aide
Denis
"Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote in message
news:Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" a écrit dans le message de
news:er0%23$Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que
sa fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row +
1) = Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Bonjour Philippe R
voici le fichier
http://cjoint.com/?ifscFgK5he
et la ligne qui bug
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) = Target.Value
pour recréer cette erreur va dans l'onglet BD et efface les personnes qui
sont la
merci beaucoup pour ton aide
Denis
"Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote in message
news:ugMIIEy1HHA.3916@TK2MSFTNGP02.phx.gbl...
Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" <denys9@hotmail.com> a écrit dans le message de
news:er0%23$3v1HHA.3916@TK2MSFTNGP02.phx.gbl...
Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que
sa fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row +
1) = Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Bonjour Philippe R
voici le fichier
http://cjoint.com/?ifscFgK5he
et la ligne qui bug
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) = Target.Value
pour recréer cette erreur va dans l'onglet BD et efface les personnes qui
sont la
merci beaucoup pour ton aide
Denis
"Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote in message
news:Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" a écrit dans le message de
news:er0%23$Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture ce
qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que
sa fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la suite
quand j'essai de faire une nouvelle entrée je recoit un message d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value, [BdClients],
2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value, [BdClients],
3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value, [BdClients],
4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row +
1) = Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Re Denis,
Dans le lien, c'est ton adresse que tu as collé ; mais pas grave puisque
si j'ai bien suivi, tu as la solution par Youky.
--
Philippe.R
"Denis Levesque" a écrit dans le message de
news:Bonjour Philippe R
voici le fichier
http://cjoint.com/?ifscFgK5he
et la ligne qui bug
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
pour recréer cette erreur va dans l'onglet BD et efface les personnes qui
sont la
merci beaucoup pour ton aide
Denis
"Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote in message
news:Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" a écrit dans le message de
news:er0%23$Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture
ce qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que
sa fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la
suite
quand j'essai de faire une nouvelle entrée je recoit un message
d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value,
[BdClients], 2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value,
[BdClients], 3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value,
[BdClients], 4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row +
1) = Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Re Denis,
Dans le lien, c'est ton adresse que tu as collé ; mais pas grave puisque
si j'ai bien suivi, tu as la solution par Youky.
--
Philippe.R
"Denis Levesque" <denys9@hotmail.com> a écrit dans le message de
news:u4Bhep31HHA.5884@TK2MSFTNGP02.phx.gbl...
Bonjour Philippe R
voici le fichier
http://cjoint.com/?ifscFgK5he
et la ligne qui bug
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
pour recréer cette erreur va dans l'onglet BD et efface les personnes qui
sont la
merci beaucoup pour ton aide
Denis
"Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote in message
news:ugMIIEy1HHA.3916@TK2MSFTNGP02.phx.gbl...
Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" <denys9@hotmail.com> a écrit dans le message de
news:er0%23$3v1HHA.3916@TK2MSFTNGP02.phx.gbl...
Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture
ce qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que
sa fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la
suite
quand j'essai de faire une nouvelle entrée je recoit un message
d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value,
[BdClients], 2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value,
[BdClients], 3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value,
[BdClients], 4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row +
1) = Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque
Re Denis,
Dans le lien, c'est ton adresse que tu as collé ; mais pas grave puisque
si j'ai bien suivi, tu as la solution par Youky.
--
Philippe.R
"Denis Levesque" a écrit dans le message de
news:Bonjour Philippe R
voici le fichier
http://cjoint.com/?ifscFgK5he
et la ligne qui bug
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
pour recréer cette erreur va dans l'onglet BD et efface les personnes qui
sont la
merci beaucoup pour ton aide
Denis
"Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote in message
news:Bonjour Denis,
Quelle est la ligne de code surlignée par le deboggueur ?
Tu pourrais peut être déposer un extrait du fichier sur cjoint (en ayant
retiré les données confidentielles), histoire qu'on puisse tester ?
--
Philippe.R
"Denis Levesque" a écrit dans le message de
news:er0%23$Bonjour a tous
J'ai toujours le meme probleme avec mon menu déroulant
J'ai un onglet FACTURE et un onglet BD
L'onglet FACTURE contient la facture avec le menu déroulant
il me permet de sélectionné une personne et l'intégré dans ma facture
ce qui
est génial.
Il me permet aussi de rajouté des personnes.
dans l'onglet BD il y a les noms des personnes adresse etc.
si je modifie enleve toute les lignes ou enleve une ligne c'est la que
sa fonctionne plus lorsque j'essai de rajouter quelqu'un d'autre.
a: si j'enlève une ligne parce que la personne n'exite plus par la
suite
quand j'essai de faire une nouvelle entrée je recoit un message
d'erreur
1004
erreur d'exécution. et sa marche plus.
Je pense que je doit resetter une ou des variables mais je sais pas
comment faire.
voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
Set adrnom = Worksheets("Facture").Range("B8")
If adrnom = "" Then
Application.EnableEvents = False
Sheets("Facture").Range("B9:B11").ClearContents
Application.EnableEvents = True
Exit Sub
End If
If Target.Address = adrnom.Address And Target.Count = 1 Then
Application.EnableEvents = False
If IsError(Application.Match(Target.Value, [ListeClients], 0)) Then
Sheets("BD").Range("ListeClients").End(xlDown).Offset(1, 0) =
Target.Value
Sheets("BD").Range("BdClients").Sort
key1:=Sheets("BD").Range("ListeClients")(1)
adrnom.Offset(1, 0).Resize(3, 1).ClearContents
Else
Target.Offset(1, 0) = Application.VLookup(Target.Value,
[BdClients], 2, False)
Target.Offset(2, 0) = Application.VLookup(Target.Value,
[BdClients], 3, False)
Target.Offset(3, 0) = Application.VLookup(Target.Value,
[BdClients], 4, False)
End If
Application.EnableEvents = True
End If
If Not Intersect(adrnom.Offset(1, 0).Resize(3, 1), Target) Is Nothing
And Target.Count = 1 Then
p = Application.Match([adrnom], [ListeClients], 0)
Sheets("BD").Range("BdClients").Cells(p, Target.Row - adrnom.Row +
1) = Target
End If
End Sub
merci beaucoup pour votre aide
Denis Levesque