Bonsoir
j'essaie de bricoler laborieusement cela :
Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse les
variables MavarX
les une dérières les autres.
Je vous remercie pour votre aide
Arnaud
Private Sub TextBox1_Change()
On Error Resume Next
varNum = TextBox1.Value
TextBox2.Value = Range("Nir").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar1 = Range("ville_1").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar2 = Range("ville_2").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar3 = Range("ville_3").Item(Application.Match(varNum,
Range("Code_postal"), 0))
'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ???
'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ???
End Sub
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
anonymousA
bonjour,
les variables Mavar sont des objets Range. Il faut donc les traiter comme telles vu du ListBox1. si tu veux seulement les valeurs des Mavar collées les unes aux autres , il faut écrire ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox de que il y avait avant mais peut-être est-ce voulu de le conserver. A toi de voir.
A+
Bonsoir j'essaie de bricoler laborieusement cela : Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse les variables MavarX les une dérières les autres. Je vous remercie pour votre aide Arnaud
Private Sub TextBox1_Change() On Error Resume Next varNum = TextBox1.Value TextBox2.Value = Range("Nir").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar1 = Range("ville_1").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar2 = Range("ville_2").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar3 = Range("ville_3").Item(Application.Match(varNum, Range("Code_postal"), 0)) 'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ??? 'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ??? End Sub
bonjour,
les variables Mavar sont des objets Range. Il faut donc les traiter
comme telles vu du ListBox1.
si tu veux seulement les valeurs des Mavar collées les unes aux autres ,
il faut écrire
ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox
de que il y avait avant mais peut-être est-ce voulu de le conserver. A
toi de voir.
A+
Bonsoir
j'essaie de bricoler laborieusement cela :
Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse les
variables MavarX
les une dérières les autres.
Je vous remercie pour votre aide
Arnaud
Private Sub TextBox1_Change()
On Error Resume Next
varNum = TextBox1.Value
TextBox2.Value = Range("Nir").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar1 = Range("ville_1").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar2 = Range("ville_2").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar3 = Range("ville_3").Item(Application.Match(varNum,
Range("Code_postal"), 0))
'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ???
'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ???
End Sub
les variables Mavar sont des objets Range. Il faut donc les traiter comme telles vu du ListBox1. si tu veux seulement les valeurs des Mavar collées les unes aux autres , il faut écrire ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox de que il y avait avant mais peut-être est-ce voulu de le conserver. A toi de voir.
A+
Bonsoir j'essaie de bricoler laborieusement cela : Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse les variables MavarX les une dérières les autres. Je vous remercie pour votre aide Arnaud
Private Sub TextBox1_Change() On Error Resume Next varNum = TextBox1.Value TextBox2.Value = Range("Nir").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar1 = Range("ville_1").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar2 = Range("ville_2").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar3 = Range("ville_3").Item(Application.Match(varNum, Range("Code_postal"), 0)) 'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ??? 'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ??? End Sub
Arnaud LECLEMENT
Bonsoir et merci AnonymousA
En ce qui concerne le listbox, tu as raison, je le vide sinon je viens de tester avec succès cela : Merci beaucoup bonne soirée Arnaud
"anonymousA" a écrit dans le message de news: 42dfeaaa$0$915$
bonjour,
les variables Mavar sont des objets Range. Il faut donc les traiter comme telles vu du ListBox1. si tu veux seulement les valeurs des Mavar collées les unes aux autres , il faut écrire ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox de que il y avait avant mais peut-être est-ce voulu de le conserver. A toi de voir.
A+
Bonsoir j'essaie de bricoler laborieusement cela : Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse les variables MavarX les une dérières les autres. Je vous remercie pour votre aide Arnaud
Private Sub TextBox1_Change() On Error Resume Next varNum = TextBox1.Value TextBox2.Value = Range("Nir").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar1 = Range("ville_1").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar2 = Range("ville_2").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar3 = Range("ville_3").Item(Application.Match(varNum, Range("Code_postal"), 0)) 'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ??? 'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ??? End Sub
Bonsoir et merci AnonymousA
En ce qui concerne le listbox, tu as raison, je le vide sinon je viens de
tester avec succès cela :
Merci beaucoup
bonne soirée
Arnaud
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42dfeaaa$0$915$8fcfb975@news.wanadoo.fr...
bonjour,
les variables Mavar sont des objets Range. Il faut donc les traiter comme
telles vu du ListBox1.
si tu veux seulement les valeurs des Mavar collées les unes aux autres ,
il faut écrire
ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox
de que il y avait avant mais peut-être est-ce voulu de le conserver. A toi
de voir.
A+
Bonsoir
j'essaie de bricoler laborieusement cela :
Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse
les variables MavarX
les une dérières les autres.
Je vous remercie pour votre aide
Arnaud
Private Sub TextBox1_Change()
On Error Resume Next
varNum = TextBox1.Value
TextBox2.Value = Range("Nir").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar1 = Range("ville_1").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar2 = Range("ville_2").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar3 = Range("ville_3").Item(Application.Match(varNum,
Range("Code_postal"), 0))
'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ???
'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ???
End Sub
"anonymousA" a écrit dans le message de news: 42dfeaaa$0$915$
bonjour,
les variables Mavar sont des objets Range. Il faut donc les traiter comme telles vu du ListBox1. si tu veux seulement les valeurs des Mavar collées les unes aux autres , il faut écrire ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox de que il y avait avant mais peut-être est-ce voulu de le conserver. A toi de voir.
A+
Bonsoir j'essaie de bricoler laborieusement cela : Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse les variables MavarX les une dérières les autres. Je vous remercie pour votre aide Arnaud
Private Sub TextBox1_Change() On Error Resume Next varNum = TextBox1.Value TextBox2.Value = Range("Nir").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar1 = Range("ville_1").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar2 = Range("ville_2").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar3 = Range("ville_3").Item(Application.Match(varNum, Range("Code_postal"), 0)) 'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ??? 'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ??? End Sub
anonymousA
oui, ca marche car la propriété value est par la propriété par défaut d'un range.Ceci dit, je t'invite pour une plus grande clarté de ta proc ( mais tu fais ce que tu veux, bien sur !!) à écreire quand même la propriété au complet.
A+
Bonsoir et merci AnonymousA
En ce qui concerne le listbox, tu as raison, je le vide sinon je viens de tester avec succès cela : Merci beaucoup bonne soirée Arnaud
"anonymousA" a écrit dans le message de news: 42dfeaaa$0$915$
bonjour,
les variables Mavar sont des objets Range. Il faut donc les traiter comme telles vu du ListBox1. si tu veux seulement les valeurs des Mavar collées les unes aux autres , il faut écrire ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox de que il y avait avant mais peut-être est-ce voulu de le conserver. A toi de voir.
A+
Bonsoir j'essaie de bricoler laborieusement cela : Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse les variables MavarX les une dérières les autres. Je vous remercie pour votre aide Arnaud
Private Sub TextBox1_Change() On Error Resume Next varNum = TextBox1.Value TextBox2.Value = Range("Nir").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar1 = Range("ville_1").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar2 = Range("ville_2").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar3 = Range("ville_3").Item(Application.Match(varNum, Range("Code_postal"), 0)) 'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ??? 'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ??? End Sub
oui, ca marche car la propriété value est par la propriété par défaut
d'un range.Ceci dit, je t'invite pour une plus grande clarté de ta proc
( mais tu fais ce que tu veux, bien sur !!) à écreire quand même la
propriété au complet.
A+
Bonsoir et merci AnonymousA
En ce qui concerne le listbox, tu as raison, je le vide sinon je viens de
tester avec succès cela :
Merci beaucoup
bonne soirée
Arnaud
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42dfeaaa$0$915$8fcfb975@news.wanadoo.fr...
bonjour,
les variables Mavar sont des objets Range. Il faut donc les traiter comme
telles vu du ListBox1.
si tu veux seulement les valeurs des Mavar collées les unes aux autres ,
il faut écrire
ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox
de que il y avait avant mais peut-être est-ce voulu de le conserver. A toi
de voir.
A+
Bonsoir
j'essaie de bricoler laborieusement cela :
Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse
les variables MavarX
les une dérières les autres.
Je vous remercie pour votre aide
Arnaud
Private Sub TextBox1_Change()
On Error Resume Next
varNum = TextBox1.Value
TextBox2.Value = Range("Nir").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar1 = Range("ville_1").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar2 = Range("ville_2").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar3 = Range("ville_3").Item(Application.Match(varNum,
Range("Code_postal"), 0))
'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ???
'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ???
End Sub
oui, ca marche car la propriété value est par la propriété par défaut d'un range.Ceci dit, je t'invite pour une plus grande clarté de ta proc ( mais tu fais ce que tu veux, bien sur !!) à écreire quand même la propriété au complet.
A+
Bonsoir et merci AnonymousA
En ce qui concerne le listbox, tu as raison, je le vide sinon je viens de tester avec succès cela : Merci beaucoup bonne soirée Arnaud
"anonymousA" a écrit dans le message de news: 42dfeaaa$0$915$
bonjour,
les variables Mavar sont des objets Range. Il faut donc les traiter comme telles vu du ListBox1. si tu veux seulement les valeurs des Mavar collées les unes aux autres , il faut écrire ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox de que il y avait avant mais peut-être est-ce voulu de le conserver. A toi de voir.
A+
Bonsoir j'essaie de bricoler laborieusement cela : Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse les variables MavarX les une dérières les autres. Je vous remercie pour votre aide Arnaud
Private Sub TextBox1_Change() On Error Resume Next varNum = TextBox1.Value TextBox2.Value = Range("Nir").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar1 = Range("ville_1").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar2 = Range("ville_2").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar3 = Range("ville_3").Item(Application.Match(varNum, Range("Code_postal"), 0)) 'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ??? 'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ??? End Sub
Arnaud LECLEMENT
Je suis le conseil du Maître Merci bien ! Bonne soirée Arnaud
"anonymousA" a écrit dans le message de news: 42dfedcc$0$915$
oui, ca marche car la propriété value est par la propriété par défaut d'un range.Ceci dit, je t'invite pour une plus grande clarté de ta proc ( mais tu fais ce que tu veux, bien sur !!) à écreire quand même la propriété au complet.
A+
Bonsoir et merci AnonymousA
En ce qui concerne le listbox, tu as raison, je le vide sinon je viens de tester avec succès cela : Merci beaucoup bonne soirée Arnaud
"anonymousA" a écrit dans le message de news: 42dfeaaa$0$915$
bonjour,
les variables Mavar sont des objets Range. Il faut donc les traiter comme telles vu du ListBox1. si tu veux seulement les valeurs des Mavar collées les unes aux autres , il faut écrire ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox de que il y avait avant mais peut-être est-ce voulu de le conserver. A toi de voir.
A+
Bonsoir j'essaie de bricoler laborieusement cela : Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse les variables MavarX les une dérières les autres. Je vous remercie pour votre aide Arnaud
Private Sub TextBox1_Change() On Error Resume Next varNum = TextBox1.Value TextBox2.Value = Range("Nir").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar1 = Range("ville_1").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar2 = Range("ville_2").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar3 = Range("ville_3").Item(Application.Match(varNum, Range("Code_postal"), 0)) 'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ??? 'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ??? End Sub
Je suis le conseil du Maître
Merci bien !
Bonne soirée
Arnaud
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42dfedcc$0$915$8fcfb975@news.wanadoo.fr...
oui, ca marche car la propriété value est par la propriété par défaut d'un
range.Ceci dit, je t'invite pour une plus grande clarté de ta proc ( mais
tu fais ce que tu veux, bien sur !!) à écreire quand même la propriété au
complet.
A+
Bonsoir et merci AnonymousA
En ce qui concerne le listbox, tu as raison, je le vide sinon je viens de
tester avec succès cela :
Merci beaucoup
bonne soirée
Arnaud
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
42dfeaaa$0$915$8fcfb975@news.wanadoo.fr...
bonjour,
les variables Mavar sont des objets Range. Il faut donc les traiter comme
telles vu du ListBox1.
si tu veux seulement les valeurs des Mavar collées les unes aux autres ,
il faut écrire
ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox
de que il y avait avant mais peut-être est-ce voulu de le conserver. A
toi de voir.
A+
Bonsoir
j'essaie de bricoler laborieusement cela :
Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse
les variables MavarX
les une dérières les autres.
Je vous remercie pour votre aide
Arnaud
Private Sub TextBox1_Change()
On Error Resume Next
varNum = TextBox1.Value
TextBox2.Value = Range("Nir").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar1 = Range("ville_1").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar2 = Range("ville_2").Item(Application.Match(varNum,
Range("Code_postal"), 0))
Mavar3 = Range("ville_3").Item(Application.Match(varNum,
Range("Code_postal"), 0))
'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ???
'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ???
End Sub
Je suis le conseil du Maître Merci bien ! Bonne soirée Arnaud
"anonymousA" a écrit dans le message de news: 42dfedcc$0$915$
oui, ca marche car la propriété value est par la propriété par défaut d'un range.Ceci dit, je t'invite pour une plus grande clarté de ta proc ( mais tu fais ce que tu veux, bien sur !!) à écreire quand même la propriété au complet.
A+
Bonsoir et merci AnonymousA
En ce qui concerne le listbox, tu as raison, je le vide sinon je viens de tester avec succès cela : Merci beaucoup bonne soirée Arnaud
"anonymousA" a écrit dans le message de news: 42dfeaaa$0$915$
bonjour,
les variables Mavar sont des objets Range. Il faut donc les traiter comme telles vu du ListBox1. si tu veux seulement les valeurs des Mavar collées les unes aux autres , il faut écrire ListBox1.AddItem Mavar1.value & Mavar2.value & Mavar3.value
Au passage, il serait d'ailleurs peut-être judicieux de vider le Listbox de que il y avait avant mais peut-être est-ce voulu de le conserver. A toi de voir.
A+
Bonsoir j'essaie de bricoler laborieusement cela : Le but, c'est qu'en tapant le code postal, dans la listbox, apparaisse les variables MavarX les une dérières les autres. Je vous remercie pour votre aide Arnaud
Private Sub TextBox1_Change() On Error Resume Next varNum = TextBox1.Value TextBox2.Value = Range("Nir").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar1 = Range("ville_1").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar2 = Range("ville_2").Item(Application.Match(varNum, Range("Code_postal"), 0)) Mavar3 = Range("ville_3").Item(Application.Match(varNum, Range("Code_postal"), 0)) 'ListBox1.AddItem Mavar1 & Mavar2 & Mavar3 ??? 'ListBox1.RowSource = Mavar1 & Mavar2 & Mavar3 ??? End Sub
