Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel offset, decaler, for, copy??

offset, decaler, for, copy??

16 réponses
Avatar
harry
Rebonjour,


Donc suite =E0 une mauvaise =E9nonce du pb de ma part je=20
r=E9it=E8re ma demande en essayant d'etre le plus claire=20
possible.

soit en:

feuil 1:

colonnes/
lignes A B C D E F G H etc....
1 fraz1 art.1 .. .. art.54 .. .. art.54
2 fraz2 art.2 .. .. art.87 .. .. art.51
3 fraz3 art.3 .. .. art.81 .. .. art.56
4 fraz4 art.4 .. .. art.61 .. .. art.74
5 fraz5 art.5 .. .. art.10 .. .. art.15


feuil 2:

colonnes/
lignes A B C D E etc....
1 S1 S2 S3 S4 S5
2 =20
3
4 fraz1 =20
5 fraz2 =20
6 fraz3 =20
7 fraz4 =20
8 fraz5=20


r=E9sultat attendu:
si A4 de la feuil 2 est =E9gal =E0 A1 de la feuil 1=20
alors B4,C4,D4,E4.. de la feuil 2 est =E9gal aux valeurs
B1,E1,H1,K1 de la feuil 1 et etc...

idem pour fraz2, fraz3, fraz4 jusqua fraz200
chez moi les fraz1,2,3 .. sont dans des colonnes fusion=E9=20
de 5 lignes, cela change t-il grand chose?

J'esp=E8re avoir =E9t=E9 le plus claire possible bien que cela n
ne soit =E9vident

Merci bcp pour votre savoir et connaissez un bouqin +
cd rom (avec exercices) pour l'apprentissage du vba=20

Merci.
>
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Philippe.R
Va pour un petit classeur et les esseuplications sur ce qui est souhaité et qui vont avec ;o))
--
Amicales Salutations
Retirer A_S_ pour répondre.

"harry" a écrit dans le message de
news:2fd4d01c46d70$97d797f0$
Je pense que tu ne vas rien comprendre je te fais suivre
le tableau de la sorte que tu veux egalement sur ton mail
wanadoo

Merci d'avance: moi c celle que tu
recevras sur ton mail wanadoo est l'adresse du boulot.

Merci bcp.


-----Message d'origine-----
Re Harry,
Peux tu expliquer un peu plus ce que tu attends, avec un
petit schéma des données par exemple, genre :


Feuil de départ
A B C D E
F G H I J K

L M
1 toto 123 258 papa 8
2 zaza 654 852
64 9

3 riri 0
4 titi 789
5
6
7
8

Résultat attendu
A B C D E
F G H I J K

L M
1
2
3 toto 123 8
4 zaza 654 64 9
5 papa
6 titi 789
7
8
9

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Harry" a écrit
dans le message de

news:2e91201c46d63$172f6b30$
Aie Aie petit soucis,

je viens de m'apercevoir en appliquant le prg de philippe,
que j'ai un soucis de step, car y s'incrémente de 1 en 1,
donc c ok pour la feuil2 mais pour la feuil les valeurs y
à reporter sont de 4 en 4 et, si je met un step sur y, ca
me modifie le y de la feuil 1. G essayé avec y - qqch mais
je n'ai pas trouvé?

:-(

Merci.


-----Message d'origine-----
Bonjour Harry,
La fusion de cellules est à éviter car elle empêche,
entre autres, l'insertion de lignes ou colonnes, le

balayage (par une macro) des lignes ou colonnes de la
plage qu'elle concerne....

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"harry" a écrit
dans le message de

news:2e89e01c46d59$b0df2ef0$
Merci et bonjour,

alors je dirais que cela vaut 6% du smic. ;-)

Au fait tu m'as dis que des cellules fusionnées, ce n'est
pas bon, mais pourkoi?


-----Message d'origine-----

"harry" a écrit
dans le message de

news:2ea6901c46b30$8b4602c0$
Mr Rauphil merci bcp pour la réponse cela marche, mais
pour ma compréhension personnelle j'aurais 2 questions:
bonjour harry
il s'appelle philippe raulet, Mr Rauphil mais tu peux
bien l'appeler

Rotofil, dès l'instant où tu lui dis merci, et même
merci



bcp, il ne saura
t'en vouloir
1 - pourquoi il faut mettre next y avant next i ?
parce qu'il doit venir à la suite de la boucle "For y
= ....."

2 - comment se fait-il que cela fonctionne sans lui
donner la feuille active de départ, lorsque tu dis
if cells(i,1).value pour lui cela peut etre feuil 1
ou feuil 2
lorsque philippe écrit "cells(i,1)", le "i" n'est pas la
feuille mais la

ligne où se situe la cellule, le "1" correspondant à la
colonne


3 - sur un prg que j'avais essayer de creer je
recevais une erreur du type end if sans le if ,
alors que le if y était?
tu ne dois pas mettre End If si ce qui suit le If est
sur



une seule ligne :
If Range("D11").Value = "" Then Range("A61").FormulaR1C1
= "du grand jps"


maintenant, si tu veux bien me dire ce que vaut en euros
la qualité de cette

réponse, je t'en saurais gré puisque cela me permettra
d'envoyer ma facture

