Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel je suis tjrs avec mes doublons !!

je suis tjrs avec mes doublons !!

3 réponses
Avatar
v.f.giraud
Merci isabelle pour ta patience !

En fait mon probleme demarre au départ de l'explication car lorsque j'ouvre
visual basic par F11 je ne vois pas où selectionner à gauche le Vbaproject
du classeur.
est-ce le module de classe ou le module standard . I sais pas !

Peux tu m'indiquer le chemin ! après cela devrit etre ok

Merci à toi

oscar


re bonjour Oscar,

'il faut vérifier que les noms des feuilles écrit dans la macro soient
exactement
'écrit comme sur les onglets des feuilles 1 et 2 de ton classeur avant
d'exécuter la macro
'la macro est à copier dans un module de ce classeur, pour ce faire
'appuis sur les touches Alt+F11 pour ouvrir visual basic
'sélectionne à gauche le VbaProject de ton classeur
'fait un click droit et sélectionne Insertion, Module
'colle la macro sur la page blanche qui c'est ouverte à droite
'pour exécuter la macro "RepérerLesDoublons"
'ferme visual basic et sélectionne au menu, Outils, Macro,
'sélectionne à Macro dans : Ce classeur
sélectionne "RepérerLesDoublons" et appuis sur le bouton "Exécuter"

Sub RepérerLesDoublons()
Sheets("Feuil1").Columns("H:H").Insert Shift:=xlToRight
Sheets("Feuil2").Columns("H:H").Insert Shift:=xlToRight
For Each a In Sheets("Feuil1").Range("I1:I" &
Sheets("Feuil1").Range("I65536").End(xlUp).Row)
For Each b In Sheets("Feuil2").Range("I1:I" &
Sheets("Feuil1").Range("I65536").End(xlUp).Row)
If a = b Then
x = x + 1
Sheets("Feuil1").Range("H" & a.Row) = x
Sheets("Feuil2").Range("H" & b.Row) = x
End If
Next b
Next a
End Sub

si ça ne fonctionne pas n'hésite pas à revenir poser des questions.

isabelle

"v.f.giraud" a écrit :
>
> Ah oui tout à fait !!
> ce sera encore plus clair.
>
> Oscar
> "isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
> news:4043BD8E.CCB1BE16@videotron.ca...
> > est ce que je peux insérer une colonne vide à gauche de la colonne H sur
> > les feuilles 1 et 2 pour marquer les doublons ?
> >
> > isabelle
> >
> > "v.f.giraud" a écrit :
> > >
> > > Dac !
> > >
> > > Sur chaque feuille les N°de telephone se trouvent dans la colonne H
> (feuille
> > > 1 et Feuille 2 )
> > > Ds les autre colonnes se trouvent les intitulés des sociétés les
> adresses et
> > > autres.
> > > Mon souhait est en fait de comparer les 2 deux H pour identifier les
> > > doublons.
> > >
> > > Grand Merci
> > > Oscar
> > > "isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
> > > news:40439E5E.FAE6273C@videotron.ca...
> > > > re bonjour Oscar,
> > > >
> > > > oui, c'est du visual basic
> > > > dit moi exactement le nom de la ou les feuilles et quel sont les
> plages
> > > > de cellule et je vais adapter la macro pour ton fichier.
> > > >
> > > > isabelle
> > > >
> > > > "v.f.giraud" a écrit :
> > > > >
> > > > > Gd merci à toi isabelle ,
> > > > >
> > > > > pourais-tu m'expliquer ton exemple si dessous:
> > > > > "bonjour Oscar,
> > > > >
> > > > > voici un exemple à adapter,
> > > > > 2 listes :
> > > > > Sheets("Feuil1").Range("A1:A10") où places tu
cette
> > > formule
> > > > > ,en A1 de chaque feuille ?
> > > > > Sheets("Feuil2").Range("A1:A10")
> > > > > une correspondance numérique sera ajoutées sur la colonne "B" de
> chache
> > > > > feuille, par les commandes :
> > > > > Sheets("Feuil1").Range("B" & a.Row) = x
> > > > > Sheets("Feuil2").Range("B" & b.Row) = x
> > > > >
> > > > > Sub Macro1() C'est ici que cela se complique ! est-ce
du
> > > visual
> > > > > basic ? existe-til plus (simple ) ?
> > > > > For Each a In Sheets("Feuil1").Range("A1:A10")
> > > > > For Each b In Sheets("Feuil2").Range("A1:A10")
> > > > > If a = b Then
> > > > > x = x + 1
> > > > > Sheets("Feuil1").Range("B" & a.Row) = x
> > > > > Sheets("Feuil2").Range("B" & b.Row) = x
> > > > > End If
> > > > > Next b
> > > > > Next a
> > > > > End Sub il faut vraiment que je mange du excel !!
> > > > >
> > > > > Au fait merci aussi pour l'autre réponse que tu m'avais donné sur
le
> > > fait de
> > > > > passer une colonne en majuscule en minuscule cela a très bien
> marché.
> > > > > Oscar
> > > > >
> > > > > "v.f.giraud" <v.f.giraud@wanadoo.fr> a écrit dans le message de
> > > > > news:c1vl2a$7pm$1@news-reader1.wanadoo.fr...
> > > > > > Bonjour,
> > > > > >
> > > > > > Alors j'ai 2 fichiers distincts de clients .Je souhaite repérer
> dans
> > > ces
> > > > > > fichiers les clients communs mais pas les éliminer. Je veux
juste
> les
> > > > > > identifier.Est-ce possible par excel ?
> > > > > >
> > > > > > Merci pour vos idées.
> > > > > >
> > > > > > Oscar
> > > > > >
> > > > > >
> > > > > >
Signaler un problème avec ce contenu

