Re,
Il me semble que ta réponse voulai dire que je ne pouvais saisir
que les info d'une colonne. Ce que je voudrais essayer de faire c'est
d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
pour réintroduire le devis fonctionne, me manque comment relier cette
procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
intégrer.
Amicalement
Peponne31
"michdenis" a écrit :
> | dommage de ne pas avoir les 2 colonnes dans la ListBox
>
> ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
>
>
>
> "Peponne31" a écrit dans le message de groupe de
> discussion :
> Re
>
> il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> colonne...
> Merci encore et bonne fin de soirée.
> Peponne31
>
>
> "michdenis" a écrit :
>
> > A )
> > Tu peux supprimer la petite procédure
> > Private Sub Valider_Click()
> > Elle ne sert à rien dans ton cas.
> >
> > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > dans la requête le nom du champ. Tu n'indique que
> > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > plage de cellule qui affecte la variable Rg en début de
> > procédure mais ce n'est pas obligatoire !
> >
> > C ) Ce bout de code permet d'éviter les doublons dans
> > ta liste si tu en as et de plus, il te sort ton champ en
> > ordre croissant ! Mais il n'est pas essentiel.
> > & vbCrLf & " Group by N°devis, Nom"
> >
> >
> >
Re,
Il me semble que ta réponse voulai dire que je ne pouvais saisir
que les info d'une colonne. Ce que je voudrais essayer de faire c'est
d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
pour réintroduire le devis fonctionne, me manque comment relier cette
procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
intégrer.
Amicalement
Peponne31
"michdenis" a écrit :
> | dommage de ne pas avoir les 2 colonnes dans la ListBox
>
> ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
>
>
>
> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : E71B6C49-F269-4093-B029-256AFF61C372@microsoft.com...
> Re
>
> il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> colonne...
> Merci encore et bonne fin de soirée.
> Peponne31
>
>
> "michdenis" a écrit :
>
> > A )
> > Tu peux supprimer la petite procédure
> > Private Sub Valider_Click()
> > Elle ne sert à rien dans ton cas.
> >
> > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > dans la requête le nom du champ. Tu n'indique que
> > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > plage de cellule qui affecte la variable Rg en début de
> > procédure mais ce n'est pas obligatoire !
> >
> > C ) Ce bout de code permet d'éviter les doublons dans
> > ta liste si tu en as et de plus, il te sort ton champ en
> > ordre croissant ! Mais il n'est pas essentiel.
> > & vbCrLf & " Group by N°devis, Nom"
> >
> >
> >
Re,
Il me semble que ta réponse voulai dire que je ne pouvais saisir
que les info d'une colonne. Ce que je voudrais essayer de faire c'est
d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
pour réintroduire le devis fonctionne, me manque comment relier cette
procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
intégrer.
Amicalement
Peponne31
"michdenis" a écrit :
> | dommage de ne pas avoir les 2 colonnes dans la ListBox
>
> ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
>
>
>
> "Peponne31" a écrit dans le message de groupe de
> discussion :
> Re
>
> il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> colonne...
> Merci encore et bonne fin de soirée.
> Peponne31
>
>
> "michdenis" a écrit :
>
> > A )
> > Tu peux supprimer la petite procédure
> > Private Sub Valider_Click()
> > Elle ne sert à rien dans ton cas.
> >
> > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > dans la requête le nom du champ. Tu n'indique que
> > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > plage de cellule qui affecte la variable Rg en début de
> > procédure mais ce n'est pas obligatoire !
> >
> > C ) Ce bout de code permet d'éviter les doublons dans
> > ta liste si tu en as et de plus, il te sort ton champ en
> > ordre croissant ! Mais il n'est pas essentiel.
> > & vbCrLf & " Group by N°devis, Nom"
> >
> >
> >
Re,
Il me semble que ta réponse voulai dire que je ne pouvais saisir
que les info d'une colonne. Ce que je voudrais essayer de faire c'est
d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
pour réintroduire le devis fonctionne, me manque comment relier cette
procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
intégrer.
Amicalement
Peponne31
"michdenis" a écrit :
> | dommage de ne pas avoir les 2 colonnes dans la ListBox
>
> ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
>
>
>
> "Peponne31" a écrit dans le message de groupe de
> discussion :
> Re
>
> il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> colonne...
> Merci encore et bonne fin de soirée.
> Peponne31
>
>
> "michdenis" a écrit :
>
> > A )
> > Tu peux supprimer la petite procédure
> > Private Sub Valider_Click()
> > Elle ne sert à rien dans ton cas.
> >
> > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > dans la requête le nom du champ. Tu n'indique que
> > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > plage de cellule qui affecte la variable Rg en début de
> > procédure mais ce n'est pas obligatoire !
> >
> > C ) Ce bout de code permet d'éviter les doublons dans
> > ta liste si tu en as et de plus, il te sort ton champ en
> > ordre croissant ! Mais il n'est pas essentiel.
> > & vbCrLf & " Group by N°devis, Nom"
> >
> >
> >
Re,
Il me semble que ta réponse voulai dire que je ne pouvais saisir
que les info d'une colonne. Ce que je voudrais essayer de faire c'est
d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
pour réintroduire le devis fonctionne, me manque comment relier cette
procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
intégrer.
Amicalement
Peponne31
"michdenis" a écrit :
> | dommage de ne pas avoir les 2 colonnes dans la ListBox
>
> ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
>
>
>
> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : E71B6C49-F269-4093-B029-256AFF61C372@microsoft.com...
> Re
>
> il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> colonne...
> Merci encore et bonne fin de soirée.
> Peponne31
>
>
> "michdenis" a écrit :
>
> > A )
> > Tu peux supprimer la petite procédure
> > Private Sub Valider_Click()
> > Elle ne sert à rien dans ton cas.
> >
> > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > dans la requête le nom du champ. Tu n'indique que
> > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > plage de cellule qui affecte la variable Rg en début de
> > procédure mais ce n'est pas obligatoire !
> >
> > C ) Ce bout de code permet d'éviter les doublons dans
> > ta liste si tu en as et de plus, il te sort ton champ en
> > ordre croissant ! Mais il n'est pas essentiel.
> > & vbCrLf & " Group by N°devis, Nom"
> >
> >
> >
Re,
Il me semble que ta réponse voulai dire que je ne pouvais saisir
que les info d'une colonne. Ce que je voudrais essayer de faire c'est
d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
pour réintroduire le devis fonctionne, me manque comment relier cette
procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
intégrer.
Amicalement
Peponne31
"michdenis" a écrit :
> | dommage de ne pas avoir les 2 colonnes dans la ListBox
>
> ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
>
>
>
> "Peponne31" a écrit dans le message de groupe de
> discussion :
> Re
>
> il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> colonne...
> Merci encore et bonne fin de soirée.
> Peponne31
>
>
> "michdenis" a écrit :
>
> > A )
> > Tu peux supprimer la petite procédure
> > Private Sub Valider_Click()
> > Elle ne sert à rien dans ton cas.
> >
> > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > dans la requête le nom du champ. Tu n'indique que
> > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > plage de cellule qui affecte la variable Rg en début de
> > procédure mais ce n'est pas obligatoire !
> >
> > C ) Ce bout de code permet d'éviter les doublons dans
> > ta liste si tu en as et de plus, il te sort ton champ en
> > ordre croissant ! Mais il n'est pas essentiel.
> > & vbCrLf & " Group by N°devis, Nom"
> >
> >
> >
Je ne comprends toujours pas ta demande !
Si tu cherches à extraire le contenu de l'item sélectionné
du listbox pour sélectionner une feuille dans ton classeur
Quelques informations sur comment faire à partir
d'un bouton de commande dans le formulaire.
'-----------------------------------------
Private Sub CommandButton1_Click()
Dim Sh As Worksheet
On Error Resume Next
With Me.ListBox1
'Pour extraire la sélection du listbox lors d'un clic
'Première colonne Deuxième colonne
If .ListIndex <> -1 Then
x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
'si x représente un numéro de feuille dans ton classeur
'Pour saisir ta feuille
Err = 0
Set Sh = Worksheets(x)
If Err <> 0 Then
Err = 0
MsgBox "la feuille " & x & " inexistante dans ce classeur."
else
Sh.Select
End If
End If
End With
End Sub
'-----------------------------------------
"Peponne31" a écrit dans le message de groupe de
discussion :
Re,
Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
le formulaire qui a créé ses devis pour pouvoir les modifiers.
"Peponne31" a écrit :
>
> Re,
>
> Il me semble que ta réponse voulai dire que je ne pouvais saisir
> que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> pour réintroduire le devis fonctionne, me manque comment relier cette
> procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> intégrer.
> Amicalement
> Peponne31
>
>
> "michdenis" a écrit :
>
> > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> >
> > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> >
> >
> >
> > "Peponne31" a écrit dans le message de groupe de
> > discussion :
> > Re
> >
> > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > colonne...
> > Merci encore et bonne fin de soirée.
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > A )
> > > Tu peux supprimer la petite procédure
> > > Private Sub Valider_Click()
> > > Elle ne sert à rien dans ton cas.
> > >
> > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > dans la requête le nom du champ. Tu n'indique que
> > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > plage de cellule qui affecte la variable Rg en début de
> > > procédure mais ce n'est pas obligatoire !
> > >
> > > C ) Ce bout de code permet d'éviter les doublons dans
> > > ta liste si tu en as et de plus, il te sort ton champ en
> > > ordre croissant ! Mais il n'est pas essentiel.
> > > & vbCrLf & " Group by N°devis, Nom"
> > >
> > >
> > >
Je ne comprends toujours pas ta demande !
Si tu cherches à extraire le contenu de l'item sélectionné
du listbox pour sélectionner une feuille dans ton classeur
Quelques informations sur comment faire à partir
d'un bouton de commande dans le formulaire.
'-----------------------------------------
Private Sub CommandButton1_Click()
Dim Sh As Worksheet
On Error Resume Next
With Me.ListBox1
'Pour extraire la sélection du listbox lors d'un clic
'Première colonne Deuxième colonne
If .ListIndex <> -1 Then
x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
'si x représente un numéro de feuille dans ton classeur
'Pour saisir ta feuille
Err = 0
Set Sh = Worksheets(x)
If Err <> 0 Then
Err = 0
MsgBox "la feuille " & x & " inexistante dans ce classeur."
else
Sh.Select
End If
End If
End With
End Sub
'-----------------------------------------
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 4B0A21B5-9B12-4ADA-A1F8-D655664AD651@microsoft.com...
Re,
Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
le formulaire qui a créé ses devis pour pouvoir les modifiers.
"Peponne31" a écrit :
>
> Re,
>
> Il me semble que ta réponse voulai dire que je ne pouvais saisir
> que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> pour réintroduire le devis fonctionne, me manque comment relier cette
> procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> intégrer.
> Amicalement
> Peponne31
>
>
> "michdenis" a écrit :
>
> > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> >
> > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> >
> >
> >
> > "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
> > discussion : E71B6C49-F269-4093-B029-256AFF61C372@microsoft.com...
> > Re
> >
> > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > colonne...
> > Merci encore et bonne fin de soirée.
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > A )
> > > Tu peux supprimer la petite procédure
> > > Private Sub Valider_Click()
> > > Elle ne sert à rien dans ton cas.
> > >
> > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > dans la requête le nom du champ. Tu n'indique que
> > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > plage de cellule qui affecte la variable Rg en début de
> > > procédure mais ce n'est pas obligatoire !
> > >
> > > C ) Ce bout de code permet d'éviter les doublons dans
> > > ta liste si tu en as et de plus, il te sort ton champ en
> > > ordre croissant ! Mais il n'est pas essentiel.
> > > & vbCrLf & " Group by N°devis, Nom"
> > >
> > >
> > >
Je ne comprends toujours pas ta demande !
Si tu cherches à extraire le contenu de l'item sélectionné
du listbox pour sélectionner une feuille dans ton classeur
Quelques informations sur comment faire à partir
d'un bouton de commande dans le formulaire.
'-----------------------------------------
Private Sub CommandButton1_Click()
Dim Sh As Worksheet
On Error Resume Next
With Me.ListBox1
'Pour extraire la sélection du listbox lors d'un clic
'Première colonne Deuxième colonne
If .ListIndex <> -1 Then
x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
'si x représente un numéro de feuille dans ton classeur
'Pour saisir ta feuille
Err = 0
Set Sh = Worksheets(x)
If Err <> 0 Then
Err = 0
MsgBox "la feuille " & x & " inexistante dans ce classeur."
else
Sh.Select
End If
End If
End With
End Sub
'-----------------------------------------
"Peponne31" a écrit dans le message de groupe de
discussion :
Re,
Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
le formulaire qui a créé ses devis pour pouvoir les modifiers.
"Peponne31" a écrit :
>
> Re,
>
> Il me semble que ta réponse voulai dire que je ne pouvais saisir
> que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> pour réintroduire le devis fonctionne, me manque comment relier cette
> procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> intégrer.
> Amicalement
> Peponne31
>
>
> "michdenis" a écrit :
>
> > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> >
> > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> >
> >
> >
> > "Peponne31" a écrit dans le message de groupe de
> > discussion :
> > Re
> >
> > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > colonne...
> > Merci encore et bonne fin de soirée.
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > A )
> > > Tu peux supprimer la petite procédure
> > > Private Sub Valider_Click()
> > > Elle ne sert à rien dans ton cas.
> > >
> > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > dans la requête le nom du champ. Tu n'indique que
> > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > plage de cellule qui affecte la variable Rg en début de
> > > procédure mais ce n'est pas obligatoire !
> > >
> > > C ) Ce bout de code permet d'éviter les doublons dans
> > > ta liste si tu en as et de plus, il te sort ton champ en
> > > ordre croissant ! Mais il n'est pas essentiel.
> > > & vbCrLf & " Group by N°devis, Nom"
> > >
> > >
> > >
Je ne comprends toujours pas ta demande !
Si tu cherches à extraire le contenu de l'item sélectionné
du listbox pour sélectionner une feuille dans ton classeur
Quelques informations sur comment faire à partir
d'un bouton de commande dans le formulaire.
'-----------------------------------------
Private Sub CommandButton1_Click()
Dim Sh As Worksheet
On Error Resume Next
With Me.ListBox1
'Pour extraire la sélection du listbox lors d'un clic
'Première colonne Deuxième colonne
If .ListIndex <> -1 Then
x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
'si x représente un numéro de feuille dans ton classeur
'Pour saisir ta feuille
Err = 0
Set Sh = Worksheets(x)
If Err <> 0 Then
Err = 0
MsgBox "la feuille " & x & " inexistante dans ce classeur."
else
Sh.Select
End If
End If
End With
End Sub
'-----------------------------------------
"Peponne31" a écrit dans le message de groupe de
discussion :
Re,
Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
le formulaire qui a créé ses devis pour pouvoir les modifiers.
"Peponne31" a écrit :
>
> Re,
>
> Il me semble que ta réponse voulai dire que je ne pouvais saisir
> que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> pour réintroduire le devis fonctionne, me manque comment relier cette
> procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> intégrer.
> Amicalement
> Peponne31
>
>
> "michdenis" a écrit :
>
> > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> >
> > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> >
> >
> >
> > "Peponne31" a écrit dans le message de groupe
> > de
> > discussion :
> > Re
> >
> > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > colonne...
> > Merci encore et bonne fin de soirée.
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > A )
> > > Tu peux supprimer la petite procédure
> > > Private Sub Valider_Click()
> > > Elle ne sert à rien dans ton cas.
> > >
> > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > dans la requête le nom du champ. Tu n'indique que
> > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > plage de cellule qui affecte la variable Rg en début de
> > > procédure mais ce n'est pas obligatoire !
> > >
> > > C ) Ce bout de code permet d'éviter les doublons dans
> > > ta liste si tu en as et de plus, il te sort ton champ en
> > > ordre croissant ! Mais il n'est pas essentiel.
> > > & vbCrLf & " Group by N°devis, Nom"
> > >
> > >
> > >
Je ne comprends toujours pas ta demande !
Si tu cherches à extraire le contenu de l'item sélectionné
du listbox pour sélectionner une feuille dans ton classeur
Quelques informations sur comment faire à partir
d'un bouton de commande dans le formulaire.
'-----------------------------------------
Private Sub CommandButton1_Click()
Dim Sh As Worksheet
On Error Resume Next
With Me.ListBox1
'Pour extraire la sélection du listbox lors d'un clic
'Première colonne Deuxième colonne
If .ListIndex <> -1 Then
x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
'si x représente un numéro de feuille dans ton classeur
'Pour saisir ta feuille
Err = 0
Set Sh = Worksheets(x)
If Err <> 0 Then
Err = 0
MsgBox "la feuille " & x & " inexistante dans ce classeur."
else
Sh.Select
End If
End If
End With
End Sub
'-----------------------------------------
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 4B0A21B5-9B12-4ADA-A1F8-D655664AD651@microsoft.com...
Re,
Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
le formulaire qui a créé ses devis pour pouvoir les modifiers.
"Peponne31" a écrit :
>
> Re,
>
> Il me semble que ta réponse voulai dire que je ne pouvais saisir
> que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> pour réintroduire le devis fonctionne, me manque comment relier cette
> procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> intégrer.
> Amicalement
> Peponne31
>
>
> "michdenis" a écrit :
>
> > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> >
> > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> >
> >
> >
> > "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe
> > de
> > discussion : E71B6C49-F269-4093-B029-256AFF61C372@microsoft.com...
> > Re
> >
> > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > colonne...
> > Merci encore et bonne fin de soirée.
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > A )
> > > Tu peux supprimer la petite procédure
> > > Private Sub Valider_Click()
> > > Elle ne sert à rien dans ton cas.
> > >
> > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > dans la requête le nom du champ. Tu n'indique que
> > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > plage de cellule qui affecte la variable Rg en début de
> > > procédure mais ce n'est pas obligatoire !
> > >
> > > C ) Ce bout de code permet d'éviter les doublons dans
> > > ta liste si tu en as et de plus, il te sort ton champ en
> > > ordre croissant ! Mais il n'est pas essentiel.
> > > & vbCrLf & " Group by N°devis, Nom"
> > >
> > >
> > >
Je ne comprends toujours pas ta demande !
Si tu cherches à extraire le contenu de l'item sélectionné
du listbox pour sélectionner une feuille dans ton classeur
Quelques informations sur comment faire à partir
d'un bouton de commande dans le formulaire.
'-----------------------------------------
Private Sub CommandButton1_Click()
Dim Sh As Worksheet
On Error Resume Next
With Me.ListBox1
'Pour extraire la sélection du listbox lors d'un clic
'Première colonne Deuxième colonne
If .ListIndex <> -1 Then
x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
'si x représente un numéro de feuille dans ton classeur
'Pour saisir ta feuille
Err = 0
Set Sh = Worksheets(x)
If Err <> 0 Then
Err = 0
MsgBox "la feuille " & x & " inexistante dans ce classeur."
else
Sh.Select
End If
End If
End With
End Sub
'-----------------------------------------
"Peponne31" a écrit dans le message de groupe de
discussion :
Re,
Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
le formulaire qui a créé ses devis pour pouvoir les modifiers.
"Peponne31" a écrit :
>
> Re,
>
> Il me semble que ta réponse voulai dire que je ne pouvais saisir
> que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> pour réintroduire le devis fonctionne, me manque comment relier cette
> procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> intégrer.
> Amicalement
> Peponne31
>
>
> "michdenis" a écrit :
>
> > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> >
> > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> >
> >
> >
> > "Peponne31" a écrit dans le message de groupe
> > de
> > discussion :
> > Re
> >
> > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > colonne...
> > Merci encore et bonne fin de soirée.
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > A )
> > > Tu peux supprimer la petite procédure
> > > Private Sub Valider_Click()
> > > Elle ne sert à rien dans ton cas.
> > >
> > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > dans la requête le nom du champ. Tu n'indique que
> > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > plage de cellule qui affecte la variable Rg en début de
> > > procédure mais ce n'est pas obligatoire !
> > >
> > > C ) Ce bout de code permet d'éviter les doublons dans
> > > ta liste si tu en as et de plus, il te sort ton champ en
> > > ordre croissant ! Mais il n'est pas essentiel.
> > > & vbCrLf & " Group by N°devis, Nom"
> > >
> > >
> > >
Bonjour Michdenis,
items sur 2 colonnes
ligne 1 │ 0908001 │ Me DUCHEMIN │
ligne 2 │ 0908002 │ Société SOPA │
par un clic sur une de ces lignes, peut-on ouvrir ce qui suit:
'======================================= > Private Sub Valider_Click()
Dim Chemin As String, Ctr As Integer, Plage As Range, c As Range
ActiveSheet.Unprotect
Range("I12").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Value = ActiveCell.Value
Range("date").Select
ActiveCell.Value = ActiveCell.Value
Chemin = "C:CONCEPT Habitatdevis1P"
Ctr = 21
Workbooks.Open Chemin & Fich & ".xls"
Feuille = ActiveSheet.Name
With Workbooks("CONCEPT Habitat.xls").Sheets("Devis1page")
.Range("num_client") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("num_client")
.Range("dnomcli1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dnomcli1")
.Range("numdevis1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("numdevis1")
.Range("frue1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue1")
.Range("frue2") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue2")
.Range("fville") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("fville")
.Range("fcp") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("fcp")
.Range("téléphone") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("téléphone")
.Range("portable") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("portable")
.Range("dremise") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dremise")
.Range("B17") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("B17")
.Range("H4") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H4")
.Range("H5") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H5")
.Range("I51") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("I51")
Set Plage = Workbooks(Fich & ".xls").Sheets(Feuille).Range("A21:A50")
For Each c In Plage
.Range("A" & Ctr) = c.Value
.Range("F" & Ctr) = c.Offset(0, 1)
.Range("G" & Ctr) = c.Offset(0, 2)
.Range("H" & Ctr) = c.Offset(0, 3)
.Range("J" & Ctr) = c.Offset(0, 5)
Ctr = Ctr + 1
Next c
Workbooks(Fich & ".xls").Close False
ActiveSheet.Protect
End With
End Sub
'=============================== > ce code va me chercher la feuille enregistrée dans
C:CONCEPT HabitatDevis
et me la recopie dans le formulaire pour modification.
Mais avec le nom à coté du N° la recherche est plus facile.
Merci
Peponne31
"michdenis" a écrit :
> Je ne comprends toujours pas ta demande !
>
> Si tu cherches à extraire le contenu de l'item sélectionné
> du listbox pour sélectionner une feuille dans ton classeur
>
> Quelques informations sur comment faire à partir
> d'un bouton de commande dans le formulaire.
>
> '-----------------------------------------
> Private Sub CommandButton1_Click()
> Dim Sh As Worksheet
> On Error Resume Next
> With Me.ListBox1
> 'Pour extraire la sélection du listbox lors d'un clic
> 'Première colonne Deuxième colonne
> If .ListIndex <> -1 Then
> x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
> 'si x représente un numéro de feuille dans ton classeur
> 'Pour saisir ta feuille
> Err = 0
> Set Sh = Worksheets(x)
> If Err <> 0 Then
> Err = 0
> MsgBox "la feuille " & x & " inexistante dans ce classeur."
> else
> Sh.Select
> End If
> End If
> End With
> End Sub
> '-----------------------------------------
>
>
>
> "Peponne31" a écrit dans le message de groupe de
> discussion :
> Re,
>
> Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
> chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
> Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
> Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
> par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
> chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
> sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
> le formulaire qui a créé ses devis pour pouvoir les modifiers.
>
>
> "Peponne31" a écrit :
>
> >
> > Re,
> >
> > Il me semble que ta réponse voulai dire que je ne pouvais saisir
> > que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> > d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> > et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> > clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> > et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> > pour réintroduire le devis fonctionne, me manque comment relier cette
> > procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> > codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> > intégrer.
> > Amicalement
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> > >
> > > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> > >
> > >
> > >
> > > "Peponne31" a écrit dans le message de groupe de
> > > discussion :
> > > Re
> > >
> > > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > > colonne...
> > > Merci encore et bonne fin de soirée.
> > > Peponne31
> > >
> > >
> > > "michdenis" a écrit :
> > >
> > > > A )
> > > > Tu peux supprimer la petite procédure
> > > > Private Sub Valider_Click()
> > > > Elle ne sert à rien dans ton cas.
> > > >
> > > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > > dans la requête le nom du champ. Tu n'indique que
> > > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > > plage de cellule qui affecte la variable Rg en début de
> > > > procédure mais ce n'est pas obligatoire !
> > > >
> > > > C ) Ce bout de code permet d'éviter les doublons dans
> > > > ta liste si tu en as et de plus, il te sort ton champ en
> > > > ordre croissant ! Mais il n'est pas essentiel.
> > > > & vbCrLf & " Group by N°devis, Nom"
> > > >
> > > >
> > > >
Bonjour Michdenis,
items sur 2 colonnes
ligne 1 │ 0908001 │ Me DUCHEMIN │
ligne 2 │ 0908002 │ Société SOPA │
par un clic sur une de ces lignes, peut-on ouvrir ce qui suit:
'======================================= > Private Sub Valider_Click()
Dim Chemin As String, Ctr As Integer, Plage As Range, c As Range
ActiveSheet.Unprotect
Range("I12").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Value = ActiveCell.Value
Range("date").Select
ActiveCell.Value = ActiveCell.Value
Chemin = "C:CONCEPT Habitatdevis1P"
Ctr = 21
Workbooks.Open Chemin & Fich & ".xls"
Feuille = ActiveSheet.Name
With Workbooks("CONCEPT Habitat.xls").Sheets("Devis1page")
.Range("num_client") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("num_client")
.Range("dnomcli1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dnomcli1")
.Range("numdevis1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("numdevis1")
.Range("frue1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue1")
.Range("frue2") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue2")
.Range("fville") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("fville")
.Range("fcp") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("fcp")
.Range("téléphone") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("téléphone")
.Range("portable") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("portable")
.Range("dremise") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dremise")
.Range("B17") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("B17")
.Range("H4") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H4")
.Range("H5") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H5")
.Range("I51") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("I51")
Set Plage = Workbooks(Fich & ".xls").Sheets(Feuille).Range("A21:A50")
For Each c In Plage
.Range("A" & Ctr) = c.Value
.Range("F" & Ctr) = c.Offset(0, 1)
.Range("G" & Ctr) = c.Offset(0, 2)
.Range("H" & Ctr) = c.Offset(0, 3)
.Range("J" & Ctr) = c.Offset(0, 5)
Ctr = Ctr + 1
Next c
Workbooks(Fich & ".xls").Close False
ActiveSheet.Protect
End With
End Sub
'=============================== > ce code va me chercher la feuille enregistrée dans
C:CONCEPT HabitatDevis
et me la recopie dans le formulaire pour modification.
Mais avec le nom à coté du N° la recherche est plus facile.
Merci
Peponne31
"michdenis" a écrit :
> Je ne comprends toujours pas ta demande !
>
> Si tu cherches à extraire le contenu de l'item sélectionné
> du listbox pour sélectionner une feuille dans ton classeur
>
> Quelques informations sur comment faire à partir
> d'un bouton de commande dans le formulaire.
>
> '-----------------------------------------
> Private Sub CommandButton1_Click()
> Dim Sh As Worksheet
> On Error Resume Next
> With Me.ListBox1
> 'Pour extraire la sélection du listbox lors d'un clic
> 'Première colonne Deuxième colonne
> If .ListIndex <> -1 Then
> x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
> 'si x représente un numéro de feuille dans ton classeur
> 'Pour saisir ta feuille
> Err = 0
> Set Sh = Worksheets(x)
> If Err <> 0 Then
> Err = 0
> MsgBox "la feuille " & x & " inexistante dans ce classeur."
> else
> Sh.Select
> End If
> End If
> End With
> End Sub
> '-----------------------------------------
>
>
>
> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : 4B0A21B5-9B12-4ADA-A1F8-D655664AD651@microsoft.com...
> Re,
>
> Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
> chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
> Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
> Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
> par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
> chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
> sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
> le formulaire qui a créé ses devis pour pouvoir les modifiers.
>
>
> "Peponne31" a écrit :
>
> >
> > Re,
> >
> > Il me semble que ta réponse voulai dire que je ne pouvais saisir
> > que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> > d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> > et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> > clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> > et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> > pour réintroduire le devis fonctionne, me manque comment relier cette
> > procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> > codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> > intégrer.
> > Amicalement
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> > >
> > > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> > >
> > >
> > >
> > > "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
> > > discussion : E71B6C49-F269-4093-B029-256AFF61C372@microsoft.com...
> > > Re
> > >
> > > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > > colonne...
> > > Merci encore et bonne fin de soirée.
> > > Peponne31
> > >
> > >
> > > "michdenis" a écrit :
> > >
> > > > A )
> > > > Tu peux supprimer la petite procédure
> > > > Private Sub Valider_Click()
> > > > Elle ne sert à rien dans ton cas.
> > > >
> > > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > > dans la requête le nom du champ. Tu n'indique que
> > > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > > plage de cellule qui affecte la variable Rg en début de
> > > > procédure mais ce n'est pas obligatoire !
> > > >
> > > > C ) Ce bout de code permet d'éviter les doublons dans
> > > > ta liste si tu en as et de plus, il te sort ton champ en
> > > > ordre croissant ! Mais il n'est pas essentiel.
> > > > & vbCrLf & " Group by N°devis, Nom"
> > > >
> > > >
> > > >
Bonjour Michdenis,
items sur 2 colonnes
ligne 1 │ 0908001 │ Me DUCHEMIN │
ligne 2 │ 0908002 │ Société SOPA │
par un clic sur une de ces lignes, peut-on ouvrir ce qui suit:
'======================================= > Private Sub Valider_Click()
Dim Chemin As String, Ctr As Integer, Plage As Range, c As Range
ActiveSheet.Unprotect
Range("I12").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Value = ActiveCell.Value
Range("date").Select
ActiveCell.Value = ActiveCell.Value
Chemin = "C:CONCEPT Habitatdevis1P"
Ctr = 21
Workbooks.Open Chemin & Fich & ".xls"
Feuille = ActiveSheet.Name
With Workbooks("CONCEPT Habitat.xls").Sheets("Devis1page")
.Range("num_client") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("num_client")
.Range("dnomcli1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dnomcli1")
.Range("numdevis1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("numdevis1")
.Range("frue1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue1")
.Range("frue2") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue2")
.Range("fville") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("fville")
.Range("fcp") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("fcp")
.Range("téléphone") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("téléphone")
.Range("portable") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("portable")
.Range("dremise") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dremise")
.Range("B17") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("B17")
.Range("H4") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H4")
.Range("H5") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H5")
.Range("I51") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("I51")
Set Plage = Workbooks(Fich & ".xls").Sheets(Feuille).Range("A21:A50")
For Each c In Plage
.Range("A" & Ctr) = c.Value
.Range("F" & Ctr) = c.Offset(0, 1)
.Range("G" & Ctr) = c.Offset(0, 2)
.Range("H" & Ctr) = c.Offset(0, 3)
.Range("J" & Ctr) = c.Offset(0, 5)
Ctr = Ctr + 1
Next c
Workbooks(Fich & ".xls").Close False
ActiveSheet.Protect
End With
End Sub
'=============================== > ce code va me chercher la feuille enregistrée dans
C:CONCEPT HabitatDevis
et me la recopie dans le formulaire pour modification.
Mais avec le nom à coté du N° la recherche est plus facile.
Merci
Peponne31
"michdenis" a écrit :
> Je ne comprends toujours pas ta demande !
>
> Si tu cherches à extraire le contenu de l'item sélectionné
> du listbox pour sélectionner une feuille dans ton classeur
>
> Quelques informations sur comment faire à partir
> d'un bouton de commande dans le formulaire.
>
> '-----------------------------------------
> Private Sub CommandButton1_Click()
> Dim Sh As Worksheet
> On Error Resume Next
> With Me.ListBox1
> 'Pour extraire la sélection du listbox lors d'un clic
> 'Première colonne Deuxième colonne
> If .ListIndex <> -1 Then
> x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
> 'si x représente un numéro de feuille dans ton classeur
> 'Pour saisir ta feuille
> Err = 0
> Set Sh = Worksheets(x)
> If Err <> 0 Then
> Err = 0
> MsgBox "la feuille " & x & " inexistante dans ce classeur."
> else
> Sh.Select
> End If
> End If
> End With
> End Sub
> '-----------------------------------------
>
>
>
> "Peponne31" a écrit dans le message de groupe de
> discussion :
> Re,
>
> Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
> chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
> Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
> Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
> par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
> chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
> sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
> le formulaire qui a créé ses devis pour pouvoir les modifiers.
>
>
> "Peponne31" a écrit :
>
> >
> > Re,
> >
> > Il me semble que ta réponse voulai dire que je ne pouvais saisir
> > que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> > d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> > et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> > clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> > et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> > pour réintroduire le devis fonctionne, me manque comment relier cette
> > procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> > codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> > intégrer.
> > Amicalement
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> > >
> > > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> > >
> > >
> > >
> > > "Peponne31" a écrit dans le message de groupe de
> > > discussion :
> > > Re
> > >
> > > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > > colonne...
> > > Merci encore et bonne fin de soirée.
> > > Peponne31
> > >
> > >
> > > "michdenis" a écrit :
> > >
> > > > A )
> > > > Tu peux supprimer la petite procédure
> > > > Private Sub Valider_Click()
> > > > Elle ne sert à rien dans ton cas.
> > > >
> > > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > > dans la requête le nom du champ. Tu n'indique que
> > > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > > plage de cellule qui affecte la variable Rg en début de
> > > > procédure mais ce n'est pas obligatoire !
> > > >
> > > > C ) Ce bout de code permet d'éviter les doublons dans
> > > > ta liste si tu en as et de plus, il te sort ton champ en
> > > > ordre croissant ! Mais il n'est pas essentiel.
> > > > & vbCrLf & " Group by N°devis, Nom"
> > > >
> > > >
> > > >
Bonjour Michdenis,
items sur 2 colonnes
ligne 1 │ 0908001 │ Me DUCHEMIN │
ligne 2 │ 0908002 │ Société SOPA │
par un clic sur une de ces lignes, peut-on ouvrir ce qui suit:
'======================================= > Private Sub Valider_Click()
Dim Chemin As String, Ctr As Integer, Plage As Range, c As Range
ActiveSheet.Unprotect
Range("I12").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Value = ActiveCell.Value
Range("date").Select
ActiveCell.Value = ActiveCell.Value
Chemin = "C:CONCEPT Habitatdevis1P"
Ctr = 21
Workbooks.Open Chemin & Fich & ".xls"
Feuille = ActiveSheet.Name
With Workbooks("CONCEPT Habitat.xls").Sheets("Devis1page")
.Range("num_client") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("num_client")
.Range("dnomcli1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dnomcli1")
.Range("numdevis1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("numdevis1")
.Range("frue1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue1")
.Range("frue2") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue2")
.Range("fville") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("fville")
.Range("fcp") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("fcp")
.Range("téléphone") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("téléphone")
.Range("portable") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("portable")
.Range("dremise") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dremise")
.Range("B17") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("B17")
.Range("H4") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H4")
.Range("H5") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H5")
.Range("I51") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("I51")
Set Plage = Workbooks(Fich & ".xls").Sheets(Feuille).Range("A21:A50")
For Each c In Plage
.Range("A" & Ctr) = c.Value
.Range("F" & Ctr) = c.Offset(0, 1)
.Range("G" & Ctr) = c.Offset(0, 2)
.Range("H" & Ctr) = c.Offset(0, 3)
.Range("J" & Ctr) = c.Offset(0, 5)
Ctr = Ctr + 1
Next c
Workbooks(Fich & ".xls").Close False
ActiveSheet.Protect
End With
End Sub
'=============================== > ce code va me chercher la feuille enregistrée dans
C:CONCEPT HabitatDevis
et me la recopie dans le formulaire pour modification.
Mais avec le nom à coté du N° la recherche est plus facile.
Merci
Peponne31
"michdenis" a écrit :
> Je ne comprends toujours pas ta demande !
>
> Si tu cherches à extraire le contenu de l'item sélectionné
> du listbox pour sélectionner une feuille dans ton classeur
>
> Quelques informations sur comment faire à partir
> d'un bouton de commande dans le formulaire.
>
> '-----------------------------------------
> Private Sub CommandButton1_Click()
> Dim Sh As Worksheet
> On Error Resume Next
> With Me.ListBox1
> 'Pour extraire la sélection du listbox lors d'un clic
> 'Première colonne Deuxième colonne
> If .ListIndex <> -1 Then
> x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
> 'si x représente un numéro de feuille dans ton classeur
> 'Pour saisir ta feuille
> Err = 0
> Set Sh = Worksheets(x)
> If Err <> 0 Then
> Err = 0
> MsgBox "la feuille " & x & " inexistante dans ce classeur."
> else
> Sh.Select
> End If
> End If
> End With
> End Sub
> '-----------------------------------------
>
>
>
> "Peponne31" a écrit dans le message de groupe de
> discussion :
> Re,
>
> Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
> chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
> Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
> Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
> par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
> chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
> sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
> le formulaire qui a créé ses devis pour pouvoir les modifiers.
>
>
> "Peponne31" a écrit :
>
> >
> > Re,
> >
> > Il me semble que ta réponse voulai dire que je ne pouvais saisir
> > que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> > d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> > et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> > clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> > et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> > pour réintroduire le devis fonctionne, me manque comment relier cette
> > procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> > codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> > intégrer.
> > Amicalement
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> > >
> > > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> > >
> > >
> > >
> > > "Peponne31" a écrit dans le message de
> > > groupe de
> > > discussion :
> > > Re
> > >
> > > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > > colonne...
> > > Merci encore et bonne fin de soirée.
> > > Peponne31
> > >
> > >
> > > "michdenis" a écrit :
> > >
> > > > A )
> > > > Tu peux supprimer la petite procédure
> > > > Private Sub Valider_Click()
> > > > Elle ne sert à rien dans ton cas.
> > > >
> > > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > > dans la requête le nom du champ. Tu n'indique que
> > > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > > plage de cellule qui affecte la variable Rg en début de
> > > > procédure mais ce n'est pas obligatoire !
> > > >
> > > > C ) Ce bout de code permet d'éviter les doublons dans
> > > > ta liste si tu en as et de plus, il te sort ton champ en
> > > > ordre croissant ! Mais il n'est pas essentiel.
> > > > & vbCrLf & " Group by N°devis, Nom"
> > > >
> > > >
> > > >
Bonjour Michdenis,
items sur 2 colonnes
ligne 1 │ 0908001 │ Me DUCHEMIN │
ligne 2 │ 0908002 │ Société SOPA │
par un clic sur une de ces lignes, peut-on ouvrir ce qui suit:
'======================================= > Private Sub Valider_Click()
Dim Chemin As String, Ctr As Integer, Plage As Range, c As Range
ActiveSheet.Unprotect
Range("I12").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Value = ActiveCell.Value
Range("date").Select
ActiveCell.Value = ActiveCell.Value
Chemin = "C:CONCEPT Habitatdevis1P"
Ctr = 21
Workbooks.Open Chemin & Fich & ".xls"
Feuille = ActiveSheet.Name
With Workbooks("CONCEPT Habitat.xls").Sheets("Devis1page")
.Range("num_client") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("num_client")
.Range("dnomcli1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dnomcli1")
.Range("numdevis1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("numdevis1")
.Range("frue1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue1")
.Range("frue2") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue2")
.Range("fville") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("fville")
.Range("fcp") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("fcp")
.Range("téléphone") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("téléphone")
.Range("portable") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("portable")
.Range("dremise") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dremise")
.Range("B17") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("B17")
.Range("H4") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H4")
.Range("H5") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H5")
.Range("I51") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("I51")
Set Plage = Workbooks(Fich & ".xls").Sheets(Feuille).Range("A21:A50")
For Each c In Plage
.Range("A" & Ctr) = c.Value
.Range("F" & Ctr) = c.Offset(0, 1)
.Range("G" & Ctr) = c.Offset(0, 2)
.Range("H" & Ctr) = c.Offset(0, 3)
.Range("J" & Ctr) = c.Offset(0, 5)
Ctr = Ctr + 1
Next c
Workbooks(Fich & ".xls").Close False
ActiveSheet.Protect
End With
End Sub
'=============================== > ce code va me chercher la feuille enregistrée dans
C:CONCEPT HabitatDevis
et me la recopie dans le formulaire pour modification.
Mais avec le nom à coté du N° la recherche est plus facile.
Merci
Peponne31
"michdenis" a écrit :
> Je ne comprends toujours pas ta demande !
>
> Si tu cherches à extraire le contenu de l'item sélectionné
> du listbox pour sélectionner une feuille dans ton classeur
>
> Quelques informations sur comment faire à partir
> d'un bouton de commande dans le formulaire.
>
> '-----------------------------------------
> Private Sub CommandButton1_Click()
> Dim Sh As Worksheet
> On Error Resume Next
> With Me.ListBox1
> 'Pour extraire la sélection du listbox lors d'un clic
> 'Première colonne Deuxième colonne
> If .ListIndex <> -1 Then
> x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
> 'si x représente un numéro de feuille dans ton classeur
> 'Pour saisir ta feuille
> Err = 0
> Set Sh = Worksheets(x)
> If Err <> 0 Then
> Err = 0
> MsgBox "la feuille " & x & " inexistante dans ce classeur."
> else
> Sh.Select
> End If
> End If
> End With
> End Sub
> '-----------------------------------------
>
>
>
> "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion : 4B0A21B5-9B12-4ADA-A1F8-D655664AD651@microsoft.com...
> Re,
>
> Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
> chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
> Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
> Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
> par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
> chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
> sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
> le formulaire qui a créé ses devis pour pouvoir les modifiers.
>
>
> "Peponne31" a écrit :
>
> >
> > Re,
> >
> > Il me semble que ta réponse voulai dire que je ne pouvais saisir
> > que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> > d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> > et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> > clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> > et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> > pour réintroduire le devis fonctionne, me manque comment relier cette
> > procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> > codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> > intégrer.
> > Amicalement
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> > >
> > > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> > >
> > >
> > >
> > > "Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
> > > groupe de
> > > discussion : E71B6C49-F269-4093-B029-256AFF61C372@microsoft.com...
> > > Re
> > >
> > > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > > colonne...
> > > Merci encore et bonne fin de soirée.
> > > Peponne31
> > >
> > >
> > > "michdenis" a écrit :
> > >
> > > > A )
> > > > Tu peux supprimer la petite procédure
> > > > Private Sub Valider_Click()
> > > > Elle ne sert à rien dans ton cas.
> > > >
> > > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > > dans la requête le nom du champ. Tu n'indique que
> > > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > > plage de cellule qui affecte la variable Rg en début de
> > > > procédure mais ce n'est pas obligatoire !
> > > >
> > > > C ) Ce bout de code permet d'éviter les doublons dans
> > > > ta liste si tu en as et de plus, il te sort ton champ en
> > > > ordre croissant ! Mais il n'est pas essentiel.
> > > > & vbCrLf & " Group by N°devis, Nom"
> > > >
> > > >
> > > >
Bonjour Michdenis,
items sur 2 colonnes
ligne 1 │ 0908001 │ Me DUCHEMIN │
ligne 2 │ 0908002 │ Société SOPA │
par un clic sur une de ces lignes, peut-on ouvrir ce qui suit:
'======================================= > Private Sub Valider_Click()
Dim Chemin As String, Ctr As Integer, Plage As Range, c As Range
ActiveSheet.Unprotect
Range("I12").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Value = ActiveCell.Value
Range("date").Select
ActiveCell.Value = ActiveCell.Value
Chemin = "C:CONCEPT Habitatdevis1P"
Ctr = 21
Workbooks.Open Chemin & Fich & ".xls"
Feuille = ActiveSheet.Name
With Workbooks("CONCEPT Habitat.xls").Sheets("Devis1page")
.Range("num_client") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("num_client")
.Range("dnomcli1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dnomcli1")
.Range("numdevis1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("numdevis1")
.Range("frue1") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue1")
.Range("frue2") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("frue2")
.Range("fville") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("fville")
.Range("fcp") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("fcp")
.Range("téléphone") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("téléphone")
.Range("portable") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("portable")
.Range("dremise") = Workbooks(Fich &
".xls").Sheets(Feuille).Range("dremise")
.Range("B17") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("B17")
.Range("H4") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H4")
.Range("H5") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("H5")
.Range("I51") = Workbooks(Fich & ".xls").Sheets(Feuille).Range("I51")
Set Plage = Workbooks(Fich & ".xls").Sheets(Feuille).Range("A21:A50")
For Each c In Plage
.Range("A" & Ctr) = c.Value
.Range("F" & Ctr) = c.Offset(0, 1)
.Range("G" & Ctr) = c.Offset(0, 2)
.Range("H" & Ctr) = c.Offset(0, 3)
.Range("J" & Ctr) = c.Offset(0, 5)
Ctr = Ctr + 1
Next c
Workbooks(Fich & ".xls").Close False
ActiveSheet.Protect
End With
End Sub
'=============================== > ce code va me chercher la feuille enregistrée dans
C:CONCEPT HabitatDevis
et me la recopie dans le formulaire pour modification.
Mais avec le nom à coté du N° la recherche est plus facile.
Merci
Peponne31
"michdenis" a écrit :
> Je ne comprends toujours pas ta demande !
>
> Si tu cherches à extraire le contenu de l'item sélectionné
> du listbox pour sélectionner une feuille dans ton classeur
>
> Quelques informations sur comment faire à partir
> d'un bouton de commande dans le formulaire.
>
> '-----------------------------------------
> Private Sub CommandButton1_Click()
> Dim Sh As Worksheet
> On Error Resume Next
> With Me.ListBox1
> 'Pour extraire la sélection du listbox lors d'un clic
> 'Première colonne Deuxième colonne
> If .ListIndex <> -1 Then
> x = .List(.ListIndex, 0) & " " & .List(.ListIndex, 1)
> 'si x représente un numéro de feuille dans ton classeur
> 'Pour saisir ta feuille
> Err = 0
> Set Sh = Worksheets(x)
> If Err <> 0 Then
> Err = 0
> MsgBox "la feuille " & x & " inexistante dans ce classeur."
> else
> Sh.Select
> End If
> End If
> End With
> End Sub
> '-----------------------------------------
>
>
>
> "Peponne31" a écrit dans le message de groupe de
> discussion :
> Re,
>
> Dans la colonne A, que des chiffres: 0909001, je veux afficher les 7
> chiffres dans la ListBox1 colonne Gauche. Dans la colonne C que des lettres:
> Me DUCHEMIN que je voudrai afficher dans la colonne de droite de la Lisbox1.
> Le code en fichier joint que tu mas envoyé me va très bien. Mais je voudrai
> par clic ou bouton sur les chiffres , saisir que la colonne A, soit les
> chiffres. Chaque ligne de chiffres correspond à un N° de feuille.xls, se
> sont mes devis . Que je voudrais ouvrir, non pas dans un classeur, mais dans
> le formulaire qui a créé ses devis pour pouvoir les modifiers.
>
>
> "Peponne31" a écrit :
>
> >
> > Re,
> >
> > Il me semble que ta réponse voulai dire que je ne pouvais saisir
> > que les info d'une colonne. Ce que je voudrais essayer de faire c'est
> > d'avoir les 2 colonnes dans la ListBox, colonne gauche N° colonne droite Nom
> > et de ne saisir que le N° de client dans la colonne de gauche. Et par simple
> > clic sur le N° souhaité ou sur le bouton valider je voulais saisir le devis,
> > et le réintroduire dans mon formulaire pour pouvoir la modifier. La procédure
> > pour réintroduire le devis fonctionne, me manque comment relier cette
> > procédure, au clic ou au bouton sur le N° de client dans la LisBox1. Tous les
> > codes que vous m'envoyez fonctionnent bien, c'est moi qui ne sai pas les
> > intégrer.
> > Amicalement
> > Peponne31
> >
> >
> > "michdenis" a écrit :
> >
> > > | dommage de ne pas avoir les 2 colonnes dans la ListBox
> > >
> > > ***Et pourquoi tu ne peux pas avoir 2 colonnes dans ta listbox ?
> > >
> > >
> > >
> > > "Peponne31" a écrit dans le message de
> > > groupe de
> > > discussion :
> > > Re
> > >
> > > il est dommage de ne pas avoir les 2 colonnes dans la ListBox,
> > > pour la lisibilité c'étais bien mais si l'on ne peux reporter qu' une seule
> > > colonne...
> > > Merci encore et bonne fin de soirée.
> > > Peponne31
> > >
> > >
> > > "michdenis" a écrit :
> > >
> > > > A )
> > > > Tu peux supprimer la petite procédure
> > > > Private Sub Valider_Click()
> > > > Elle ne sert à rien dans ton cas.
> > > >
> > > > B ) Si tu ne veux qu'un champ, tu n'as qu'à modifier
> > > > dans la requête le nom du champ. Tu n'indique que
> > > > le champ qui t'intéresse. Tu peux aussi modifier aussi la
> > > > plage de cellule qui affecte la variable Rg en début de
> > > > procédure mais ce n'est pas obligatoire !
> > > >
> > > > C ) Ce bout de code permet d'éviter les doublons dans
> > > > ta liste si tu en as et de plus, il te sort ton champ en
> > > > ordre croissant ! Mais il n'est pas essentiel.
> > > > & vbCrLf & " Group by N°devis, Nom"
> > > >
> > > >
> > > >