à philippe qui ne veut plus me payer au SMIC pour son
intérim, sous prétexte

qu'il a pris près de 6%
Merci
de rien
Cdlt
Bjlst (voir plus haut ou plus bas)
jps
-----Message d'origine-----
Bonsoir,
Après avoir pris soin de supprimer les fusions de
cellules (toujours à éviter) et leur avoir le cas

échéant préféré un format de cellule adapté, du type
centré sur plusieurs colonnes ou retour automatique

à la ligne :

Sub compare()
'MPFE le 15/07/2004
For i = 4 To 203 'soit 200 lignes
If Cells(i, 1).Value = Sheets("Feuil1").Cells(i -
3,




1).Value Then
For y = 2 To 20 'soit 20 colonnes en
comptant




la 1ère
Cells(i, y).Value = Sheets("Feuil1").Cells
(i -


3, y).Value
Next y
End If
Next i
End Sub

Pour les références, il y a une bibliographie en fin de
page d'accueil de la FAQ :

http://dj.joss.free.fr/faq.htm
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"harry" a écrit
dans le message de

news:2d70801c46a6e$b175ca10$
Rebonjour,


Donc suite à une mauvaise énonce du pb de ma part je
réitère ma demande en essayant d'etre le plus claire
possible.

soit en:

feuil 1:

colonnes/
lignes A B C D E F G H
etc....


1 fraz1 art.1 .. .. art.54 .. .. art.54
2 fraz2 art.2 .. .. art.87 .. .. art.51
3 fraz3 art.3 .. .. art.81 .. .. art.56
4 fraz4 art.4 .. .. art.61 .. .. art.74
5 fraz5 art.5 .. .. art.10 .. .. art.15


feuil 2:

colonnes/
lignes A B C D E etc....
1 S1 S2 S3 S4 S5
2
3
4 fraz1
5 fraz2
6 fraz3
7 fraz4
8 fraz5


résultat attendu:
si A4 de la feuil 2 est égal à A1 de la feuil 1
alors B4,C4,D4,E4.. de la feuil 2 est égal aux
valeurs




B1,E1,H1,K1 de la feuil 1 et etc...

idem pour fraz2, fraz3, fraz4 jusqua fraz200
chez moi les fraz1,2,3 .. sont dans des colonnes
fusioné




de 5 lignes, cela change t-il grand chose?

J'espère avoir été le plus claire possible bien que
cela




n
ne soit évident

Merci bcp pour votre savoir et connaissez un bouqin +
cd rom (avec exercices) pour l'apprentissage du vba

Merci.




.




.




.




.







Avatar
harry
du moisn je te lavais envoyer par email en laissant le
A_S, je viens juste de te le renvoyer


-----Message d'origine-----
Va pour un petit classeur et les esseuplications sur ce
qui est souhaité et qui vont avec ;o))

--
Amicales Salutations
Retirer A_S_ pour répondre.

"harry" a écrit
dans le message de

news:2fd4d01c46d70$97d797f0$
Je pense que tu ne vas rien comprendre je te fais suivre
le tableau de la sorte que tu veux egalement sur ton mail
wanadoo

Merci d'avance: moi c celle que tu
recevras sur ton mail wanadoo est l'adresse du boulot.

Merci bcp.


-----Message d'origine-----
Re Harry,
Peux tu expliquer un peu plus ce que tu attends, avec un
petit schéma des données par exemple, genre :


Feuil de départ
A B C D E
F G H I J K

L M
1 toto 123 258 papa 8
2 zaza 654 852
64 9

3 riri 0
4 titi 789
5
6
7
8

Résultat attendu
A B C D E
F G H I J K

L M
1
2
3 toto 123 8
4 zaza 654 64 9
5 papa
6 titi 789
7
8
9

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Harry" a écrit
dans le message de

news:2e91201c46d63$172f6b30$
Aie Aie petit soucis,

je viens de m'apercevoir en appliquant le prg de
philippe,


que j'ai un soucis de step, car y s'incrémente de 1 en 1,
donc c ok pour la feuil2 mais pour la feuil les valeurs y
à reporter sont de 4 en 4 et, si je met un step sur y, ca
me modifie le y de la feuil 1. G essayé avec y - qqch
mais


je n'ai pas trouvé?

:-(

Merci.


-----Message d'origine-----
Bonjour Harry,
La fusion de cellules est à éviter car elle empêche,
entre autres, l'insertion de lignes ou colonnes, le

balayage (par une macro) des lignes ou colonnes de la
plage qu'elle concerne....

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"harry" a écrit
dans le message de

news:2e89e01c46d59$b0df2ef0$
Merci et bonjour,

alors je dirais que cela vaut 6% du smic. ;-)

Au fait tu m'as dis que des cellules fusionnées, ce
n'est



pas bon, mais pourkoi?


-----Message d'origine-----

"harry" a écrit
dans le message de

news:2ea6901c46b30$8b4602c0$
Mr Rauphil merci bcp pour la réponse cela marche, mais
pour ma compréhension personnelle j'aurais 2 questions:
bonjour harry
il s'appelle philippe raulet, Mr Rauphil mais tu peux
bien l'appeler