3 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
Avatar
v.f.giraud
Ca y est cela fonctionne presque car j'ai collé la macro ds la fenetre comme
tu me l'a indiqué, mais lorsque je l'ai collé les phrases commençant par For
Each sont devenues rouges et me marque erreur de compilation : erreur de
syntaxe . je t'avoue que j'ai du mal à savoir d'ou cela vient .
Merci à toi

Oscar
"v.f.giraud" a écrit dans le message de
news:c2c9ln$fvh$
Merci isabelle pour ta patience !

En fait mon probleme demarre au départ de l'explication car lorsque
j'ouvre

visual basic par F11 je ne vois pas où selectionner à gauche le Vbaproject
du classeur.
est-ce le module de classe ou le module standard . I sais pas !

Peux tu m'indiquer le chemin ! après cela devrit etre ok

Merci à toi

oscar


re bonjour Oscar,

'il faut vérifier que les noms des feuilles écrit dans la macro soient
exactement
'écrit comme sur les onglets des feuilles 1 et 2 de ton classeur avant
d'exécuter la macro
'la macro est à copier dans un module de ce classeur, pour ce faire
'appuis sur les touches Alt+F11 pour ouvrir visual basic
'sélectionne à gauche le VbaProject de ton classeur
'fait un click droit et sélectionne Insertion, Module
'colle la macro sur la page blanche qui c'est ouverte à droite
'pour exécuter la macro "RepérerLesDoublons"
'ferme visual basic et sélectionne au menu, Outils, Macro,
'sélectionne à Macro dans : Ce classeur
sélectionne "RepérerLesDoublons" et appuis sur le bouton "Exécuter"

Sub RepérerLesDoublons()
Sheets("Feuil1").Columns("H:H").Insert Shift:=xlToRight
Sheets("Feuil2").Columns("H:H").Insert Shift:=xlToRight
For Each a In Sheets("Feuil1").Range("I1:I" &
Sheets("Feuil1").Range("I65536").End(xlUp).Row)
For Each b In Sheets("Feuil2").Range("I1:I" &
Sheets("Feuil1").Range("I65536").End(xlUp).Row)
If a = b Then
x = x + 1
Sheets("Feuil1").Range("H" & a.Row) = x
Sheets("Feuil2").Range("H" & b.Row) = x
End If
Next b
Next a
End Sub

si ça ne fonctionne pas n'hésite pas à revenir poser des questions.

isabelle


Ah oui tout à fait !!
ce sera encore plus clair.

