recherche multiples

J

JJ1

Guest

• 9 Juin 2013

• #2

Re : recherche multiples

Bonjour,

Ce serait tout aussi bien avec une MFC non?

Tu nous diras.
A+

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 9 Juin 2013

• #3

Re : recherche multiples

Salut,

je te remercie beaucoup de la réponse rapide et de la suggestion

J'y ais bien pensé, mais ce n'est pas l'ideal dans le cas présent

en fait il ne s'agit pas de localiser tous les doublons de la colonne A: c'est plus une comparaison de ce qu'on a en cellule b1 avec la colonne A et de mettre en couleur ces memes doublons

je précise que b1 est juste pour faciliter la comprehension du problème en realité, j'ai une liste colonne A avec mes données et une seconde que je dois comparer avec cette colonne A

autrementdit imaginez j'ai ma colonne A et j'ai au lieu de b1 j'ai de b1 à b100 par exemple:

pour le b1 : je cherche dans A toutes ces valeurs et je met en couleur les doublons trouvés et ensuite je passe a b2 pour la même analyse et ainsi de suite

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 9 Juin 2013

• #4

Re : recherche multiples

en relisant ca me parait assez claire, je te remercie de me tenir informé s'il y a des incompréhensions

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 9 Juin 2013

• #5

Re : recherche multiples

Bonjour pasquetp,
Salut JJ1 🙂

pasquetp à dit:

en relisant ca me parait assez claire

Cliquez pour agrandir...

C'est souvent le cas pour l'auteur du message ... avec la même belle fréquence, ce l'est souvent beaucoup moins pour les lecteurs. Avec les explications de départ, il me semble qu'il n'y avait pas mieux que la MFC proposée par JJ1.
S'il s'agit de colorer les cellules de la colonne A, dont le contenu est égal à une cellule de la plage B1:B100, au moment où celle-ci est sélectionnée, tu peux tester ce bout de code (dans le module de la feuille concernée!):

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [A2:A50000].Interior.ColorIndex = none
    If Not Intersect(Target, [B1:B100]) Is Nothing Then
        For Each c In Range("A2:A" & [A50000].End(xlUp).Row)
            If c = Target Then c.Interior.ColorIndex = 3
        Next c
    End If
End Sub

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 10 Juin 2013

• #6

Re : recherche multiples

Merci à tous pour vos idées

j'apprecie vraiement

je fais une petite rectification a present: 'il s'agit de colorer les cellules de la colonne A, dont le contenu est égal à une cellule de la plage B1:B100

il ne s'agit de faire "au moment où celle-ci est sélectionnée"

juste un bouton qui fasse toutes les compraisons une a une automatiquement

merci d'avance

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 10 Juin 2013

• #7

Re : recherche multiples

Bonsoir à tous, donc (puisque nous étions nombreux!)
Comment disait Cabrel? "Puisqu'on est fous, puisqu'on est seuls, puisqu'ils sont si nombreux"

pasquetp à dit:

juste un bouton qui fasse toutes les compraisons une a une automatiquement

Cliquez pour agrandir...

😕... Alors là ...😕
... Je crois bien que je vais jouer mon jocker sur ce coup-là!?

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 11 Juin 2013

• #8

Re : recherche multiples

Bonjour Modeste,

Excusez moi de manquer de clareté.

je vais vous envoyer un fichier que j'ai crée. ce sera plus simple pour visualiser

ca fonctionne à 80% si j'ose dire

voici comment faire fonctionner la macro

vous restez dans la page qui contient les données

1: copier une cellule remplie dans la ligne 2 uniquement.
2:cliquez sur le bouton
3:coller
4:choisissez votre couleur

et vous verrez un résultat

des cellules en couleur:

explications:

deja vous verrez que c'est dans une colonne que vous verrez les couleurs: cela depend de la colonne correspondant a la cellule copié en etape 1.

on a la colonne

maintenant pourquoi telles lignes: voir page 2.

vous aurez une liste que vous retrouvez en page 1 colonne A

en gros le systeme localise les données depuis la page 2 vers la page 1 colonne puis les compare et trouve les valeurs identique et met des couleurs

avant de poursuivre, merci de m’indiquer toute incompréhension ou question s'il y a.

 

Pièces jointes

• matching error NEW ONE -test.xls

  96 KB · Affichages: 48
• matching error NEW ONE -test.xls

  96 KB · Affichages: 54
• matching error NEW ONE -test.xls

  96 KB · Affichages: 56

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 13 Juin 2013

• #9

Re : recherche multiples

qu'en pensez vous?

Merci de vos efforts

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 16 Juin 2013

• #10

Re : recherche multiples

qu'en pensez vous?

Merci de vos efforts

 

Vote positif 0 Vote négatif

P

pasquetp

XLDnaute Occasionnel

• 18 Juin 2013

• #11

Re : recherche multiples

Hellllppppp

 

Vote positif 0 Vote négatif