Rotofil, dès l'instant où tu lui dis merci, et même
merci



bcp, il ne saura
t'en vouloir
1 - pourquoi il faut mettre next y avant next i ?
parce qu'il doit venir à la suite de la boucle "For y
= ....."

2 - comment se fait-il que cela fonctionne sans lui
donner la feuille active de départ, lorsque tu dis
if cells(i,1).value pour lui cela peut etre feuil
1




ou feuil 2
lorsque philippe écrit "cells(i,1)", le "i" n'est pas
la




feuille mais la
ligne où se situe la cellule, le "1" correspondant à la
colonne


3 - sur un prg que j'avais essayer de creer je
recevais une erreur du type end if sans le if ,
alors que le if y était?
tu ne dois pas mettre End If si ce qui suit le If est
sur



une seule ligne :
If Range("D11").Value = "" Then Range
("A61").FormulaR1C1




= "du grand jps"

maintenant, si tu veux bien me dire ce que vaut en
euros




la qualité de cette
réponse, je t'en saurais gré puisque cela me permettra
d'envoyer ma facture

à philippe qui ne veut plus me payer au SMIC pour son
intérim, sous prétexte

qu'il a pris près de 6%
Merci
de rien
Cdlt
Bjlst (voir plus haut ou plus bas)
jps
-----Message d'origine-----
Bonsoir,
Après avoir pris soin de supprimer les fusions de
cellules (toujours à éviter) et leur avoir le cas

échéant préféré un format de cellule adapté, du type
centré sur plusieurs colonnes ou retour automatique

à la ligne :

Sub compare()
'MPFE le 15/07/2004
For i = 4 To 203 'soit 200 lignes
If Cells(i, 1).Value = Sheets("Feuil1").Cells(i -
3,




1).Value Then
For y = 2 To 20 'soit 20 colonnes en
comptant




la 1ère
Cells(i, y).Value = Sheets("Feuil1").Cells
(i -


3, y).Value
Next y
End If
Next i
End Sub

Pour les références, il y a une bibliographie en fin
de





page d'accueil de la FAQ :
http://dj.joss.free.fr/faq.htm
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"harry" a écrit
dans le message de

news:2d70801c46a6e$b175ca10$
Rebonjour,


Donc suite à une mauvaise énonce du pb de ma part je
réitère ma demande en essayant d'etre le plus claire
possible.

soit en:

feuil 1:

colonnes/
lignes A B C D E F G H
etc....


1 fraz1 art.1 .. .. art.54 .. .. art.54
2 fraz2 art.2 .. .. art.87 .. .. art.51
3 fraz3 art.3 .. .. art.81 .. .. art.56
4 fraz4 art.4 .. .. art.61 .. .. art.74
5 fraz5 art.5 .. .. art.10 .. .. art.15


feuil 2:

colonnes/
lignes A B C D E etc....
1 S1 S2 S3 S4 S5
2
3
4 fraz1
5 fraz2
6 fraz3
7 fraz4
8 fraz5


résultat attendu:
si A4 de la feuil 2 est égal à A1 de la feuil 1
alors B4,C4,D4,E4.. de la feuil 2 est égal aux
valeurs




B1,E1,H1,K1 de la feuil 1 et etc...

idem pour fraz2, fraz3, fraz4 jusqua fraz200
chez moi les fraz1,2,3 .. sont dans des colonnes
fusioné




de 5 lignes, cela change t-il grand chose?

J'espère avoir été le plus claire possible bien que
cela




n
ne soit évident

Merci bcp pour votre savoir et connaissez un bouqin +
cd rom (avec exercices) pour l'apprentissage du vba

Merci.




.




.




.




.




.








Avatar
harry
Bjr phil, as tu recu mon mail?



-----Message d'origine-----
du moisn je te lavais envoyer par email en laissant le
A_S, je viens juste de te le renvoyer


-----Message d'origine-----
Va pour un petit classeur et les esseuplications sur ce
qui est souhaité et qui vont avec ;o))

--
Amicales Salutations
Retirer A_S_ pour répondre.

"harry" a écrit
dans le message de

news:2fd4d01c46d70$97d797f0$
Je pense que tu ne vas rien comprendre je te fais suivre
le tableau de la sorte que tu veux egalement sur ton mail
wanadoo

Merci d'avance: moi c celle que tu
recevras sur ton mail wanadoo est l'adresse du boulot.

Merci bcp.


-----Message d'origine-----
Re Harry,
Peux tu expliquer un peu plus ce que tu attends, avec un
petit schéma des données par exemple, genre :


Feuil de départ
A B C D E
F G H I J K

L M
1 toto 123 258 papa 8
2 zaza 654 852
64 9

3 riri 0
4 titi 789
5
6
7
8

Résultat attendu
A B C D E
F G H I J K

L M
1
2
3 toto 123 8
4 zaza 654 64 9
5 papa
6 titi 789
7
8
9

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Harry" a écrit
dans le message de

news:2e91201c46d63$172f6b30$
Aie Aie petit soucis,

je viens de m'apercevoir en appliquant le prg de
philippe,


que j'ai un soucis de step, car y s'incrémente de 1 en
1,



donc c ok pour la feuil2 mais pour la feuil les valeurs
y



