Et bien voilà tu as ta solution!
on adaptes ma formule à la onzième au lieu de la première.
=nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
une fois cela sur toute la colonne tu mets le filtre automatique
puis pour K filtré sur la valeur zero
puis tu sélectionne tout le tableau
F5 ( Atteindre)
Cellules visibles seulement
Copier
puis Feuil2 Coller
--
LSteph
On 2 sep, 16:06, "dyj Orange" wrote:Il y a 11 colonnes et c'est la dernière qui sert d'index à la recherche
"LSteph" a écrit dans le message de groupe de
discussion :
> ... jusqu'où Combien de colonnes
> Y a t il une colonne qui indexe les enregistrements ou faut il
> comparer chaque champ?
>>
>> > Coucou Isabelle,
>> > En effet, MEFC j'y ai songé aussi et .. mais que ce serait idéal
>> > pour
>> > un visuel sur un nombre de ligne plus restreint.
>> > Comme il a beaucoup de ligne et qu'il envisageait aussi surprenant
>> > que
>> > cela puisse paraître un msgbox
>> > j'ai pensé qu'il voulait peut - être quelque chose permettant de
>> > s'arrêter sur chaque cas.
>> > Donc le filtre sur formule me semble permettre de limiter
>> > directement
>> > à l'ensemble à traiter.
>> > Aussi quand j'ai vu ton post j'étais justement entrain de me dire
>> > que
>> > peut-être
>> > "dyj Orange" en nous disant ce qu'il compte faire ensuite sur cette
>> > selection d'enregistrements
>> > nous engagerait plus directement à lui proposer une solution sur la
>> > finalité de l'objectif souhaité.
>> > @++
>> > --
>> > LSteph
>> > On 2 sep, 11:44, isabelle wrote:
>> >> bonjour à vous deux,
>> >> dyj, tu peut aussi te servir de la formule de LSteph pour faire une
>> >> mise
>> >> en forme conditionnel
>> >> au lieu de la mettre dans une nouvelle colonne.
>> >> isabelle
>> >> Le 2010-09-02 05:36, LSteph a écrit :
>> >> > Pas lu tout, au lieu de 25000 dans l'exemplemettre 37000
>> >> > Je propose cette solution de formule pour t'éviter tious ces
>> >> > msgbox
>> >> > effectivement ce serait long et lourd
>> >> > On 2 sep, 10:43, LSteph wrote:
>> >> >> Bonjour,
>> >> >> Supposons valeurs à rechercher en colonne A de feuil1 de chacun
>> >> >> des
>> >> >> fichiers
>> >> >> En colonne adjacente vide du fichierA ligne 2 et à recopier
>> >> >> vers
>> >> >> bas
>> >> >> =nb.si([fichierB.xls]Feuil1!$a$2:$a$25000;A2)
>> >> >> Et tu repères ceux qui sont à Zero
>> >> >> ou tu mets un filtre automatique et tu les vois tous
>> >> >> Cordialement.
>> >> >> --
>> >> >> LSteph
>> >> >> On 2 sep, 09:00, "dyj Orange" wrote:
>> >> >>> Je fais appel au groupe pour obtenir une technique de recherche
>> >> >>> sous
>> >> >>> Excel
>> >> >>> 2007 et VBA. Je m'explique.
>> >> >>> J'ai 2 fichiers (A et B) rigoureusement identiques en terme de
>> >> >>> structure (nb
>> >> >>> de colonnes) mais de longueur différente (nb de lignes).
>> >> >>> Je veux chercher tous les enregistrements présent dans A et non
>> >> >>> présent dans
>> >> >>> B.
>> >> >>> J'ai fais ceci avec deux boucles imbriquées:
>> >> >>> For i=1 to LigneA
>> >> >>> For j =1 ti LigneB
>> >> >>> ' traitement .... si "=" exit For, si"<> MsgBox
>> >> >>> Next j
>> >> >>> Next i
>> >> >>> Le code marche très bien avec mes fichiers de test, mais
>> >> >>> lorsque
>> >> >>> je
>> >> >>> passe
>> >> >>> sur les fichiers réels, le temps est considérable vu le nb de
>> >> >>> lignes(A
>> >> >>> C000, B7000).
>> >> >>> Si vous avez des techniques plus performantes pour traiter mon
>> >> >>> problèmes,
>> >> >>> merci de m'en faire part.- Masquer le texte des messages
>> >> >>> précédents -
>> >> >> - Afficher le texte des messages précédents -- Masquer le texte
>> >> >> des
>> >> >> messages précédents -
>> >> - Afficher le texte des messages précédents -- Masquer le texte des
>> >> messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte des
>> messages précédents -
- Afficher le texte des messages précédents -
Et bien voilà tu as ta solution!
on adaptes ma formule à la onzième au lieu de la première.
=nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
une fois cela sur toute la colonne tu mets le filtre automatique
puis pour K filtré sur la valeur zero
puis tu sélectionne tout le tableau
F5 ( Atteindre)
Cellules visibles seulement
Copier
puis Feuil2 Coller
--
LSteph
On 2 sep, 16:06, "dyj Orange" <dyj.ora...@wanadoo.fr> wrote:
Il y a 11 colonnes et c'est la dernière qui sert d'index à la recherche
"LSteph" <gmlst...@gmail.com> a écrit dans le message de groupe de
discussion :
1e98dd65-5f63-46c3-b04a-227dc92a0...@x25g2000yqj.googlegroups.com...
> ... jusqu'où Combien de colonnes
> Y a t il une colonne qui indexe les enregistrements ou faut il
> comparer chaque champ?
>> 5b45dba5-49f5-46bb-9937-4f670cace...@u6g2000yqh.googlegroups.com...
>> > Coucou Isabelle,
>> > En effet, MEFC j'y ai songé aussi et .. mais que ce serait idéal
>> > pour
>> > un visuel sur un nombre de ligne plus restreint.
>> > Comme il a beaucoup de ligne et qu'il envisageait aussi surprenant
>> > que
>> > cela puisse paraître un msgbox
>> > j'ai pensé qu'il voulait peut - être quelque chose permettant de
>> > s'arrêter sur chaque cas.
>> > Donc le filtre sur formule me semble permettre de limiter
>> > directement
>> > à l'ensemble à traiter.
>> > Aussi quand j'ai vu ton post j'étais justement entrain de me dire
>> > que
>> > peut-être
>> > "dyj Orange" en nous disant ce qu'il compte faire ensuite sur cette
>> > selection d'enregistrements
>> > nous engagerait plus directement à lui proposer une solution sur la
>> > finalité de l'objectif souhaité.
>> > @++
>> > --
>> > LSteph
>> > On 2 sep, 11:44, isabelle <i...@v.org> wrote:
>> >> bonjour à vous deux,
>> >> dyj, tu peut aussi te servir de la formule de LSteph pour faire une
>> >> mise
>> >> en forme conditionnel
>> >> au lieu de la mettre dans une nouvelle colonne.
>> >> isabelle
>> >> Le 2010-09-02 05:36, LSteph a écrit :
>> >> > Pas lu tout, au lieu de 25000 dans l'exemplemettre 37000
>> >> > Je propose cette solution de formule pour t'éviter tious ces
>> >> > msgbox
>> >> > effectivement ce serait long et lourd
>> >> > On 2 sep, 10:43, LSteph<gmlst...@gmail.com> wrote:
>> >> >> Bonjour,
>> >> >> Supposons valeurs à rechercher en colonne A de feuil1 de chacun
>> >> >> des
>> >> >> fichiers
>> >> >> En colonne adjacente vide du fichierA ligne 2 et à recopier
>> >> >> vers
>> >> >> bas
>> >> >> =nb.si([fichierB.xls]Feuil1!$a$2:$a$25000;A2)
>> >> >> Et tu repères ceux qui sont à Zero
>> >> >> ou tu mets un filtre automatique et tu les vois tous
>> >> >> Cordialement.
>> >> >> --
>> >> >> LSteph
>> >> >> On 2 sep, 09:00, "dyj Orange"<dyj.ora...@wanadoo.fr> wrote:
>> >> >>> Je fais appel au groupe pour obtenir une technique de recherche
>> >> >>> sous
>> >> >>> Excel
>> >> >>> 2007 et VBA. Je m'explique.
>> >> >>> J'ai 2 fichiers (A et B) rigoureusement identiques en terme de
>> >> >>> structure (nb
>> >> >>> de colonnes) mais de longueur différente (nb de lignes).
>> >> >>> Je veux chercher tous les enregistrements présent dans A et non
>> >> >>> présent dans
>> >> >>> B.
>> >> >>> J'ai fais ceci avec deux boucles imbriquées:
>> >> >>> For i=1 to LigneA
>> >> >>> For j =1 ti LigneB
>> >> >>> ' traitement .... si "=" exit For, si"<> MsgBox
>> >> >>> Next j
>> >> >>> Next i
>> >> >>> Le code marche très bien avec mes fichiers de test, mais
>> >> >>> lorsque
>> >> >>> je
>> >> >>> passe
>> >> >>> sur les fichiers réels, le temps est considérable vu le nb de
>> >> >>> lignes(A
>> >> >>> C000, B7000).
>> >> >>> Si vous avez des techniques plus performantes pour traiter mon
>> >> >>> problèmes,
>> >> >>> merci de m'en faire part.- Masquer le texte des messages
>> >> >>> précédents -
>> >> >> - Afficher le texte des messages précédents -- Masquer le texte
>> >> >> des
>> >> >> messages précédents -
>> >> - Afficher le texte des messages précédents -- Masquer le texte des
>> >> messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte des
>> messages précédents -
- Afficher le texte des messages précédents -
Et bien voilà tu as ta solution!
on adaptes ma formule à la onzième au lieu de la première.
=nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
une fois cela sur toute la colonne tu mets le filtre automatique
puis pour K filtré sur la valeur zero
puis tu sélectionne tout le tableau
F5 ( Atteindre)
Cellules visibles seulement
Copier
puis Feuil2 Coller
--
LSteph
On 2 sep, 16:06, "dyj Orange" wrote:Il y a 11 colonnes et c'est la dernière qui sert d'index à la recherche
"LSteph" a écrit dans le message de groupe de
discussion :
> ... jusqu'où Combien de colonnes
> Y a t il une colonne qui indexe les enregistrements ou faut il
> comparer chaque champ?
>>
>> > Coucou Isabelle,
>> > En effet, MEFC j'y ai songé aussi et .. mais que ce serait idéal
>> > pour
>> > un visuel sur un nombre de ligne plus restreint.
>> > Comme il a beaucoup de ligne et qu'il envisageait aussi surprenant
>> > que
>> > cela puisse paraître un msgbox
>> > j'ai pensé qu'il voulait peut - être quelque chose permettant de
>> > s'arrêter sur chaque cas.
>> > Donc le filtre sur formule me semble permettre de limiter
>> > directement
>> > à l'ensemble à traiter.
>> > Aussi quand j'ai vu ton post j'étais justement entrain de me dire
>> > que
>> > peut-être
>> > "dyj Orange" en nous disant ce qu'il compte faire ensuite sur cette
>> > selection d'enregistrements
>> > nous engagerait plus directement à lui proposer une solution sur la
>> > finalité de l'objectif souhaité.
>> > @++
>> > --
>> > LSteph
>> > On 2 sep, 11:44, isabelle wrote:
>> >> bonjour à vous deux,
>> >> dyj, tu peut aussi te servir de la formule de LSteph pour faire une
>> >> mise
>> >> en forme conditionnel
>> >> au lieu de la mettre dans une nouvelle colonne.
>> >> isabelle
>> >> Le 2010-09-02 05:36, LSteph a écrit :
>> >> > Pas lu tout, au lieu de 25000 dans l'exemplemettre 37000
>> >> > Je propose cette solution de formule pour t'éviter tious ces
>> >> > msgbox
>> >> > effectivement ce serait long et lourd
>> >> > On 2 sep, 10:43, LSteph wrote:
>> >> >> Bonjour,
>> >> >> Supposons valeurs à rechercher en colonne A de feuil1 de chacun
>> >> >> des
>> >> >> fichiers
>> >> >> En colonne adjacente vide du fichierA ligne 2 et à recopier
>> >> >> vers
>> >> >> bas
>> >> >> =nb.si([fichierB.xls]Feuil1!$a$2:$a$25000;A2)
>> >> >> Et tu repères ceux qui sont à Zero
>> >> >> ou tu mets un filtre automatique et tu les vois tous
>> >> >> Cordialement.
>> >> >> --
>> >> >> LSteph
>> >> >> On 2 sep, 09:00, "dyj Orange" wrote:
>> >> >>> Je fais appel au groupe pour obtenir une technique de recherche
>> >> >>> sous
>> >> >>> Excel
>> >> >>> 2007 et VBA. Je m'explique.
>> >> >>> J'ai 2 fichiers (A et B) rigoureusement identiques en terme de
>> >> >>> structure (nb
>> >> >>> de colonnes) mais de longueur différente (nb de lignes).
>> >> >>> Je veux chercher tous les enregistrements présent dans A et non
>> >> >>> présent dans
>> >> >>> B.
>> >> >>> J'ai fais ceci avec deux boucles imbriquées:
>> >> >>> For i=1 to LigneA
>> >> >>> For j =1 ti LigneB
>> >> >>> ' traitement .... si "=" exit For, si"<> MsgBox
>> >> >>> Next j
>> >> >>> Next i
>> >> >>> Le code marche très bien avec mes fichiers de test, mais
>> >> >>> lorsque
>> >> >>> je
>> >> >>> passe
>> >> >>> sur les fichiers réels, le temps est considérable vu le nb de
>> >> >>> lignes(A
>> >> >>> C000, B7000).
>> >> >>> Si vous avez des techniques plus performantes pour traiter mon
>> >> >>> problèmes,
>> >> >>> merci de m'en faire part.- Masquer le texte des messages
>> >> >>> précédents -
>> >> >> - Afficher le texte des messages précédents -- Masquer le texte
>> >> >> des
>> >> >> messages précédents -
>> >> - Afficher le texte des messages précédents -- Masquer le texte des
>> >> messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte des
>> messages précédents -
- Afficher le texte des messages précédents -
Et bien voilà tu as ta solution!
on adaptes ma formule à la onzième au lieu de la première.
=nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
une fois cela sur toute la colonne tu mets le filtre automatique
puis pour K filtré sur la valeur zero
puis tu sélectionne tout le tableau
F5 ( Atteindre)
Cellules visibles seulement
Copier
puis Feuil2 Coller
--
LSteph
Et bien voilà tu as ta solution!
on adaptes ma formule à la onzième au lieu de la première.
=nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
une fois cela sur toute la colonne tu mets le filtre automatique
puis pour K filtré sur la valeur zero
puis tu sélectionne tout le tableau
F5 ( Atteindre)
Cellules visibles seulement
Copier
puis Feuil2 Coller
--
LSteph
Et bien voilà tu as ta solution!
on adaptes ma formule à la onzième au lieu de la première.
=nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
une fois cela sur toute la colonne tu mets le filtre automatique
puis pour K filtré sur la valeur zero
puis tu sélectionne tout le tableau
F5 ( Atteindre)
Cellules visibles seulement
Copier
puis Feuil2 Coller
--
LSteph
Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
solution, aussi je m'excuse de prendre ton temps. Je réexplique mon sou cis,
bien que ce que j'ai développé marche sauf le temps qui me paraît l ong
(30'). C'est pourquoi j'aimerai connaître d'autres techniques.
J'ai un classeur de 4 feuilles.
Feuil1: Mes boutons de commandes
Feuil2: Mes données A
Feuil3: Mes données B (structure identique à la Feuil2, 11 colonnes m ais un
nombre de lignes différents)
Feuil4: Les résultats de recherche.
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1( N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la ligne
de Feuil1 dans Feuil4.
Ce qui me trouble, c'est que je ne vois comment et où utiliser ta formu le.
"LSteph" a écrit dans le message de groupe de
discussion :
> Et bien voilà tu as ta solution!
> on adaptes ma formule à la onzième au lieu de la première.
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> une fois cela sur toute la colonne tu mets le filtre automatique
> puis pour K filtré sur la valeur zero
> puis tu sélectionne tout le tableau
> F5 ( Atteindre)
> Cellules visibles seulement
> Copier
> puis Feuil2 Coller
> --
> LSteph- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
solution, aussi je m'excuse de prendre ton temps. Je réexplique mon sou cis,
bien que ce que j'ai développé marche sauf le temps qui me paraît l ong
(30'). C'est pourquoi j'aimerai connaître d'autres techniques.
J'ai un classeur de 4 feuilles.
Feuil1: Mes boutons de commandes
Feuil2: Mes données A
Feuil3: Mes données B (structure identique à la Feuil2, 11 colonnes m ais un
nombre de lignes différents)
Feuil4: Les résultats de recherche.
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1( N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la ligne
de Feuil1 dans Feuil4.
Ce qui me trouble, c'est que je ne vois comment et où utiliser ta formu le.
"LSteph" <gmlst...@gmail.com> a écrit dans le message de groupe de
discussion :
14f134e6-b538-459d-b411-6d15dfe6d...@f6g2000yqa.googlegroups.com...
> Et bien voilà tu as ta solution!
> on adaptes ma formule à la onzième au lieu de la première.
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> une fois cela sur toute la colonne tu mets le filtre automatique
> puis pour K filtré sur la valeur zero
> puis tu sélectionne tout le tableau
> F5 ( Atteindre)
> Cellules visibles seulement
> Copier
> puis Feuil2 Coller
> --
> LSteph- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
solution, aussi je m'excuse de prendre ton temps. Je réexplique mon sou cis,
bien que ce que j'ai développé marche sauf le temps qui me paraît l ong
(30'). C'est pourquoi j'aimerai connaître d'autres techniques.
J'ai un classeur de 4 feuilles.
Feuil1: Mes boutons de commandes
Feuil2: Mes données A
Feuil3: Mes données B (structure identique à la Feuil2, 11 colonnes m ais un
nombre de lignes différents)
Feuil4: Les résultats de recherche.
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1( N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la ligne
de Feuil1 dans Feuil4.
Ce qui me trouble, c'est que je ne vois comment et où utiliser ta formu le.
"LSteph" a écrit dans le message de groupe de
discussion :
> Et bien voilà tu as ta solution!
> on adaptes ma formule à la onzième au lieu de la première.
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> une fois cela sur toute la colonne tu mets le filtre automatique
> puis pour K filtré sur la valeur zero
> puis tu sélectionne tout le tableau
> F5 ( Atteindre)
> Cellules visibles seulement
> Copier
> puis Feuil2 Coller
> --
> LSteph- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Feuil2: Mes données A
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1( N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la ligne
de Feuil1 dans Feuil4.
Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
solution, aussi je m'excuse de prendre ton temps. Je réexplique mon sou cis,
bien que ce que j'ai développé marche sauf le temps qui me paraît l ong
(30'). C'est pourquoi j'aimerai connaître d'autres techniques.
J'ai un classeur de 4 feuilles.
Feuil1: Mes boutons de commandes
Feuil2: Mes données A
Feuil3: Mes données B (structure identique à la Feuil2, 11 colonnes m ais un
nombre de lignes différents)
Feuil4: Les résultats de recherche.
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1( N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la ligne
de Feuil1 dans Feuil4.
Ce qui me trouble, c'est que je ne vois comment et où utiliser ta formu le.
"LSteph" a écrit dans le message de groupe de
discussion :
> Et bien voilà tu as ta solution!
> on adaptes ma formule à la onzième au lieu de la première.
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> une fois cela sur toute la colonne tu mets le filtre automatique
> puis pour K filtré sur la valeur zero
> puis tu sélectionne tout le tableau
> F5 ( Atteindre)
> Cellules visibles seulement
> Copier
> puis Feuil2 Coller
> --
> LSteph- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Feuil2: Mes données A
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1( N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la ligne
de Feuil1 dans Feuil4.
Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
solution, aussi je m'excuse de prendre ton temps. Je réexplique mon sou cis,
bien que ce que j'ai développé marche sauf le temps qui me paraît l ong
(30'). C'est pourquoi j'aimerai connaître d'autres techniques.
J'ai un classeur de 4 feuilles.
Feuil1: Mes boutons de commandes
Feuil2: Mes données A
Feuil3: Mes données B (structure identique à la Feuil2, 11 colonnes m ais un
nombre de lignes différents)
Feuil4: Les résultats de recherche.
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1( N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la ligne
de Feuil1 dans Feuil4.
Ce qui me trouble, c'est que je ne vois comment et où utiliser ta formu le.
"LSteph" <gmlst...@gmail.com> a écrit dans le message de groupe de
discussion :
14f134e6-b538-459d-b411-6d15dfe6d...@f6g2000yqa.googlegroups.com...
> Et bien voilà tu as ta solution!
> on adaptes ma formule à la onzième au lieu de la première.
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> une fois cela sur toute la colonne tu mets le filtre automatique
> puis pour K filtré sur la valeur zero
> puis tu sélectionne tout le tableau
> F5 ( Atteindre)
> Cellules visibles seulement
> Copier
> puis Feuil2 Coller
> --
> LSteph- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Feuil2: Mes données A
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1( N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la ligne
de Feuil1 dans Feuil4.
Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
solution, aussi je m'excuse de prendre ton temps. Je réexplique mon sou cis,
bien que ce que j'ai développé marche sauf le temps qui me paraît l ong
(30'). C'est pourquoi j'aimerai connaître d'autres techniques.
J'ai un classeur de 4 feuilles.
Feuil1: Mes boutons de commandes
Feuil2: Mes données A
Feuil3: Mes données B (structure identique à la Feuil2, 11 colonnes m ais un
nombre de lignes différents)
Feuil4: Les résultats de recherche.
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1( N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la ligne
de Feuil1 dans Feuil4.
Ce qui me trouble, c'est que je ne vois comment et où utiliser ta formu le.
"LSteph" a écrit dans le message de groupe de
discussion :
> Et bien voilà tu as ta solution!
> on adaptes ma formule à la onzième au lieu de la première.
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> une fois cela sur toute la colonne tu mets le filtre automatique
> puis pour K filtré sur la valeur zero
> puis tu sélectionne tout le tableau
> F5 ( Atteindre)
> Cellules visibles seulement
> Copier
> puis Feuil2 Coller
> --
> LSteph- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
C'est bien plus long à dire qu'à faire, en fait cela prend environ 7
secondes.
VBA est fort utile et je m'en sers énormément surtout quand c'est
indispensable
Or ici on en a absolument pas besoin (même si on pourrait aussi le
faire avec)
Excel sait faire ce que tu veux presque tout seul, je récapitule:
Supposons remplies tes colonnes de A jusqu'à Y et bien on ajoute
adjacente
une colonne Z dans le tableau1 dans celle-ci on met
en ligne1 Letitre (ce que tu veux)
on se ensuite en z2 tu colle la formule , adapte éventuellement le nom
[fichierB.xls]Feuil1à ton classeur
=nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
à recopier vers bas.
Dans ce tableau tu actives Données Filtre Automatique
tu filtre la colonne Z sur 0
Appuies sur F5 puis Cellules Cellules Visibles Seulement OK
Copier
Aller dans la feuille destination Coller
Cordialement.
--
LSteph
On 3 sep, 10:55, "dyj Orange" wrote:Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
solution, aussi je m'excuse de prendre ton temps. Je réexplique mon
soucis,
bien que ce que j'ai développé marche sauf le temps qui me paraît long
(30'). C'est pourquoi j'aimerai connaître d'autres techniques.
J'ai un classeur de 4 feuilles.
Feuil1: Mes boutons de commandes
Feuil2: Mes données A
Feuil3: Mes données B (structure identique à la Feuil2, 11 colonnes mais
un
nombre de lignes différents)
Feuil4: Les résultats de recherche.
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1(N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la
ligne
de Feuil1 dans Feuil4.
Ce qui me trouble, c'est que je ne vois comment et où utiliser ta
formule.
"LSteph" a écrit dans le message de groupe de
discussion :
> Et bien voilà tu as ta solution!
> on adaptes ma formule à la onzième au lieu de la première.
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> une fois cela sur toute la colonne tu mets le filtre automatique
> puis pour K filtré sur la valeur zero
> puis tu sélectionne tout le tableau
> F5 ( Atteindre)
> Cellules visibles seulement
> Copier
> puis Feuil2 Coller
> --
> LSteph- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
C'est bien plus long à dire qu'à faire, en fait cela prend environ 7
secondes.
VBA est fort utile et je m'en sers énormément surtout quand c'est
indispensable
Or ici on en a absolument pas besoin (même si on pourrait aussi le
faire avec)
Excel sait faire ce que tu veux presque tout seul, je récapitule:
Supposons remplies tes colonnes de A jusqu'à Y et bien on ajoute
adjacente
une colonne Z dans le tableau1 dans celle-ci on met
en ligne1 Letitre (ce que tu veux)
on se ensuite en z2 tu colle la formule , adapte éventuellement le nom
[fichierB.xls]Feuil1à ton classeur
=nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
à recopier vers bas.
Dans ce tableau tu actives Données Filtre Automatique
tu filtre la colonne Z sur 0
Appuies sur F5 puis Cellules Cellules Visibles Seulement OK
Copier
Aller dans la feuille destination Coller
Cordialement.
--
LSteph
On 3 sep, 10:55, "dyj Orange" <dyj.ora...@wanadoo.fr> wrote:
Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
solution, aussi je m'excuse de prendre ton temps. Je réexplique mon
soucis,
bien que ce que j'ai développé marche sauf le temps qui me paraît long
(30'). C'est pourquoi j'aimerai connaître d'autres techniques.
J'ai un classeur de 4 feuilles.
Feuil1: Mes boutons de commandes
Feuil2: Mes données A
Feuil3: Mes données B (structure identique à la Feuil2, 11 colonnes mais
un
nombre de lignes différents)
Feuil4: Les résultats de recherche.
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1(N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la
ligne
de Feuil1 dans Feuil4.
Ce qui me trouble, c'est que je ne vois comment et où utiliser ta
formule.
"LSteph" <gmlst...@gmail.com> a écrit dans le message de groupe de
discussion :
14f134e6-b538-459d-b411-6d15dfe6d...@f6g2000yqa.googlegroups.com...
> Et bien voilà tu as ta solution!
> on adaptes ma formule à la onzième au lieu de la première.
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> une fois cela sur toute la colonne tu mets le filtre automatique
> puis pour K filtré sur la valeur zero
> puis tu sélectionne tout le tableau
> F5 ( Atteindre)
> Cellules visibles seulement
> Copier
> puis Feuil2 Coller
> --
> LSteph- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
C'est bien plus long à dire qu'à faire, en fait cela prend environ 7
secondes.
VBA est fort utile et je m'en sers énormément surtout quand c'est
indispensable
Or ici on en a absolument pas besoin (même si on pourrait aussi le
faire avec)
Excel sait faire ce que tu veux presque tout seul, je récapitule:
Supposons remplies tes colonnes de A jusqu'à Y et bien on ajoute
adjacente
une colonne Z dans le tableau1 dans celle-ci on met
en ligne1 Letitre (ce que tu veux)
on se ensuite en z2 tu colle la formule , adapte éventuellement le nom
[fichierB.xls]Feuil1à ton classeur
=nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
à recopier vers bas.
Dans ce tableau tu actives Données Filtre Automatique
tu filtre la colonne Z sur 0
Appuies sur F5 puis Cellules Cellules Visibles Seulement OK
Copier
Aller dans la feuille destination Coller
Cordialement.
--
LSteph
On 3 sep, 10:55, "dyj Orange" wrote:Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
solution, aussi je m'excuse de prendre ton temps. Je réexplique mon
soucis,
bien que ce que j'ai développé marche sauf le temps qui me paraît long
(30'). C'est pourquoi j'aimerai connaître d'autres techniques.
J'ai un classeur de 4 feuilles.
Feuil1: Mes boutons de commandes
Feuil2: Mes données A
Feuil3: Mes données B (structure identique à la Feuil2, 11 colonnes mais
un
nombre de lignes différents)
Feuil4: Les résultats de recherche.
Mon code activé par un click sur Bouton1 : Si un élément de Feuil1(N° de
pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la
ligne
de Feuil1 dans Feuil4.
Ce qui me trouble, c'est que je ne vois comment et où utiliser ta
formule.
"LSteph" a écrit dans le message de groupe de
discussion :
> Et bien voilà tu as ta solution!
> on adaptes ma formule à la onzième au lieu de la première.
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> une fois cela sur toute la colonne tu mets le filtre automatique
> puis pour K filtré sur la valeur zero
> puis tu sélectionne tout le tableau
> F5 ( Atteindre)
> Cellules visibles seulement
> Copier
> puis Feuil2 Coller
> --
> LSteph- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
L'expérience ... je voulais faire cette formule en vba ????? J'ai compr is le
principe. Encore un grand merci de ton temps et de ton expérience.
"LSteph" a écrit dans le message de groupe de
discussion :
> Bonjour,
> C'est bien plus long à dire qu'à faire, en fait cela prend envir on 7
> secondes.
> VBA est fort utile et je m'en sers énormément surtout quand c'est
> indispensable
> Or ici on en a absolument pas besoin (même si on pourrait aussi le
> faire avec)
> Excel sait faire ce que tu veux presque tout seul, je récapitule:
> Supposons remplies tes colonnes de A jusqu'à Y et bien on ajoute
> adjacente
> une colonne Z dans le tableau1 dans celle-ci on met
> en ligne1 Letitre (ce que tu veux)
> on se ensuite en z2 tu colle la formule , adapte éventuellement le no m
> [fichierB.xls]Feuil1à ton classeur
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> à recopier vers bas.
> Dans ce tableau tu actives Données Filtre Automatique
> tu filtre la colonne Z sur 0
> Appuies sur F5 puis Cellules Cellules Visibles Seulement OK
> Copier
> Aller dans la feuille destination Coller
> Cordialement.
> --
> LSteph
> On 3 sep, 10:55, "dyj Orange" wrote:
>> Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
>> solution, aussi je m'excuse de prendre ton temps. Je réexplique mon
>> soucis,
>> bien que ce que j'ai développé marche sauf le temps qui me paraî t long
>> (30'). C'est pourquoi j'aimerai connaître d'autres techniques.
>> J'ai un classeur de 4 feuilles.
>> Feuil1: Mes boutons de commandes
>> Feuil2: Mes données A
>> Feuil3: Mes données B (structure identique à la Feuil2, 11 colonne s mais
>> un
>> nombre de lignes différents)
>> Feuil4: Les résultats de recherche.
>> Mon code activé par un click sur Bouton1 : Si un élément de Feui l1(N° de
>> pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la
>> ligne
>> de Feuil1 dans Feuil4.
>> Ce qui me trouble, c'est que je ne vois comment et où utiliser ta
>> formule.
>> "LSteph" a écrit dans le message de groupe de
>> discussion :
>>
>> > Et bien voilà tu as ta solution!
>> > on adaptes ma formule à la onzième au lieu de la première.
>> > =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
>> > une fois cela sur toute la colonne tu mets le filtre automatique
>> > puis pour K filtré sur la valeur zero
>> > puis tu sélectionne tout le tableau
>> > F5 ( Atteindre)
>> > Cellules visibles seulement
>> > Copier
>> > puis Feuil2 Coller
>> > --
>> > LSteph- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
L'expérience ... je voulais faire cette formule en vba ????? J'ai compr is le
principe. Encore un grand merci de ton temps et de ton expérience.
"LSteph" <gmlst...@gmail.com> a écrit dans le message de groupe de
discussion :
88bcf1db-1783-442e-924b-e465f6dc9...@x42g2000yqx.googlegroups.com...
> Bonjour,
> C'est bien plus long à dire qu'à faire, en fait cela prend envir on 7
> secondes.
> VBA est fort utile et je m'en sers énormément surtout quand c'est
> indispensable
> Or ici on en a absolument pas besoin (même si on pourrait aussi le
> faire avec)
> Excel sait faire ce que tu veux presque tout seul, je récapitule:
> Supposons remplies tes colonnes de A jusqu'à Y et bien on ajoute
> adjacente
> une colonne Z dans le tableau1 dans celle-ci on met
> en ligne1 Letitre (ce que tu veux)
> on se ensuite en z2 tu colle la formule , adapte éventuellement le no m
> [fichierB.xls]Feuil1à ton classeur
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> à recopier vers bas.
> Dans ce tableau tu actives Données Filtre Automatique
> tu filtre la colonne Z sur 0
> Appuies sur F5 puis Cellules Cellules Visibles Seulement OK
> Copier
> Aller dans la feuille destination Coller
> Cordialement.
> --
> LSteph
> On 3 sep, 10:55, "dyj Orange" <dyj.ora...@wanadoo.fr> wrote:
>> Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
>> solution, aussi je m'excuse de prendre ton temps. Je réexplique mon
>> soucis,
>> bien que ce que j'ai développé marche sauf le temps qui me paraî t long
>> (30'). C'est pourquoi j'aimerai connaître d'autres techniques.
>> J'ai un classeur de 4 feuilles.
>> Feuil1: Mes boutons de commandes
>> Feuil2: Mes données A
>> Feuil3: Mes données B (structure identique à la Feuil2, 11 colonne s mais
>> un
>> nombre de lignes différents)
>> Feuil4: Les résultats de recherche.
>> Mon code activé par un click sur Bouton1 : Si un élément de Feui l1(N° de
>> pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la
>> ligne
>> de Feuil1 dans Feuil4.
>> Ce qui me trouble, c'est que je ne vois comment et où utiliser ta
>> formule.
>> "LSteph" <gmlst...@gmail.com> a écrit dans le message de groupe de
>> discussion :
>> 14f134e6-b538-459d-b411-6d15dfe6d...@f6g2000yqa.googlegroups.com...
>> > Et bien voilà tu as ta solution!
>> > on adaptes ma formule à la onzième au lieu de la première.
>> > =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
>> > une fois cela sur toute la colonne tu mets le filtre automatique
>> > puis pour K filtré sur la valeur zero
>> > puis tu sélectionne tout le tableau
>> > F5 ( Atteindre)
>> > Cellules visibles seulement
>> > Copier
>> > puis Feuil2 Coller
>> > --
>> > LSteph- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
L'expérience ... je voulais faire cette formule en vba ????? J'ai compr is le
principe. Encore un grand merci de ton temps et de ton expérience.
"LSteph" a écrit dans le message de groupe de
discussion :
> Bonjour,
> C'est bien plus long à dire qu'à faire, en fait cela prend envir on 7
> secondes.
> VBA est fort utile et je m'en sers énormément surtout quand c'est
> indispensable
> Or ici on en a absolument pas besoin (même si on pourrait aussi le
> faire avec)
> Excel sait faire ce que tu veux presque tout seul, je récapitule:
> Supposons remplies tes colonnes de A jusqu'à Y et bien on ajoute
> adjacente
> une colonne Z dans le tableau1 dans celle-ci on met
> en ligne1 Letitre (ce que tu veux)
> on se ensuite en z2 tu colle la formule , adapte éventuellement le no m
> [fichierB.xls]Feuil1à ton classeur
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> à recopier vers bas.
> Dans ce tableau tu actives Données Filtre Automatique
> tu filtre la colonne Z sur 0
> Appuies sur F5 puis Cellules Cellules Visibles Seulement OK
> Copier
> Aller dans la feuille destination Coller
> Cordialement.
> --
> LSteph
> On 3 sep, 10:55, "dyj Orange" wrote:
>> Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
>> solution, aussi je m'excuse de prendre ton temps. Je réexplique mon
>> soucis,
>> bien que ce que j'ai développé marche sauf le temps qui me paraî t long
>> (30'). C'est pourquoi j'aimerai connaître d'autres techniques.
>> J'ai un classeur de 4 feuilles.
>> Feuil1: Mes boutons de commandes
>> Feuil2: Mes données A
>> Feuil3: Mes données B (structure identique à la Feuil2, 11 colonne s mais
>> un
>> nombre de lignes différents)
>> Feuil4: Les résultats de recherche.
>> Mon code activé par un click sur Bouton1 : Si un élément de Feui l1(N° de
>> pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la
>> ligne
>> de Feuil1 dans Feuil4.
>> Ce qui me trouble, c'est que je ne vois comment et où utiliser ta
>> formule.
>> "LSteph" a écrit dans le message de groupe de
>> discussion :
>>
>> > Et bien voilà tu as ta solution!
>> > on adaptes ma formule à la onzième au lieu de la première.
>> > =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
>> > une fois cela sur toute la colonne tu mets le filtre automatique
>> > puis pour K filtré sur la valeur zero
>> > puis tu sélectionne tout le tableau
>> > F5 ( Atteindre)
>> > Cellules visibles seulement
>> > Copier
>> > puis Feuil2 Coller
>> > --
>> > LSteph- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
L'expérience ... je voulais faire cette formule en vba ????? J'ai compr is le
principe. Encore un grand merci de ton temps et de ton expérience.
"LSteph" a écrit dans le message de groupe de
discussion :
> Bonjour,
> C'est bien plus long à dire qu'à faire, en fait cela prend envir on 7
> secondes.
> VBA est fort utile et je m'en sers énormément surtout quand c'est
> indispensable
> Or ici on en a absolument pas besoin (même si on pourrait aussi le
> faire avec)
> Excel sait faire ce que tu veux presque tout seul, je récapitule:
> Supposons remplies tes colonnes de A jusqu'à Y et bien on ajoute
> adjacente
> une colonne Z dans le tableau1 dans celle-ci on met
> en ligne1 Letitre (ce que tu veux)
> on se ensuite en z2 tu colle la formule , adapte éventuellement le no m
> [fichierB.xls]Feuil1à ton classeur
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> à recopier vers bas.
> Dans ce tableau tu actives Données Filtre Automatique
> tu filtre la colonne Z sur 0
> Appuies sur F5 puis Cellules Cellules Visibles Seulement OK
> Copier
> Aller dans la feuille destination Coller
> Cordialement.
> --
> LSteph
> On 3 sep, 10:55, "dyj Orange" wrote:
>> Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
>> solution, aussi je m'excuse de prendre ton temps. Je réexplique mon
>> soucis,
>> bien que ce que j'ai développé marche sauf le temps qui me paraî t long
>> (30'). C'est pourquoi j'aimerai connaître d'autres techniques.
>> J'ai un classeur de 4 feuilles.
>> Feuil1: Mes boutons de commandes
>> Feuil2: Mes données A
>> Feuil3: Mes données B (structure identique à la Feuil2, 11 colonne s mais
>> un
>> nombre de lignes différents)
>> Feuil4: Les résultats de recherche.
>> Mon code activé par un click sur Bouton1 : Si un élément de Feui l1(N° de
>> pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la
>> ligne
>> de Feuil1 dans Feuil4.
>> Ce qui me trouble, c'est que je ne vois comment et où utiliser ta
>> formule.
>> "LSteph" a écrit dans le message de groupe de
>> discussion :
>>
>> > Et bien voilà tu as ta solution!
>> > on adaptes ma formule à la onzième au lieu de la première.
>> > =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
>> > une fois cela sur toute la colonne tu mets le filtre automatique
>> > puis pour K filtré sur la valeur zero
>> > puis tu sélectionne tout le tableau
>> > F5 ( Atteindre)
>> > Cellules visibles seulement
>> > Copier
>> > puis Feuil2 Coller
>> > --
>> > LSteph- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
L'expérience ... je voulais faire cette formule en vba ????? J'ai compr is le
principe. Encore un grand merci de ton temps et de ton expérience.
"LSteph" <gmlst...@gmail.com> a écrit dans le message de groupe de
discussion :
88bcf1db-1783-442e-924b-e465f6dc9...@x42g2000yqx.googlegroups.com...
> Bonjour,
> C'est bien plus long à dire qu'à faire, en fait cela prend envir on 7
> secondes.
> VBA est fort utile et je m'en sers énormément surtout quand c'est
> indispensable
> Or ici on en a absolument pas besoin (même si on pourrait aussi le
> faire avec)
> Excel sait faire ce que tu veux presque tout seul, je récapitule:
> Supposons remplies tes colonnes de A jusqu'à Y et bien on ajoute
> adjacente
> une colonne Z dans le tableau1 dans celle-ci on met
> en ligne1 Letitre (ce que tu veux)
> on se ensuite en z2 tu colle la formule , adapte éventuellement le no m
> [fichierB.xls]Feuil1à ton classeur
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> à recopier vers bas.
> Dans ce tableau tu actives Données Filtre Automatique
> tu filtre la colonne Z sur 0
> Appuies sur F5 puis Cellules Cellules Visibles Seulement OK
> Copier
> Aller dans la feuille destination Coller
> Cordialement.
> --
> LSteph
> On 3 sep, 10:55, "dyj Orange" <dyj.ora...@wanadoo.fr> wrote:
>> Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
>> solution, aussi je m'excuse de prendre ton temps. Je réexplique mon
>> soucis,
>> bien que ce que j'ai développé marche sauf le temps qui me paraî t long
>> (30'). C'est pourquoi j'aimerai connaître d'autres techniques.
>> J'ai un classeur de 4 feuilles.
>> Feuil1: Mes boutons de commandes
>> Feuil2: Mes données A
>> Feuil3: Mes données B (structure identique à la Feuil2, 11 colonne s mais
>> un
>> nombre de lignes différents)
>> Feuil4: Les résultats de recherche.
>> Mon code activé par un click sur Bouton1 : Si un élément de Feui l1(N° de
>> pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la
>> ligne
>> de Feuil1 dans Feuil4.
>> Ce qui me trouble, c'est que je ne vois comment et où utiliser ta
>> formule.
>> "LSteph" <gmlst...@gmail.com> a écrit dans le message de groupe de
>> discussion :
>> 14f134e6-b538-459d-b411-6d15dfe6d...@f6g2000yqa.googlegroups.com...
>> > Et bien voilà tu as ta solution!
>> > on adaptes ma formule à la onzième au lieu de la première.
>> > =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
>> > une fois cela sur toute la colonne tu mets le filtre automatique
>> > puis pour K filtré sur la valeur zero
>> > puis tu sélectionne tout le tableau
>> > F5 ( Atteindre)
>> > Cellules visibles seulement
>> > Copier
>> > puis Feuil2 Coller
>> > --
>> > LSteph- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
L'expérience ... je voulais faire cette formule en vba ????? J'ai compr is le
principe. Encore un grand merci de ton temps et de ton expérience.
"LSteph" a écrit dans le message de groupe de
discussion :
> Bonjour,
> C'est bien plus long à dire qu'à faire, en fait cela prend envir on 7
> secondes.
> VBA est fort utile et je m'en sers énormément surtout quand c'est
> indispensable
> Or ici on en a absolument pas besoin (même si on pourrait aussi le
> faire avec)
> Excel sait faire ce que tu veux presque tout seul, je récapitule:
> Supposons remplies tes colonnes de A jusqu'à Y et bien on ajoute
> adjacente
> une colonne Z dans le tableau1 dans celle-ci on met
> en ligne1 Letitre (ce que tu veux)
> on se ensuite en z2 tu colle la formule , adapte éventuellement le no m
> [fichierB.xls]Feuil1à ton classeur
> =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
> à recopier vers bas.
> Dans ce tableau tu actives Données Filtre Automatique
> tu filtre la colonne Z sur 0
> Appuies sur F5 puis Cellules Cellules Visibles Seulement OK
> Copier
> Aller dans la feuille destination Coller
> Cordialement.
> --
> LSteph
> On 3 sep, 10:55, "dyj Orange" wrote:
>> Ma compétence en Excel+vba ne me permette pas de mettre en ouvre ta
>> solution, aussi je m'excuse de prendre ton temps. Je réexplique mon
>> soucis,
>> bien que ce que j'ai développé marche sauf le temps qui me paraî t long
>> (30'). C'est pourquoi j'aimerai connaître d'autres techniques.
>> J'ai un classeur de 4 feuilles.
>> Feuil1: Mes boutons de commandes
>> Feuil2: Mes données A
>> Feuil3: Mes données B (structure identique à la Feuil2, 11 colonne s mais
>> un
>> nombre de lignes différents)
>> Feuil4: Les résultats de recherche.
>> Mon code activé par un click sur Bouton1 : Si un élément de Feui l1(N° de
>> pièce en K) n'existe pas dans Feuil2 (colonne K), alors je le sauve la
>> ligne
>> de Feuil1 dans Feuil4.
>> Ce qui me trouble, c'est que je ne vois comment et où utiliser ta
>> formule.
>> "LSteph" a écrit dans le message de groupe de
>> discussion :
>>
>> > Et bien voilà tu as ta solution!
>> > on adaptes ma formule à la onzième au lieu de la première.
>> > =nb.si([fichierB.xls]Feuil1!$K$2:$K$37000;K2)
>> > une fois cela sur toute la colonne tu mets le filtre automatique
>> > puis pour K filtré sur la valeur zero
>> > puis tu sélectionne tout le tableau
>> > F5 ( Atteindre)
>> > Cellules visibles seulement
>> > Copier
>> > puis Feuil2 Coller
>> > --
>> > LSteph- Masquer le texte des messages précédents -
>> - Afficher le texte des messages précédents -- Masquer le texte de s messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Voici une façon de faire :
Tu copies ce qui suit dans un module standard
Tu t'assures que les noms des feuilles correspondent à
celles de ton application. Dans mon Exemple,
j'utilise Sheet1, Sheet2 et Sheet3
'--------------------------------------
Sub test()
Dim Rg As Range, DerLig As Long
Dim LastRow As Long, Plg As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Sheet1")
'Trouve la dernière ligne de données sur
'les colonnes A:K
DerLig = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Définis une variable objet Range pour la
'colonne K1:kx
Set Rg = .Range("K1:K" & DerLig)
End With
With Worksheets("Sheet2")
'Trouve la dernière ligne de données sur
'les colonnes A:K
LastRow = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Donne une nom à la plage utile pour la formule
.Range("K1:K" & LastRow).Name = "MDplg"
End With
'Dans la colonne de la feuille 1 dans la colonne L:L
With Rg.Offset(, 1)
'insertion de la formule
.Formula = "=CountIf(MDplg," & Rg(1).Address(0, 0) & ")"
'Fait disparaître la formule pour la valeur
.Value = .Value
'Applique un filtre sur cette colonne.
'Quand NB.SI() ne trouve pas, le résultat est zéro
.AutoFilter Field:=1, Criteria1:=0
End With
'Définit la plage à copier
'l'utilisation de Offset-Resize "c'est comme" la
'formule Decaler dans la feuille de calcul
Set Plg = Rg.Offset(, -10).Resize(, 11)
'Copie des lignes visibles de la Sheet1 vers la Sheet3
Plg.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet3").Range("A1")
With Rg.Offset(, 1)
'enlève le filtre
.AutoFilter
'efface les valeurs trouvées par la formule
.Value = ""
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
MichD
--------------------------------------------
"dyj Orange" a écrit dans le message de groupe de
discussion :
4c7f4b82$0$5409$
Je fais appel au groupe pour obtenir une technique de recherche sous Excel
2007 et VBA. Je m'explique.
J'ai 2 fichiers (A et B) rigoureusement identiques en terme de structure
(nb
de colonnes) mais de longueur différente (nb de lignes).
Je veux chercher tous les enregistrements présent dans A et non présent
dans
B.
J'ai fais ceci avec deux boucles imbriquées:
For i=1 to LigneA
For j =1 ti LigneB
' traitement .... si "=" exit For, si"<> MsgBox
Next j
Next i
Le code marche très bien avec mes fichiers de test, mais lorsque je passe
sur les fichiers réels, le temps est considérable vu le nb de lignes(A
C000, B7000).
Si vous avez des techniques plus performantes pour traiter mon problèmes,
merci de m'en faire part.
Bonjour,
Voici une façon de faire :
Tu copies ce qui suit dans un module standard
Tu t'assures que les noms des feuilles correspondent à
celles de ton application. Dans mon Exemple,
j'utilise Sheet1, Sheet2 et Sheet3
'--------------------------------------
Sub test()
Dim Rg As Range, DerLig As Long
Dim LastRow As Long, Plg As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Sheet1")
'Trouve la dernière ligne de données sur
'les colonnes A:K
DerLig = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Définis une variable objet Range pour la
'colonne K1:kx
Set Rg = .Range("K1:K" & DerLig)
End With
With Worksheets("Sheet2")
'Trouve la dernière ligne de données sur
'les colonnes A:K
LastRow = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Donne une nom à la plage utile pour la formule
.Range("K1:K" & LastRow).Name = "MDplg"
End With
'Dans la colonne de la feuille 1 dans la colonne L:L
With Rg.Offset(, 1)
'insertion de la formule
.Formula = "=CountIf(MDplg," & Rg(1).Address(0, 0) & ")"
'Fait disparaître la formule pour la valeur
.Value = .Value
'Applique un filtre sur cette colonne.
'Quand NB.SI() ne trouve pas, le résultat est zéro
.AutoFilter Field:=1, Criteria1:=0
End With
'Définit la plage à copier
'l'utilisation de Offset-Resize "c'est comme" la
'formule Decaler dans la feuille de calcul
Set Plg = Rg.Offset(, -10).Resize(, 11)
'Copie des lignes visibles de la Sheet1 vers la Sheet3
Plg.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet3").Range("A1")
With Rg.Offset(, 1)
'enlève le filtre
.AutoFilter
'efface les valeurs trouvées par la formule
.Value = ""
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
MichD
--------------------------------------------
"dyj Orange" <dyj.orange@wanadoo.fr> a écrit dans le message de groupe de
discussion :
4c7f4b82$0$5409$ba4acef3@reader.news.orange.fr...
Je fais appel au groupe pour obtenir une technique de recherche sous Excel
2007 et VBA. Je m'explique.
J'ai 2 fichiers (A et B) rigoureusement identiques en terme de structure
(nb
de colonnes) mais de longueur différente (nb de lignes).
Je veux chercher tous les enregistrements présent dans A et non présent
dans
B.
J'ai fais ceci avec deux boucles imbriquées:
For i=1 to LigneA
For j =1 ti LigneB
' traitement .... si "=" exit For, si"<> MsgBox
Next j
Next i
Le code marche très bien avec mes fichiers de test, mais lorsque je passe
sur les fichiers réels, le temps est considérable vu le nb de lignes(A
C000, B7000).
Si vous avez des techniques plus performantes pour traiter mon problèmes,
merci de m'en faire part.
Bonjour,
Voici une façon de faire :
Tu copies ce qui suit dans un module standard
Tu t'assures que les noms des feuilles correspondent à
celles de ton application. Dans mon Exemple,
j'utilise Sheet1, Sheet2 et Sheet3
'--------------------------------------
Sub test()
Dim Rg As Range, DerLig As Long
Dim LastRow As Long, Plg As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Sheet1")
'Trouve la dernière ligne de données sur
'les colonnes A:K
DerLig = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Définis une variable objet Range pour la
'colonne K1:kx
Set Rg = .Range("K1:K" & DerLig)
End With
With Worksheets("Sheet2")
'Trouve la dernière ligne de données sur
'les colonnes A:K
LastRow = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Donne une nom à la plage utile pour la formule
.Range("K1:K" & LastRow).Name = "MDplg"
End With
'Dans la colonne de la feuille 1 dans la colonne L:L
With Rg.Offset(, 1)
'insertion de la formule
.Formula = "=CountIf(MDplg," & Rg(1).Address(0, 0) & ")"
'Fait disparaître la formule pour la valeur
.Value = .Value
'Applique un filtre sur cette colonne.
'Quand NB.SI() ne trouve pas, le résultat est zéro
.AutoFilter Field:=1, Criteria1:=0
End With
'Définit la plage à copier
'l'utilisation de Offset-Resize "c'est comme" la
'formule Decaler dans la feuille de calcul
Set Plg = Rg.Offset(, -10).Resize(, 11)
'Copie des lignes visibles de la Sheet1 vers la Sheet3
Plg.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet3").Range("A1")
With Rg.Offset(, 1)
'enlève le filtre
.AutoFilter
'efface les valeurs trouvées par la formule
.Value = ""
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
MichD
--------------------------------------------
"dyj Orange" a écrit dans le message de groupe de
discussion :
4c7f4b82$0$5409$
Je fais appel au groupe pour obtenir une technique de recherche sous Excel
2007 et VBA. Je m'explique.
J'ai 2 fichiers (A et B) rigoureusement identiques en terme de structure
(nb
de colonnes) mais de longueur différente (nb de lignes).
Je veux chercher tous les enregistrements présent dans A et non présent
dans
B.
J'ai fais ceci avec deux boucles imbriquées:
For i=1 to LigneA
For j =1 ti LigneB
' traitement .... si "=" exit For, si"<> MsgBox
Next j
Next i
Le code marche très bien avec mes fichiers de test, mais lorsque je passe
sur les fichiers réels, le temps est considérable vu le nb de lignes(A
C000, B7000).
Si vous avez des techniques plus performantes pour traiter mon problèmes,
merci de m'en faire part.
Bonjour,
Voici une façon de faire :
Tu copies ce qui suit dans un module standard
Tu t'assures que les noms des feuilles correspondent à
celles de ton application. Dans mon Exemple,
j'utilise Sheet1, Sheet2 et Sheet3
'--------------------------------------
Sub test()
Dim Rg As Range, DerLig As Long
Dim LastRow As Long, Plg As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Sheet1")
'Trouve la dernière ligne de données sur
'les colonnes A:K
DerLig = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Définis une variable objet Range pour la
'colonne K1:kx
Set Rg = .Range("K1:K" & DerLig)
End With
With Worksheets("Sheet2")
'Trouve la dernière ligne de données sur
'les colonnes A:K
LastRow = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Donne une nom à la plage utile pour la formule
.Range("K1:K" & LastRow).Name = "MDplg"
End With
'Dans la colonne de la feuille 1 dans la colonne L:L
With Rg.Offset(, 1)
'insertion de la formule
.Formula = "=CountIf(MDplg," & Rg(1).Address(0, 0) & ")"
'Fait disparaître la formule pour la valeur
.Value = .Value
'Applique un filtre sur cette colonne.
'Quand NB.SI() ne trouve pas, le résultat est zéro
.AutoFilter Field:=1, Criteria1:=0
End With
'Définit la plage à copier
'l'utilisation de Offset-Resize "c'est comme" la
'formule Decaler dans la feuille de calcul
Set Plg = Rg.Offset(, -10).Resize(, 11)
'Copie des lignes visibles de la Sheet1 vers la Sheet3
Plg.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet3").Range("A1")
With Rg.Offset(, 1)
'enlève le filtre
.AutoFilter
'efface les valeurs trouvées par la formule
.Value = ""
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
MichD
--------------------------------------------
"dyj Orange" a écrit dans le message de groupe de
discussion :
4c7f4b82$0$5409$
Je fais appel au groupe pour obtenir une technique de recherche sous Excel
2007 et VBA. Je m'explique.
J'ai 2 fichiers (A et B) rigoureusement identiques en terme de structure
(nb
de colonnes) mais de longueur différente (nb de lignes).
Je veux chercher tous les enregistrements présent dans A et non présent
dans
B.
J'ai fais ceci avec deux boucles imbriquées:
For i=1 to LigneA
For j =1 ti LigneB
' traitement .... si "=" exit For, si"<> MsgBox
Next j
Next i
Le code marche très bien avec mes fichiers de test, mais lorsque je passe
sur les fichiers réels, le temps est considérable vu le nb de lignes(A
C000, B7000).
Si vous avez des techniques plus performantes pour traiter mon problèmes,
merci de m'en faire part.
Bonjour,
Voici une façon de faire :
Tu copies ce qui suit dans un module standard
Tu t'assures que les noms des feuilles correspondent à
celles de ton application. Dans mon Exemple,
j'utilise Sheet1, Sheet2 et Sheet3
'--------------------------------------
Sub test()
Dim Rg As Range, DerLig As Long
Dim LastRow As Long, Plg As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Sheet1")
'Trouve la dernière ligne de données sur
'les colonnes A:K
DerLig = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Définis une variable objet Range pour la
'colonne K1:kx
Set Rg = .Range("K1:K" & DerLig)
End With
With Worksheets("Sheet2")
'Trouve la dernière ligne de données sur
'les colonnes A:K
LastRow = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Donne une nom à la plage utile pour la formule
.Range("K1:K" & LastRow).Name = "MDplg"
End With
'Dans la colonne de la feuille 1 dans la colonne L:L
With Rg.Offset(, 1)
'insertion de la formule
.Formula = "=CountIf(MDplg," & Rg(1).Address(0, 0) & ")"
'Fait disparaître la formule pour la valeur
.Value = .Value
'Applique un filtre sur cette colonne.
'Quand NB.SI() ne trouve pas, le résultat est zéro
.AutoFilter Field:=1, Criteria1:=0
End With
'Définit la plage à copier
'l'utilisation de Offset-Resize "c'est comme" la
'formule Decaler dans la feuille de calcul
Set Plg = Rg.Offset(, -10).Resize(, 11)
'Copie des lignes visibles de la Sheet1 vers la Sheet3
Plg.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet3").Range("A1")
With Rg.Offset(, 1)
'enlève le filtre
.AutoFilter
'efface les valeurs trouvées par la formule
.Value = ""
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
MichD
--------------------------------------------
"dyj Orange" <dyj.orange@wanadoo.fr> a écrit dans le message de groupe de
discussion :
4c7f4b82$0$5409$ba4acef3@reader.news.orange.fr...
Je fais appel au groupe pour obtenir une technique de recherche sous Excel
2007 et VBA. Je m'explique.
J'ai 2 fichiers (A et B) rigoureusement identiques en terme de structure
(nb
de colonnes) mais de longueur différente (nb de lignes).
Je veux chercher tous les enregistrements présent dans A et non présent
dans
B.
J'ai fais ceci avec deux boucles imbriquées:
For i=1 to LigneA
For j =1 ti LigneB
' traitement .... si "=" exit For, si"<> MsgBox
Next j
Next i
Le code marche très bien avec mes fichiers de test, mais lorsque je passe
sur les fichiers réels, le temps est considérable vu le nb de lignes(A
C000, B7000).
Si vous avez des techniques plus performantes pour traiter mon problèmes,
merci de m'en faire part.
Bonjour,
Voici une façon de faire :
Tu copies ce qui suit dans un module standard
Tu t'assures que les noms des feuilles correspondent à
celles de ton application. Dans mon Exemple,
j'utilise Sheet1, Sheet2 et Sheet3
'--------------------------------------
Sub test()
Dim Rg As Range, DerLig As Long
Dim LastRow As Long, Plg As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("Sheet1")
'Trouve la dernière ligne de données sur
'les colonnes A:K
DerLig = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Définis une variable objet Range pour la
'colonne K1:kx
Set Rg = .Range("K1:K" & DerLig)
End With
With Worksheets("Sheet2")
'Trouve la dernière ligne de données sur
'les colonnes A:K
LastRow = .Range("A:K").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Donne une nom à la plage utile pour la formule
.Range("K1:K" & LastRow).Name = "MDplg"
End With
'Dans la colonne de la feuille 1 dans la colonne L:L
With Rg.Offset(, 1)
'insertion de la formule
.Formula = "=CountIf(MDplg," & Rg(1).Address(0, 0) & ")"
'Fait disparaître la formule pour la valeur
.Value = .Value
'Applique un filtre sur cette colonne.
'Quand NB.SI() ne trouve pas, le résultat est zéro
.AutoFilter Field:=1, Criteria1:=0
End With
'Définit la plage à copier
'l'utilisation de Offset-Resize "c'est comme" la
'formule Decaler dans la feuille de calcul
Set Plg = Rg.Offset(, -10).Resize(, 11)
'Copie des lignes visibles de la Sheet1 vers la Sheet3
Plg.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet3").Range("A1")
With Rg.Offset(, 1)
'enlève le filtre
.AutoFilter
'efface les valeurs trouvées par la formule
.Value = ""
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'--------------------------------------
--
MichD
--------------------------------------------
"dyj Orange" a écrit dans le message de groupe de
discussion :
4c7f4b82$0$5409$
Je fais appel au groupe pour obtenir une technique de recherche sous Excel
2007 et VBA. Je m'explique.
J'ai 2 fichiers (A et B) rigoureusement identiques en terme de structure
(nb
de colonnes) mais de longueur différente (nb de lignes).
Je veux chercher tous les enregistrements présent dans A et non présent
dans
B.
J'ai fais ceci avec deux boucles imbriquées:
For i=1 to LigneA
For j =1 ti LigneB
' traitement .... si "=" exit For, si"<> MsgBox
Next j
Next i
Le code marche très bien avec mes fichiers de test, mais lorsque je passe
sur les fichiers réels, le temps est considérable vu le nb de lignes(A
C000, B7000).
Si vous avez des techniques plus performantes pour traiter mon problèmes,
merci de m'en faire part.