Oscar
"isabelle" a écrit dans le message de
news:
est ce que je peux insérer une colonne vide à gauche de la colonne H
sur



les feuilles 1 et 2 pour marquer les doublons ?

isabelle


Dac !

Sur chaque feuille les N°de telephone se trouvent dans la colonne H
(feuille


1 et Feuille 2 )
Ds les autre colonnes se trouvent les intitulés des sociétés les
adresses et


autres.
Mon souhait est en fait de comparer les 2 deux H pour identifier les
doublons.

Grand Merci
Oscar
"isabelle" a écrit dans le message de
news:
re bonjour Oscar,

oui, c'est du visual basic
dit moi exactement le nom de la ou les feuilles et quel sont les
plages



de cellule et je vais adapter la macro pour ton fichier.

isabelle


Gd merci à toi isabelle ,

pourais-tu m'expliquer ton exemple si dessous:
"bonjour Oscar,

voici un exemple à adapter,
2 listes :
Sheets("Feuil1").Range("A1:A10") où places tu
cette





formule
,en A1 de chaque feuille ?
Sheets("Feuil2").Range("A1:A10")
une correspondance numérique sera ajoutées sur la colonne "B" de
chache




feuille, par les commandes :
Sheets("Feuil1").Range("B" & a.Row) = x
Sheets("Feuil2").Range("B" & b.Row) = x

Sub Macro1() C'est ici que cela se complique ! est-ce
du





visual
basic ? existe-til plus (simple ) ?
For Each a In Sheets("Feuil1").Range("A1:A10")
For Each b In Sheets("Feuil2").Range("A1:A10")
If a = b Then
x = x + 1
Sheets("Feuil1").Range("B" & a.Row) = x
Sheets("Feuil2").Range("B" & b.Row) = x
End If
Next b
Next a
End Sub il faut vraiment que je mange du excel !!

Au fait merci aussi pour l'autre réponse que tu m'avais donné
sur






le
fait de
passer une colonne en majuscule en minuscule cela a très bien
marché.




Oscar

"v.f.giraud" a écrit dans le message de
news:c1vl2a$7pm$
Bonjour,

Alors j'ai 2 fichiers distincts de clients .Je souhaite
repérer







dans
ces
fichiers les clients communs mais pas les éliminer. Je veux
juste






les
identifier.Est-ce possible par excel ?

Merci pour vos idées.

Oscar



















Avatar
Nicolas B.
Salut,

Ce type d'erreurs provient souvent du copier-coller. Dans les messages de
news, les lignes sont automatiquement coupées lorsqu'elles sont trop
longues.

Dans le code que tu colles dans VBA, supprime donc manuellement le retour à
la ligne lorsque celle-ci est en rouge.


A+
--
Nicolas B.


Ca y est cela fonctionne presque car j'ai collé la macro ds la
fenetre comme tu me l'a indiqué, mais lorsque je l'ai collé les
phrases commençant par For Each sont devenues rouges et me marque
erreur de compilation : erreur de syntaxe . je t'avoue que j'ai du
mal à savoir d'ou cela vient .
Merci à toi

Oscar
"v.f.giraud" a écrit dans le message de
news:c2c9ln$fvh$
Merci isabelle pour ta patience !

En fait mon probleme demarre au départ de l'explication car lorsque
j'ouvre visual basic par F11 je ne vois pas où selectionner à gauche
le Vbaproject du classeur.
est-ce le module de classe ou le module standard . I sais pas !

Peux tu m'indiquer le chemin ! après cela devrit etre ok

Merci à toi

oscar


re bonjour Oscar,

'il faut vérifier que les noms des feuilles écrit dans la macro
soient exactement
'écrit comme sur les onglets des feuilles 1 et 2 de ton classeur
avant d'exécuter la macro
'la macro est à copier dans un module de ce classeur, pour ce faire
'appuis sur les touches Alt+F11 pour ouvrir visual basic
'sélectionne à gauche le VbaProject de ton classeur
'fait un click droit et sélectionne Insertion, Module
'colle la macro sur la page blanche qui c'est ouverte à droite
'pour exécuter la macro "RepérerLesDoublons"
'ferme visual basic et sélectionne au menu, Outils, Macro,
'sélectionne à Macro dans : Ce classeur
sélectionne "RepérerLesDoublons" et appuis sur le bouton "Exécuter"