à reporter sont de 4 en 4 et, si je met un step sur y,
ca



me modifie le y de la feuil 1. G essayé avec y - qqch
mais


je n'ai pas trouvé?

:-(

Merci.


-----Message d'origine-----
Bonjour Harry,
La fusion de cellules est à éviter car elle empêche,
entre autres, l'insertion de lignes ou colonnes, le

balayage (par une macro) des lignes ou colonnes de la
plage qu'elle concerne....

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"harry" a écrit
dans le message de

news:2e89e01c46d59$b0df2ef0$
Merci et bonjour,

alors je dirais que cela vaut 6% du smic. ;-)

Au fait tu m'as dis que des cellules fusionnées, ce
n'est



pas bon, mais pourkoi?


-----Message d'origine-----

"harry" a écrit
dans le message de

news:2ea6901c46b30$8b4602c0$
Mr Rauphil merci bcp pour la réponse cela marche, mais
pour ma compréhension personnelle j'aurais 2
questions:





bonjour harry
il s'appelle philippe raulet, Mr Rauphil mais tu peux
bien l'appeler

Rotofil, dès l'instant où tu lui dis merci, et même
merci



bcp, il ne saura
t'en vouloir
1 - pourquoi il faut mettre next y avant next i ?
parce qu'il doit venir à la suite de la boucle "For y
= ....."

2 - comment se fait-il que cela fonctionne sans lui
donner la feuille active de départ, lorsque tu
dis





if cells(i,1).value pour lui cela peut etre
feuil





1
ou feuil 2
lorsque philippe écrit "cells(i,1)", le "i" n'est pas
la




feuille mais la
ligne où se situe la cellule, le "1" correspondant à
la





colonne

3 - sur un prg que j'avais essayer de creer je
recevais une erreur du type end if sans le if ,
alors que le if y était?
tu ne dois pas mettre End If si ce qui suit le If est
sur



une seule ligne :
If Range("D11").Value = "" Then Range
("A61").FormulaR1C1




= "du grand jps"

maintenant, si tu veux bien me dire ce que vaut en
euros




la qualité de cette
réponse, je t'en saurais gré puisque cela me permettra
d'envoyer ma facture

à philippe qui ne veut plus me payer au SMIC pour son
intérim, sous prétexte

qu'il a pris près de 6%
Merci
de rien
Cdlt
Bjlst (voir plus haut ou plus bas)
jps
-----Message d'origine-----
Bonsoir,
Après avoir pris soin de supprimer les fusions de
cellules (toujours à éviter) et leur avoir le cas

échéant préféré un format de cellule adapté, du type
centré sur plusieurs colonnes ou retour automatique

à la ligne :

Sub compare()
'MPFE le 15/07/2004
For i = 4 To 203 'soit 200 lignes
If Cells(i, 1).Value = Sheets("Feuil1").Cells(i -
3,




1).Value Then
For y = 2 To 20 'soit 20 colonnes en
comptant




la 1ère
Cells(i, y).Value = Sheets
("Feuil1").Cells






(i -
3, y).Value
Next y
End If
Next i
End Sub

Pour les références, il y a une bibliographie en fin
de





page d'accueil de la FAQ :
http://dj.joss.free.fr/faq.htm
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"harry" a écrit
dans le message de

news:2d70801c46a6e$b175ca10$
Rebonjour,


Donc suite à une mauvaise énonce du pb de ma part je
réitère ma demande en essayant d'etre le plus claire
possible.

soit en:

feuil 1:

colonnes/
lignes A B C D E F G H
etc....


1 fraz1 art.1 .. .. art.54 .. .. art.54
2 fraz2 art.2 .. .. art.87 .. .. art.51
3 fraz3 art.3 .. .. art.81 .. .. art.56
4 fraz4 art.4 .. .. art.61 .. .. art.74
5 fraz5 art.5 .. .. art.10 .. .. art.15


feuil 2:

colonnes/
lignes A B C D E etc....
1 S1 S2 S3 S4 S5
2
3
4 fraz1
5 fraz2
6 fraz3
7 fraz4
8 fraz5


résultat attendu:
si A4 de la feuil 2 est égal à A1 de la feuil 1
alors B4,C4,D4,E4.. de la feuil 2 est égal aux
valeurs




B1,E1,H1,K1 de la feuil 1 et etc...

idem pour fraz2, fraz3, fraz4 jusqua fraz200
chez moi les fraz1,2,3 .. sont dans des colonnes
fusioné




de 5 lignes, cela change t-il grand chose?

J'espère avoir été le plus claire possible bien que
cela




n
ne soit évident

Merci bcp pour votre savoir et connaissez un bouqin +
cd rom (avec exercices) pour l'apprentissage du vba

Merci.




.




.




.




.




.

.










Avatar
Philippe.R
Bonjour Harry,
Peux tu me le renvoyer ?
Je crains qu'il ne soit parti ad patres avec un lot de spams !
--
Amicales Salutations

"harry" a écrit dans le message de
news:045401c46e1e$e96f0d60$
Bjr phil, as tu recu mon mail?



-----Message d'origine-----
du moisn je te lavais envoyer par email en laissant le
A_S, je viens juste de te le renvoyer


