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

10 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
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
Mr Rauphil merci bcp pour la réponse cela marche, mais
pour ma compréhension personnelle j'aurais 2 questions:

1 - pourquoi il faut mettre next y avant next i ?

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

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?

Merci
Cdlt


-----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
jps
"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
Bonsoir Harry,
Bien que Jean Paul se soit dépêché de répondre, ne serait ce que pour démontrer combien j'ai raison
d'être le rappiat que je suis, je reprends :
1) Lorsqu'on a recours à deux boucles imbriquées, le plus raisonnable est quand même de terminer la
deuxième lancée (y) avant de relancer la première (i) ; comme tu le vois, ça n'a aucun rapport avec une
quelconque victoire au foot.
2) C'est vrai qu'il est mieux de préciser la feuille dans laquelle on souhaite récupérer les résultats ;
la routine, dans son état actuel part de la feuille active ; ce serait donc mieux ainsi :

Sub comparemieux()
'MPFE le 15/07/2004
Dim i As Integer, y As Integer
For i = 4 To 203 'soit 200 lignes
If Sheets("Feuil2").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
Sheets("Feuil2").Cells(i, y).Value = Sheets("Feuil1").Cells(i - 3, y).Value
Next y
End If
Next i
End Sub

3) Rien à retrancher ou ajouter aux explications de Jean Paul, que je tiens ici à remercier d'avoir bien
voulu assurer gracieusement l'intérim.
--
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:2ea6901c46b30$8b4602c0$
Mr Rauphil merci bcp pour la réponse cela marche, mais
pour ma compréhension personnelle j'aurais 2 questions:

1 - pourquoi il faut mettre next y avant next i ?

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

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?

Merci
Cdlt


-----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
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,
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
LeSteph
Bonjour,
Avis très perso .
Les cellules fusionnées § Beurk ! Je leur reconnait une f..utilité
verticalement jusqu'à 2003
Pour centrer sur plusieurs colonnes l'option du menu Format Cellule
Alignement Horizontal suffit
Tu peux même te faire un petit outil macro qui sera bien mieux que fusion.
Car les cellules fusionnées empêchent d'avoir une matrice bien carrée (réf
ligne colonne)
En plus c'est bloquant pour pas mal d'action sur un ensemble de cellules ,
déforme les selections ...
et j'en passe... Pour rester poli c'est une source de M...
Pour offset tu comprends désormais, enfin je suppose toujours..., aussi le
pb qui peut se poser!

?% du Smic.

LeSteph




"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
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
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
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.




.




.




.




.







1 2