Sub RepérerLesDoublons()
Sheets("Feuil1").Columns("H:H").Insert Shift:=xlToRight
Sheets("Feuil2").Columns("H:H").Insert Shift:=xlToRight
For Each a In Sheets("Feuil1").Range("I1:I" &
Sheets("Feuil1").Range("I65536").End(xlUp).Row)
For Each b In Sheets("Feuil2").Range("I1:I" &
Sheets("Feuil1").Range("I65536").End(xlUp).Row)
If a = b Then
x = x + 1
Sheets("Feuil1").Range("H" & a.Row) = x
Sheets("Feuil2").Range("H" & b.Row) = x
End If
Next b
Next a
End Sub

si ça ne fonctionne pas n'hésite pas à revenir poser des questions.

isabelle


Ah oui tout à fait !!
ce sera encore plus clair.

Oscar
"isabelle" a écrit dans le message de
news:
est ce que je peux insérer une colonne vide à gauche de la colonne
H sur les feuilles 1 et 2 pour marquer les doublons ?

isabelle


Dac !

Sur chaque feuille les N°de telephone se trouvent dans la colonne
H (feuille 1 et Feuille 2 )
Ds les autre colonnes se trouvent les intitulés des sociétés les
adresses et autres.
Mon souhait est en fait de comparer les 2 deux H pour identifier
les doublons.

Grand Merci
Oscar
"isabelle" a écrit dans le message
de news:
re bonjour Oscar,

oui, c'est du visual basic
dit moi exactement le nom de la ou les feuilles et quel sont les
plages de cellule et je vais adapter la macro pour ton fichier.

isabelle


Gd merci à toi isabelle ,

pourais-tu m'expliquer ton exemple si dessous:
"bonjour Oscar,

voici un exemple à adapter,
2 listes :
Sheets("Feuil1").Range("A1:A10") où places tu
cette formule ,en A1 de chaque feuille ?
Sheets("Feuil2").Range("A1:A10")
une correspondance numérique sera ajoutées sur la colonne "B"
de chache feuille, par les commandes :
Sheets("Feuil1").Range("B" & a.Row) = x
Sheets("Feuil2").Range("B" & b.Row) = x

Sub Macro1() C'est ici que cela se complique !
est-ce du visual basic ? existe-til plus (simple ) ?
For Each a In Sheets("Feuil1").Range("A1:A10")
For Each b In Sheets("Feuil2").Range("A1:A10")
If a = b Then
x = x + 1
Sheets("Feuil1").Range("B" & a.Row) = x
Sheets("Feuil2").Range("B" & b.Row) = x
End If
Next b
Next a
End Sub il faut vraiment que je mange du excel !!

Au fait merci aussi pour l'autre réponse que tu m'avais donné
sur






le
fait de
passer une colonne en majuscule en minuscule cela a très bien
marché. Oscar

"v.f.giraud" a écrit dans le message de
news:c1vl2a$7pm$
Bonjour,

Alors j'ai 2 fichiers distincts de clients .Je souhaite
repérer







dans
ces
fichiers les clients communs mais pas les éliminer. Je veux
juste les identifier.Est-ce possible par excel ?

Merci pour vos idées.

Oscar
















Avatar
Philippe.R
Bonjour,
Ce serait super sympa si tu restais dans la même fil de conversation pour suivre le sujet ; regardes au
bout de ce lien (notamment "règles additionnelles" et "comment se connecter") comment participer aux
discussions d'ici avec un maximum de confort pour tous :
http://www.excelabo.net/mpfe/connection.htm
D'avance merci
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"v.f.giraud" a écrit dans le message de
news:c2c9ln$fvh$
Merci isabelle pour ta patience !

En fait mon probleme demarre au départ de l'explication car lorsque j'ouvre
visual basic par F11 je ne vois pas où selectionner à gauche le Vbaproject
du classeur.
est-ce le module de classe ou le module standard . I sais pas !