-----Message d'origine-----
Va pour un petit classeur et les esseuplications sur ce
qui est souhaité et qui vont avec ;o))

--
Amicales Salutations
Retirer A_S_ pour répondre.

"harry" a écrit
dans le message de

news:2fd4d01c46d70$97d797f0$
Je pense que tu ne vas rien comprendre je te fais suivre
le tableau de la sorte que tu veux egalement sur ton mail
wanadoo

Merci d'avance: moi c celle que tu
recevras sur ton mail wanadoo est l'adresse du boulot.

Merci bcp.


-----Message d'origine-----
Re Harry,
Peux tu expliquer un peu plus ce que tu attends, avec un
petit schéma des données par exemple, genre :


Feuil de départ
A B C D E
F G H I J K

L M
1 toto 123 258 papa 8
2 zaza 654 852
64 9

3 riri 0
4 titi 789
5
6
7
8

Résultat attendu
A B C D E
F G H I J K

L M
1
2
3 toto 123 8
4 zaza 654 64 9
5 papa
6 titi 789
7
8
9

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Harry" a écrit
dans le message de

news:2e91201c46d63$172f6b30$
Aie Aie petit soucis,

je viens de m'apercevoir en appliquant le prg de
philippe,


que j'ai un soucis de step, car y s'incrémente de 1 en
1,



donc c ok pour la feuil2 mais pour la feuil les valeurs
y



à reporter sont de 4 en 4 et, si je met un step sur y,
ca



me modifie le y de la feuil 1. G essayé avec y - qqch
mais


je n'ai pas trouvé?

:-(

Merci.


-----Message d'origine-----
Bonjour Harry,
La fusion de cellules est à éviter car elle empêche,
entre autres, l'insertion de lignes ou colonnes, le

balayage (par une macro) des lignes ou colonnes de la
plage qu'elle concerne....

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"harry" a écrit
dans le message de

news:2e89e01c46d59$b0df2ef0$
Merci et bonjour,

alors je dirais que cela vaut 6% du smic. ;-)

Au fait tu m'as dis que des cellules fusionnées, ce
n'est



pas bon, mais pourkoi?


-----Message d'origine-----

"harry" a écrit
dans le message de

news:2ea6901c46b30$8b4602c0$
Mr Rauphil merci bcp pour la réponse cela marche, mais
pour ma compréhension personnelle j'aurais 2
questions:





bonjour harry
il s'appelle philippe raulet, Mr Rauphil mais tu peux
bien l'appeler

Rotofil, dès l'instant où tu lui dis merci, et même
merci



bcp, il ne saura
t'en vouloir
1 - pourquoi il faut mettre next y avant next i ?
parce qu'il doit venir à la suite de la boucle "For y
= ....."

2 - comment se fait-il que cela fonctionne sans lui
donner la feuille active de départ, lorsque tu
dis





if cells(i,1).value pour lui cela peut etre
feuil





1
ou feuil 2
lorsque philippe écrit "cells(i,1)", le "i" n'est pas
la




feuille mais la
ligne où se situe la cellule, le "1" correspondant à
la





colonne

3 - sur un prg que j'avais essayer de creer je
recevais une erreur du type end if sans le if ,
alors que le if y était?
tu ne dois pas mettre End If si ce qui suit le If est
sur



une seule ligne :
If Range("D11").Value = "" Then Range
("A61").FormulaR1C1




= "du grand jps"

maintenant, si tu veux bien me dire ce que vaut en
euros




la qualité de cette
réponse, je t'en saurais gré puisque cela me permettra
d'envoyer ma facture

à philippe qui ne veut plus me payer au SMIC pour son
intérim, sous prétexte

qu'il a pris près de 6%
Merci
de rien
Cdlt
Bjlst (voir plus haut ou plus bas)
jps
-----Message d'origine-----
Bonsoir,
Après avoir pris soin de supprimer les fusions de
cellules (toujours à éviter) et leur avoir le cas

échéant préféré un format de cellule adapté, du type
centré sur plusieurs colonnes ou retour automatique

à la ligne :

Sub compare()
'MPFE le 15/07/2004
For i = 4 To 203 'soit 200 lignes
If Cells(i, 1).Value = Sheets("Feuil1").Cells(i -
3,




1).Value Then
For y = 2 To 20 'soit 20 colonnes en
comptant




la 1ère
Cells(i, y).Value = Sheets
("Feuil1").Cells






(i -
3, y).Value
Next y
End If
Next i
End Sub

Pour les références, il y a une bibliographie en fin
de





page d'accueil de la FAQ :
http://dj.joss.free.fr/faq.htm
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"harry" a écrit
dans le message de

news:2d70801c46a6e$b175ca10$
Rebonjour,


Donc suite à une mauvaise énonce du pb de ma part je
réitère ma demande en essayant d'etre le plus claire
possible.

soit en:

feuil 1:

colonnes/
lignes A B C D E F G H
etc....


1 fraz1 art.1 .. .. art.54 .. .. art.54
2 fraz2 art.2 .. .. art.87 .. .. art.51
3 fraz3 art.3 .. .. art.81 .. .. art.56
4 fraz4 art.4 .. .. art.61 .. .. art.74
5 fraz5 art.5 .. .. art.10 .. .. art.15


