Bonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colonne
les données contenu soit dans C ou D de la feuille 1 sur la feuille 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553,12
machin bidule 1 rue mairie 75000 PARIS 1057 123,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.
Bonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colonne
les données contenu soit dans C ou D de la feuille 1 sur la feuille 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553,12
machin bidule 1 rue mairie 75000 PARIS 1057 123,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.
Bonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colonne
les données contenu soit dans C ou D de la feuille 1 sur la feuille 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553,12
machin bidule 1 rue mairie 75000 PARIS 1057 123,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.
Salut à toi
Considérant la Feuil1 colonne A les codes colonne C/D les données à recopier
Feuil2 colonne A les codes colonne G les codes rapportée colonne H les
données rapportées
Je te propose ce code :
Sheets("Feuil2").Activate
For Each c In Worksheets("Feuil2").Range("A1", [A65530].End(xlUp))
If c <> "" Then
Sheets("Feuil1").Activate
For Each d In Worksheets("Feuil1").Range("A1", [A65530].End(xlUp))
If d = c Then
Sheets("Feuil2").Range("G" & c.Row) = c
If Range("C" & d.Row) <> "" Then
Sheets("Feuil2").Range("H" & c.Row) = Range("C" & d.Row)
Else
Sheets("Feuil2").Range("H" & c.Row) = Range("D" & d.Row)
End If
Exit For
End If
Next
End If
Next
Il suffit de supprimer la colonne A de la feuille 2 pour obtenir le rés ultat
exacte de ta demande en rajoutant ces 2 lignes :
Sheets("Feuil2").Activate
Columns("A:A").Delete
Celà devrait convenirBonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colonne
les données contenu soit dans C ou D de la feuille 1 sur la feuille 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553,12
machin bidule 1 rue mairie 75000 PARIS 1057 123,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut à toi
Considérant la Feuil1 colonne A les codes colonne C/D les données à recopier
Feuil2 colonne A les codes colonne G les codes rapportée colonne H les
données rapportées
Je te propose ce code :
Sheets("Feuil2").Activate
For Each c In Worksheets("Feuil2").Range("A1", [A65530].End(xlUp))
If c <> "" Then
Sheets("Feuil1").Activate
For Each d In Worksheets("Feuil1").Range("A1", [A65530].End(xlUp))
If d = c Then
Sheets("Feuil2").Range("G" & c.Row) = c
If Range("C" & d.Row) <> "" Then
Sheets("Feuil2").Range("H" & c.Row) = Range("C" & d.Row)
Else
Sheets("Feuil2").Range("H" & c.Row) = Range("D" & d.Row)
End If
Exit For
End If
Next
End If
Next
Il suffit de supprimer la colonne A de la feuille 2 pour obtenir le rés ultat
exacte de ta demande en rajoutant ces 2 lignes :
Sheets("Feuil2").Activate
Columns("A:A").Delete
Celà devrait convenir
Bonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colonne
les données contenu soit dans C ou D de la feuille 1 sur la feuille 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553,12
machin bidule 1 rue mairie 75000 PARIS 1057 123,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Salut à toi
Considérant la Feuil1 colonne A les codes colonne C/D les données à recopier
Feuil2 colonne A les codes colonne G les codes rapportée colonne H les
données rapportées
Je te propose ce code :
Sheets("Feuil2").Activate
For Each c In Worksheets("Feuil2").Range("A1", [A65530].End(xlUp))
If c <> "" Then
Sheets("Feuil1").Activate
For Each d In Worksheets("Feuil1").Range("A1", [A65530].End(xlUp))
If d = c Then
Sheets("Feuil2").Range("G" & c.Row) = c
If Range("C" & d.Row) <> "" Then
Sheets("Feuil2").Range("H" & c.Row) = Range("C" & d.Row)
Else
Sheets("Feuil2").Range("H" & c.Row) = Range("D" & d.Row)
End If
Exit For
End If
Next
End If
Next
Il suffit de supprimer la colonne A de la feuille 2 pour obtenir le rés ultat
exacte de ta demande en rajoutant ces 2 lignes :
Sheets("Feuil2").Activate
Columns("A:A").Delete
Celà devrait convenirBonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colonne
les données contenu soit dans C ou D de la feuille 1 sur la feuille 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553,12
machin bidule 1 rue mairie 75000 PARIS 1057 123,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Merci pour votre réponse mais cela ne fonctionne pas !
Sur la feuille 2 je récupère les codes de la feuille 1 et seulement
les informations d'une seule colonne de la feuille 1
Sur la feuille 2 j'ai seuelement la colonne C qui est récupéré mais
pas la D...
Est ce normal ?
Je cherche de mon côté mais les macros je comprends pas tout donc...
Merci d'avance pour votre aide
On 12 sep, 13:56, FFO wrote:Salut à toi
Considérant la Feuil1 colonne A les codes colonne C/D les données à recopier
Feuil2 colonne A les codes colonne G les codes rapportée colonne H les
données rapportées
Je te propose ce code :
Sheets("Feuil2").Activate
For Each c In Worksheets("Feuil2").Range("A1", [A65530].End(xlUp))
If c <> "" Then
Sheets("Feuil1").Activate
For Each d In Worksheets("Feuil1").Range("A1", [A65530].End(xlUp))
If d = c Then
Sheets("Feuil2").Range("G" & c.Row) = c
If Range("C" & d.Row) <> "" Then
Sheets("Feuil2").Range("H" & c.Row) = Range("C" & d.Row)
Else
Sheets("Feuil2").Range("H" & c.Row) = Range("D" & d.Row)
End If
Exit For
End If
Next
End If
Next
Il suffit de supprimer la colonne A de la feuille 2 pour obtenir le r ésultat
exacte de ta demande en rajoutant ces 2 lignes :
Sheets("Feuil2").Activate
Columns("A:A").Delete
Celà devrait convenirBonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colonne
les données contenu soit dans C ou D de la feuille 1 sur la feuille 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553,12
machin bidule 1 rue mairie 75000 PARIS 1057 123,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.- Masquer le texte d es 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 -
Bonjour,
Merci pour votre réponse mais cela ne fonctionne pas !
Sur la feuille 2 je récupère les codes de la feuille 1 et seulement
les informations d'une seule colonne de la feuille 1
Sur la feuille 2 j'ai seuelement la colonne C qui est récupéré mais
pas la D...
Est ce normal ?
Je cherche de mon côté mais les macros je comprends pas tout donc...
Merci d'avance pour votre aide
On 12 sep, 13:56, FFO <F...@discussions.microsoft.com> wrote:
Salut à toi
Considérant la Feuil1 colonne A les codes colonne C/D les données à recopier
Feuil2 colonne A les codes colonne G les codes rapportée colonne H les
données rapportées
Je te propose ce code :
Sheets("Feuil2").Activate
For Each c In Worksheets("Feuil2").Range("A1", [A65530].End(xlUp))
If c <> "" Then
Sheets("Feuil1").Activate
For Each d In Worksheets("Feuil1").Range("A1", [A65530].End(xlUp))
If d = c Then
Sheets("Feuil2").Range("G" & c.Row) = c
If Range("C" & d.Row) <> "" Then
Sheets("Feuil2").Range("H" & c.Row) = Range("C" & d.Row)
Else
Sheets("Feuil2").Range("H" & c.Row) = Range("D" & d.Row)
End If
Exit For
End If
Next
End If
Next
Il suffit de supprimer la colonne A de la feuille 2 pour obtenir le r ésultat
exacte de ta demande en rajoutant ces 2 lignes :
Sheets("Feuil2").Activate
Columns("A:A").Delete
Celà devrait convenir
Bonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colonne
les données contenu soit dans C ou D de la feuille 1 sur la feuille 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553,12
machin bidule 1 rue mairie 75000 PARIS 1057 123,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.- Masquer le texte d es 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 -
Bonjour,
Merci pour votre réponse mais cela ne fonctionne pas !
Sur la feuille 2 je récupère les codes de la feuille 1 et seulement
les informations d'une seule colonne de la feuille 1
Sur la feuille 2 j'ai seuelement la colonne C qui est récupéré mais
pas la D...
Est ce normal ?
Je cherche de mon côté mais les macros je comprends pas tout donc...
Merci d'avance pour votre aide
On 12 sep, 13:56, FFO wrote:Salut à toi
Considérant la Feuil1 colonne A les codes colonne C/D les données à recopier
Feuil2 colonne A les codes colonne G les codes rapportée colonne H les
données rapportées
Je te propose ce code :
Sheets("Feuil2").Activate
For Each c In Worksheets("Feuil2").Range("A1", [A65530].End(xlUp))
If c <> "" Then
Sheets("Feuil1").Activate
For Each d In Worksheets("Feuil1").Range("A1", [A65530].End(xlUp))
If d = c Then
Sheets("Feuil2").Range("G" & c.Row) = c
If Range("C" & d.Row) <> "" Then
Sheets("Feuil2").Range("H" & c.Row) = Range("C" & d.Row)
Else
Sheets("Feuil2").Range("H" & c.Row) = Range("D" & d.Row)
End If
Exit For
End If
Next
End If
Next
Il suffit de supprimer la colonne A de la feuille 2 pour obtenir le r ésultat
exacte de ta demande en rajoutant ces 2 lignes :
Sheets("Feuil2").Activate
Columns("A:A").Delete
Celà devrait convenirBonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colonne
les données contenu soit dans C ou D de la feuille 1 sur la feuille 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553,12
machin bidule 1 rue mairie 75000 PARIS 1057 123,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.- Masquer le texte d es 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 -
En fait sur un exemple comme vous m'avez donné avec deux lignes ca
fonctionne mais cela ne fonctionne pas dans mon fichier original...
bizarre
On 13 sep, 09:22, wrote:Bonjour,
Merci pour votre réponse mais cela ne fonctionne pas !
Sur la feuille 2 je récupère les codes de la feuille 1 et seulement
les informations d'une seule colonne de la feuille 1
Sur la feuille 2 j'ai seuelement la colonne C qui est récupéré ma is
pas la D...
Est ce normal ?
Je cherche de mon côté mais les macros je comprends pas tout donc...
Merci d'avance pour votre aide
On 12 sep, 13:56, FFO wrote:Salut à toi
Considérant la Feuil1 colonne A les codes colonne C/D les données à recopier
Feuil2 colonne A les codes colonne G les codes rapportée colonne H les
données rapportées
Je te propose ce code :
Sheets("Feuil2").Activate
For Each c In Worksheets("Feuil2").Range("A1", [A65530].End(xlUp))
If c <> "" Then
Sheets("Feuil1").Activate
For Each d In Worksheets("Feuil1").Range("A1", [A65530].End(xlUp))
If d = c Then
Sheets("Feuil2").Range("G" & c.Row) = c
If Range("C" & d.Row) <> "" Then
Sheets("Feuil2").Range("H" & c.Row) = Range("C" & d.Row)
Else
Sheets("Feuil2").Range("H" & c.Row) = Range("D" & d.Row)
End If
Exit For
End If
Next
End If
Next
Il suffit de supprimer la colonne A de la feuille 2 pour obtenir le r ésultat
exacte de ta demande en rajoutant ces 2 lignes :
Sheets("Feuil2").Activate
Columns("A:A").Delete
Celà devrait convenirBonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colo nne
les données contenu soit dans C ou D de la feuille 1 sur la feuil le 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553 ,12
machin bidule 1 rue mairie 75000 PARIS 1057 123 ,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte d es 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 -
En fait sur un exemple comme vous m'avez donné avec deux lignes ca
fonctionne mais cela ne fonctionne pas dans mon fichier original...
bizarre
On 13 sep, 09:22, cegeff...@wanadoo.fr wrote:
Bonjour,
Merci pour votre réponse mais cela ne fonctionne pas !
Sur la feuille 2 je récupère les codes de la feuille 1 et seulement
les informations d'une seule colonne de la feuille 1
Sur la feuille 2 j'ai seuelement la colonne C qui est récupéré ma is
pas la D...
Est ce normal ?
Je cherche de mon côté mais les macros je comprends pas tout donc...
Merci d'avance pour votre aide
On 12 sep, 13:56, FFO <F...@discussions.microsoft.com> wrote:
Salut à toi
Considérant la Feuil1 colonne A les codes colonne C/D les données à recopier
Feuil2 colonne A les codes colonne G les codes rapportée colonne H les
données rapportées
Je te propose ce code :
Sheets("Feuil2").Activate
For Each c In Worksheets("Feuil2").Range("A1", [A65530].End(xlUp))
If c <> "" Then
Sheets("Feuil1").Activate
For Each d In Worksheets("Feuil1").Range("A1", [A65530].End(xlUp))
If d = c Then
Sheets("Feuil2").Range("G" & c.Row) = c
If Range("C" & d.Row) <> "" Then
Sheets("Feuil2").Range("H" & c.Row) = Range("C" & d.Row)
Else
Sheets("Feuil2").Range("H" & c.Row) = Range("D" & d.Row)
End If
Exit For
End If
Next
End If
Next
Il suffit de supprimer la colonne A de la feuille 2 pour obtenir le r ésultat
exacte de ta demande en rajoutant ces 2 lignes :
Sheets("Feuil2").Activate
Columns("A:A").Delete
Celà devrait convenir
Bonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colo nne
les données contenu soit dans C ou D de la feuille 1 sur la feuil le 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553 ,12
machin bidule 1 rue mairie 75000 PARIS 1057 123 ,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte d es 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 -
En fait sur un exemple comme vous m'avez donné avec deux lignes ca
fonctionne mais cela ne fonctionne pas dans mon fichier original...
bizarre
On 13 sep, 09:22, wrote:Bonjour,
Merci pour votre réponse mais cela ne fonctionne pas !
Sur la feuille 2 je récupère les codes de la feuille 1 et seulement
les informations d'une seule colonne de la feuille 1
Sur la feuille 2 j'ai seuelement la colonne C qui est récupéré ma is
pas la D...
Est ce normal ?
Je cherche de mon côté mais les macros je comprends pas tout donc...
Merci d'avance pour votre aide
On 12 sep, 13:56, FFO wrote:Salut à toi
Considérant la Feuil1 colonne A les codes colonne C/D les données à recopier
Feuil2 colonne A les codes colonne G les codes rapportée colonne H les
données rapportées
Je te propose ce code :
Sheets("Feuil2").Activate
For Each c In Worksheets("Feuil2").Range("A1", [A65530].End(xlUp))
If c <> "" Then
Sheets("Feuil1").Activate
For Each d In Worksheets("Feuil1").Range("A1", [A65530].End(xlUp))
If d = c Then
Sheets("Feuil2").Range("G" & c.Row) = c
If Range("C" & d.Row) <> "" Then
Sheets("Feuil2").Range("H" & c.Row) = Range("C" & d.Row)
Else
Sheets("Feuil2").Range("H" & c.Row) = Range("D" & d.Row)
End If
Exit For
End If
Next
End If
Next
Il suffit de supprimer la colonne A de la feuille 2 pour obtenir le r ésultat
exacte de ta demande en rajoutant ces 2 lignes :
Sheets("Feuil2").Activate
Columns("A:A").Delete
Celà devrait convenirBonjour,
j'ai une feuille qui se présente ainsi :
FEUILLE 1
A B C D
1032 tartenpion 553,12
1057 machin 123,15
FEUILLE 2
Sur une autre feuille j'ai la meme chose avec l'adresse code postal en
plus
J'aimerais pouvoir comparer la feuille 1 et 2 avec les codes qui se
trouve en colonne A de la première feuille et noter dans une colo nne
les données contenu soit dans C ou D de la feuille 1 sur la feuil le 2
Je sais pas si j'ai été très clair lol
Le résultat que j'aimerais avoir sur la feuille 2 c'est :
A B C D E
F G
tartenpion truc 1 rue gare 54000 NANCY 1032 553 ,12
machin bidule 1 rue mairie 75000 PARIS 1057 123 ,15
Peut etre que ce sera plus clair avec cet exemple
Merci d'avance pour vos lumières et votre aide.- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte d es 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 -