FORUM MP | Bureautique - Excel : Comparaison de deux colonnes de données

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

Comparaison de deux colonnes de données
	Forum : BUREAUTIQUE - EXCEL Sous Catégorie : Excel Type du sujet : Sujet Normale FAQ : FAQ BUREAUTIQUE - EXCEL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM BUREAUTIQUE - EXCEL
	Page précedente	Page suivante

Fos4
Nouveau membre

Inscrit : 14/05/2008
Messages : 3

#153103 Posté le 15/05/08 à 08:43

Bonjour,

je souhaiterais pouvoir comparer deux colonnes de données, à savoir
faire en sorte que les données qui sont présentes dans la colonne 1 mais
pas dans la colonne 2 soit listées dans une colonne 3.

Je n'ai pas réussi à m'en sortir avec les fonctions "classiques". Si
quelqu'un possése une tite routine VBA qui puisse répondre à mon
besoin ... Smiley

Merci d'avance pour vos réponse.
Cordialement
__________________________
Savoir que l'on ne sait rien est la base de toute connaissance.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1693

#153123 Posté le 15/05/08 à 17:59

Bonjour

Voilà un chtit bout de code qui doit faire la demande

Sub ComparaisonDansunefeuille() 'comparaison dans une feuille dans un seul classeur Set sh2 = Sheets("Feuil1").Range("A1:A300") Set sh1 = Sheets("Feuil1").Range("B1:B300") For Each c In sh2 MaValeur = c.Value If MaValeur <> "" Then Set Plage = sh1.Columns("A:A").Cells.Find(MaValeur, lookat:=xlWhole) If Not Plage Is Nothing Then c.Range("C1") = "*" Else c.Range("C1") = "" End If End If Next End Sub

dans la colonne c il marque un asterix pour indiquer la présence des données

Cdlt

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Fos4
Nouveau membre

Inscrit : 14/05/2008
Messages : 3

#153145 Posté le 16/05/08 à 11:09

Bonjour,

je te remercie pour ta réponse, en parcourant les forums j'étais déjà
tombé sur ce bout de code, cela marche bien. Mais en fait j'aurais besoin
du contraire, non pas qu'il me signale les doublons mais plutot les valeurs
manquantes dans la colonne 2 par rapport à celles qui se trouvent dans
la colonne A.

Et pour faire plus gourmand j'aurais voulu qu'à la place de l'astériX
il me reporte les valeurs présentes colonnes 1 mais absentes de la
colonne 2.

Je traite en fait de longs listings de compteurs d'eau, et une routine de
ce type serait un gain temps non négligeable.

Débutant en VBA, je n'ai pas vraiment conscience de la difficulté de
ma requête. Peut-être vais je devoir bosser plus sérieusement mon
Excel VBA pour les nuls ... Smiley

Cdlt
__________________________
Savoir que l'on ne sait rien est la base de toute connaissance.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1693

#153151 Posté le 16/05/08 à 12:22

et bien ce n'est pas complexe je sais pour celui qui sait

donc voilà pour celui qui ne sait pas

Sub ComparaisonDansunefeuille() 'comparaison dans une feuille dans un seul classeur Set sh2 = Sheets("Feuil1").Range("A1:A300") Set sh1 = Sheets("Feuil1").Range("B1:B300") For Each c In sh2 MaValeur = c.Value If MaValeur <> "" Then Set Plage = sh1.Columns("A:A").Cells.Find(MaValeur, lookat:=xlWhole) If Not Plage Is Nothing Then c.Range("C1") = "" Else c.Range("C1") = c.Value End If End If Next End Sub

Cdlt

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Fos4
Nouveau membre

Inscrit : 14/05/2008
Messages : 3

#153220 Posté le 19/05/08 à 08:52

Bonjour,

je te remercie, c'est exactement ce que je cherchais, fini de me bousiller
les yeux sur des kilomètres de lignes.

Encore merci pour la rapidité et l'éxactitude de la répoonse.

Cdlt

Fos4
__________________________
Savoir que l'on ne sait rien est la base de toute connaissance.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1693

#153221 Posté le 19/05/08 à 08:55

à votre service pour une prochaine fois

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM BUREAUTIQUE - EXCEL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.