feuil 2:

colonnes/
lignes A B C D E etc....
1 S1 S2 S3 S4 S5
2
3
4 fraz1
5 fraz2
6 fraz3
7 fraz4
8 fraz5


résultat attendu:
si A4 de la feuil 2 est égal à A1 de la feuil 1
alors B4,C4,D4,E4.. de la feuil 2 est égal aux
valeurs




B1,E1,H1,K1 de la feuil 1 et etc...

idem pour fraz2, fraz3, fraz4 jusqua fraz200
chez moi les fraz1,2,3 .. sont dans des colonnes
fusioné




de 5 lignes, cela change t-il grand chose?

J'espère avoir été le plus claire possible bien que
cela




n
ne soit évident

Merci bcp pour votre savoir et connaissez un bouqin +
cd rom (avec exercices) pour l'apprentissage du vba

Merci.




.




.




.




.




.

.










Avatar
harry
c fait, tu peux me repondre sur email du boulot stp car c
plus lisible

cdlt

-----Message d'origine-----
Bonjour Harry,
Peux tu me le renvoyer ?
Je crains qu'il ne soit parti ad patres avec un lot de
spams !

--
Amicales Salutations

"harry" a écrit
dans le message de

news:045401c46e1e$e96f0d60$
Bjr phil, as tu recu mon mail?



-----Message d'origine-----
du moisn je te lavais envoyer par email en laissant le
A_S, je viens juste de te le renvoyer


-----Message d'origine-----
Va pour un petit classeur et les esseuplications sur ce
qui est souhaité et qui vont avec ;o))

--
Amicales Salutations
Retirer A_S_ pour répondre.

"harry" a écrit
dans le message de

news:2fd4d01c46d70$97d797f0$
Je pense que tu ne vas rien comprendre je te fais suivre
le tableau de la sorte que tu veux egalement sur ton
mail



wanadoo

Merci d'avance: moi c celle que
tu



recevras sur ton mail wanadoo est l'adresse du boulot.

Merci bcp.


-----Message d'origine-----
Re Harry,
Peux tu expliquer un peu plus ce que tu attends, avec
un




petit schéma des données par exemple, genre :

Feuil de départ
A B C D E
F G H I J K

L M
1 toto 123 258 papa 8
2 zaza 654 852
64 9

3 riri 0
4 titi 789
5
6
7
8

Résultat attendu
A B C D E
F G H I J K

L M
1
2
3 toto 123 8
4 zaza 654 64 9
5 papa
6 titi 789
7
8
9

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Harry" a écrit
dans le message de

news:2e91201c46d63$172f6b30$
Aie Aie petit soucis,

je viens de m'apercevoir en appliquant le prg de
philippe,


que j'ai un soucis de step, car y s'incrémente de 1 en
1,



donc c ok pour la feuil2 mais pour la feuil les valeurs
y



à reporter sont de 4 en 4 et, si je met un step sur y,
ca



me modifie le y de la feuil 1. G essayé avec y - qqch
mais


je n'ai pas trouvé?

:-(

Merci.


-----Message d'origine-----
Bonjour Harry,
La fusion de cellules est à éviter car elle empêche,
entre autres, l'insertion de lignes ou colonnes, le

balayage (par une macro) des lignes ou colonnes de la
plage qu'elle concerne....

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"harry" a écrit
dans le message de

news:2e89e01c46d59$b0df2ef0$
Merci et bonjour,

alors je dirais que cela vaut 6% du smic. ;-)

Au fait tu m'as dis que des cellules fusionnées, ce
n'est



pas bon, mais pourkoi?


-----Message d'origine-----

"harry" a écrit
dans le message de

news:2ea6901c46b30$8b4602c0$
Mr Rauphil merci bcp pour la réponse cela marche,
mais






pour ma compréhension personnelle j'aurais 2
questions:





bonjour harry
il s'appelle philippe raulet, Mr Rauphil mais tu peux
bien l'appeler

Rotofil, dès l'instant où tu lui dis merci, et même
merci



bcp, il ne saura
t'en vouloir
1 - pourquoi il faut mettre next y avant next i ?
parce qu'il doit venir à la suite de la boucle "For y
= ....."

2 - comment se fait-il que cela fonctionne sans lui
donner la feuille active de départ, lorsque tu
dis





if cells(i,1).value pour lui cela peut etre
feuil





1
ou feuil 2
lorsque philippe écrit "cells(i,1)", le "i" n'est pas
la




feuille mais la
ligne où se situe la cellule, le "1" correspondant à
la





colonne

3 - sur un prg que j'avais essayer de creer je
recevais une erreur du type end if sans le if ,
alors que le if y était?
tu ne dois pas mettre End If si ce qui suit le If est
sur



une seule ligne :
If Range("D11").Value = "" Then Range
("A61").FormulaR1C1




= "du grand jps"

maintenant, si tu veux bien me dire ce que vaut en
euros




la qualité de cette
réponse, je t'en saurais gré puisque cela me
permettra






d'envoyer ma facture
à philippe qui ne veut plus me payer au SMIC pour son
intérim, sous prétexte