Peux tu m'indiquer le chemin ! après cela devrit etre ok

Merci à toi

oscar


re bonjour Oscar,

'il faut vérifier que les noms des feuilles écrit dans la macro soient
exactement
'écrit comme sur les onglets des feuilles 1 et 2 de ton classeur avant
d'exécuter la macro
'la macro est à copier dans un module de ce classeur, pour ce faire
'appuis sur les touches Alt+F11 pour ouvrir visual basic
'sélectionne à gauche le VbaProject de ton classeur
'fait un click droit et sélectionne Insertion, Module
'colle la macro sur la page blanche qui c'est ouverte à droite
'pour exécuter la macro "RepérerLesDoublons"
'ferme visual basic et sélectionne au menu, Outils, Macro,
'sélectionne à Macro dans : Ce classeur
sélectionne "RepérerLesDoublons" et appuis sur le bouton "Exécuter"

Sub RepérerLesDoublons()
Sheets("Feuil1").Columns("H:H").Insert Shift:=xlToRight
Sheets("Feuil2").Columns("H:H").Insert Shift:=xlToRight
For Each a In Sheets("Feuil1").Range("I1:I" &
Sheets("Feuil1").Range("I65536").End(xlUp).Row)
For Each b In Sheets("Feuil2").Range("I1:I" &
Sheets("Feuil1").Range("I65536").End(xlUp).Row)
If a = b Then
x = x + 1
Sheets("Feuil1").Range("H" & a.Row) = x
Sheets("Feuil2").Range("H" & b.Row) = x
End If
Next b
Next a
End Sub

si ça ne fonctionne pas n'hésite pas à revenir poser des questions.

isabelle


Ah oui tout à fait !!
ce sera encore plus clair.

Oscar
"isabelle" a écrit dans le message de
news:
est ce que je peux insérer une colonne vide à gauche de la colonne H sur
les feuilles 1 et 2 pour marquer les doublons ?

isabelle


Dac !

Sur chaque feuille les N°de telephone se trouvent dans la colonne H
(feuille


1 et Feuille 2 )
Ds les autre colonnes se trouvent les intitulés des sociétés les
adresses et


autres.
Mon souhait est en fait de comparer les 2 deux H pour identifier les
doublons.

Grand Merci
Oscar
"isabelle" a écrit dans le message de
news:
re bonjour Oscar,

oui, c'est du visual basic
dit moi exactement le nom de la ou les feuilles et quel sont les
plages



de cellule et je vais adapter la macro pour ton fichier.

isabelle


Gd merci à toi isabelle ,

pourais-tu m'expliquer ton exemple si dessous:
"bonjour Oscar,

voici un exemple à adapter,
2 listes :
Sheets("Feuil1").Range("A1:A10") où places tu
cette





formule
,en A1 de chaque feuille ?
Sheets("Feuil2").Range("A1:A10")
une correspondance numérique sera ajoutées sur la colonne "B" de
chache




feuille, par les commandes :
Sheets("Feuil1").Range("B" & a.Row) = x
Sheets("Feuil2").Range("B" & b.Row) = x

Sub Macro1() C'est ici que cela se complique ! est-ce
du





visual
basic ? existe-til plus (simple ) ?
For Each a In Sheets("Feuil1").Range("A1:A10")
For Each b In Sheets("Feuil2").Range("A1:A10")
If a = b Then
x = x + 1
Sheets("Feuil1").Range("B" & a.Row) = x
Sheets("Feuil2").Range("B" & b.Row) = x
End If
Next b
Next a
End Sub il faut vraiment que je mange du excel !!

Au fait merci aussi pour l'autre réponse que tu m'avais donné sur
le





fait de
passer une colonne en majuscule en minuscule cela a très bien
marché.




Oscar

"v.f.giraud" a écrit dans le message de
news:c1vl2a$7pm$
Bonjour,

Alors j'ai 2 fichiers distincts de clients .Je souhaite repérer
dans





ces
fichiers les clients communs mais pas les éliminer. Je veux
juste






les
identifier.Est-ce possible par excel ?

Merci pour vos idées.

Oscar