qu'il a pris près de 6%
Merci
de rien
Cdlt
Bjlst (voir plus haut ou plus bas)
jps
-----Message d'origine-----
Bonsoir,
Après avoir pris soin de supprimer les fusions de
cellules (toujours à éviter) et leur avoir le cas

échéant préféré un format de cellule adapté, du type
centré sur plusieurs colonnes ou retour automatique

à la ligne :

Sub compare()
'MPFE le 15/07/2004
For i = 4 To 203 'soit 200 lignes
If Cells(i, 1).Value = Sheets("Feuil1").Cells
(i -







3,
1).Value Then
For y = 2 To 20 'soit 20 colonnes en
comptant




la 1ère
Cells(i, y).Value = Sheets
("Feuil1").Cells






(i -
3, y).Value
Next y
End If
Next i
End Sub

Pour les références, il y a une bibliographie en fin
de





page d'accueil de la FAQ :
http://dj.joss.free.fr/faq.htm
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.exce
l







(Voulez-vous vous abonner ? -> Oui)

"harry" a
écrit







dans le message de
news:2d70801c46a6e$b175ca10$
Rebonjour,


Donc suite à une mauvaise énonce du pb de ma part je
réitère ma demande en essayant d'etre le plus claire
possible.

soit en:

feuil 1:

colonnes/
lignes A B C D E F G H
etc....


1 fraz1 art.1 .. .. art.54 .. .. art.54
2 fraz2 art.2 .. .. art.87 .. .. art.51
3 fraz3 art.3 .. .. art.81 .. .. art.56
4 fraz4 art.4 .. .. art.61 .. .. art.74
5 fraz5 art.5 .. .. art.10 .. .. art.15


feuil 2:

colonnes/
lignes A B C D E etc....
1 S1 S2 S3 S4 S5
2
3
4 fraz1
5 fraz2
6 fraz3
7 fraz4
8 fraz5


résultat attendu:
si A4 de la feuil 2 est égal à A1 de la feuil 1
alors B4,C4,D4,E4.. de la feuil 2 est égal aux
valeurs




B1,E1,H1,K1 de la feuil 1 et etc...

idem pour fraz2, fraz3, fraz4 jusqua fraz200
chez moi les fraz1,2,3 .. sont dans des colonnes
fusioné




de 5 lignes, cela change t-il grand chose?

J'espère avoir été le plus claire possible bien que
cela




n
ne soit évident

Merci bcp pour votre savoir et connaissez un bouqin
+







cd rom (avec exercices) pour l'apprentissage du vba

Merci.




.




.




.




.




.

.





.










Avatar
Philippe.R
Bonsoir,

Pour ceux qui seraient intéressés, voici le résultat des cogitations :

Sub Reporte_données_pour_synthèse()
'MPFE Philippe Raulet le 20/07/2004
'on définit les variables de cette manière :
' "f14" pour "feuille14"
' "dL" pour "destination ligne"
' "dC" pour "destination colonne"
' "sL" pour "source ligne"
' "sC" pour "source colonne"
Dim dLf14 As Long, dCf14 As Integer, _
sLf8 As Integer, sLf9 As Integer, _
sCf8 As Integer, sCf9 As Integer, _
sCfX As Integer, sLfX As Integer, _
laSheet As String

'on désactive le raffraîchissement d'écran
Application.ScreenUpdating = False

'on fixe la valeur de départ des deux sL des
' feuilles 8 et 9 (ligne 17) qui est la même
' pour chacune des lignes de la F14
sLf8 = 17
sLf9 = 17

'on traite à l'intérieur de chaque ligne de
' la feuille de destination depuis ligne 7
' jusqu'à la ligne 466 au pas de 5
For dLf14 = 7 To 466 Step 5

'on fixe la valeur de départ des deux sC des
' feuilles 8 et 9 (colonne 9) qui est la même
' pour chacune des colonnes de la ligne
' en cours pour la F14
sCf8 = 9
sCf9 = 9

'on traite chacune des colonnes de la feuille 14
For dCf14 = 4 To 57

'on contrôle la nature de la feuille source à appeler
' en utilisant la variable laSheet
If dCf14 < 45 Then 'on appelle feuille 8
laSheet = "La_feuille8_S01_S41"
sLfX = sLf8
sCfX = sCf8
Else 'on appelle feuille 9
laSheet = "La_feuille9_S42_S54"
sLfX = sLf9
sCfX = sCf9
End If
'on vérifie que le numéro d'article correspond
If Sheets("La_feuille14") _
.Cells(dLf14 - 1, 1) = Sheets _
(laSheet).Cells(sLfX, 1) Then
'on procède à la copie de la donnée source sur f14
Sheets("La_feuille14") _
.Cells(dLf14, dCf14) = Sheets _
(laSheet).Cells(sLfX, sCfX)
'on incrémente le numero de colonne de f8 ou f9 avant
' de boucler
If dCf14 < 45 Then
sCf8 = sCf8 + 6
Else
sCf9 = sCf9 + 6
End If
End If
'on passe à la colonne suivante dans la feuille 14
Next dCf14
'on incrémente le numéro de ligne source
sLf8 = sLf8 + 1
sLf9 = sLf9 + 1
'on passe à la ligne de destination suivante
Next dLf14
'on réactive le raffraîchissement d'écran
Application.ScreenUpdating = True
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Harry" a écrit dans le message de
news:2e91201c46d63$172f6b30$
Aie Aie petit soucis,

je viens de m'apercevoir en appliquant le prg de philippe,
que j'ai un soucis de step, car y s'incrémente de 1 en 1,
donc c ok pour la feuil2 mais pour la feuil les valeurs y
à reporter sont de 4 en 4 et, si je met un step sur y, ca
me modifie le y de la feuil 1. G essayé avec y - qqch mais
je n'ai pas trouvé?

:-(

Merci.


-----Message d'origine-----
Bonjour Harry,
La fusion de cellules est à éviter car elle empêche,
entre autres, l'insertion de lignes ou colonnes, le

balayage (par une macro) des lignes ou colonnes de la
plage qu'elle concerne....

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"harry" a écrit
dans le message de

news:2e89e01c46d59$b0df2ef0$
Merci et bonjour,

alors je dirais que cela vaut 6% du smic. ;-)

Au fait tu m'as dis que des cellules fusionnées, ce n'est
pas bon, mais pourkoi?


-----Message d'origine-----

"harry" a écrit
dans le message de

news:2ea6901c46b30$8b4602c0$
Mr Rauphil merci bcp pour la réponse cela marche, mais
pour ma compréhension personnelle j'aurais 2 questions:
bonjour harry
il s'appelle philippe raulet, Mr Rauphil mais tu peux
bien l'appeler

Rotofil, dès l'instant où tu lui dis merci, et même merci
bcp, il ne saura

t'en vouloir
1 - pourquoi il faut mettre next y avant next i ?
parce qu'il doit venir à la suite de la boucle "For y
= ....."

2 - comment se fait-il que cela fonctionne sans lui
donner la feuille active de départ, lorsque tu dis
if cells(i,1).value pour lui cela peut etre feuil 1
ou feuil 2
lorsque philippe écrit "cells(i,1)", le "i" n'est pas la
feuille mais la

ligne où se situe la cellule, le "1" correspondant à la
colonne


3 - sur un prg que j'avais essayer de creer je
recevais une erreur du type end if sans le if ,
alors que le if y était?
tu ne dois pas mettre End If si ce qui suit le If est sur
une seule ligne :

If Range("D11").Value = "" Then Range("A61").FormulaR1C1
= "du grand jps"


maintenant, si tu veux bien me dire ce que vaut en euros
la qualité de cette

réponse, je t'en saurais gré puisque cela me permettra
d'envoyer ma facture

à philippe qui ne veut plus me payer au SMIC pour son
intérim, sous prétexte

qu'il a pris près de 6%
Merci
de rien
Cdlt
Bjlst (voir plus haut ou plus bas)
jps
-----Message d'origine-----
Bonsoir,
Après avoir pris soin de supprimer les fusions de
cellules (toujours à éviter) et leur avoir le cas

échéant préféré un format de cellule adapté, du type
centré sur plusieurs colonnes ou retour automatique

à la ligne :

Sub compare()
'MPFE le 15/07/2004
For i = 4 To 203 'soit 200 lignes
If Cells(i, 1).Value = Sheets("Feuil1").Cells(i - 3,
1).Value Then

For y = 2 To 20 'soit 20 colonnes en comptant
la 1ère

Cells(i, y).Value = Sheets("Feuil1").Cells
(i -


3, y).Value
Next y
End If
Next i
End Sub

Pour les références, il y a une bibliographie en fin de
page d'accueil de la FAQ :

http://dj.joss.free.fr/faq.htm
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"harry" a écrit
dans le message de

news:2d70801c46a6e$b175ca10$
Rebonjour,


Donc suite à une mauvaise énonce du pb de ma part je
réitère ma demande en essayant d'etre le plus claire
possible.

soit en:

feuil 1:

colonnes/
lignes A B C D E F G H
etc....


1 fraz1 art.1 .. .. art.54 .. .. art.54
2 fraz2 art.2 .. .. art.87 .. .. art.51
3 fraz3 art.3 .. .. art.81 .. .. art.56
4 fraz4 art.4 .. .. art.61 .. .. art.74
5 fraz5 art.5 .. .. art.10 .. .. art.15


feuil 2:

colonnes/
lignes A B C D E etc....
1 S1 S2 S3 S4 S5
2
3
4 fraz1
5 fraz2
6 fraz3
7 fraz4
8 fraz5


résultat attendu:
si A4 de la feuil 2 est égal à A1 de la feuil 1
alors B4,C4,D4,E4.. de la feuil 2 est égal aux valeurs
B1,E1,H1,K1 de la feuil 1 et etc...

idem pour fraz2, fraz3, fraz4 jusqua fraz200
chez moi les fraz1,2,3 .. sont dans des colonnes fusioné
de 5 lignes, cela change t-il grand chose?

J'espère avoir été le plus claire possible bien que cela
n


ne soit évident

Merci bcp pour votre savoir et connaissez un bouqin +
cd rom (avec exercices) pour l'apprentissage du vba

Merci.




.




.




.






1 2