[XL-2007] tester existence valeur dans colonne [Résolu]

[tallent_e]

Bonsoir,

Voici ce que je cherche à faire :

Col Départ	Résultat Voulu
Col A	        Col B
23	        23
24	        24
24	        25
24	        28
25	        40
25	
28	
28	
28	
40	
40	
24	
24	
25	
25

Avec des mots, il s'agit d'obtenir la liste des différentes valeurs disponibles.
J'ai essayé avec des boucles du type (en faux pseudocode!):
Pour row du début de col A à la fin de colA, si Valeur Col A Row + 1 <> Valeur Col A Row, then copie Col A Row dans Col B.
Mais en fait, il faut que je teste (avant de copier dans ColB) si la Valeur Col A Row existe déjà dans ColB. Mais quelles sont les bonnes pratiques et les méthodes pour cela ?

Merci

[mercatog]

A partir d'Excel 2007, utilise RemoveDuplicate

Exemple, on supprime tous les doublons de la colonne A de Feuil1

Code :

Worksheets("Feuil1").Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes

[bbil]

bonjour,

utiliser le filtre avancé ne te suffit pas ..?

1. Placer un texte reprenant l’entête de colonne (ColA) à l'endroit ou tu veu placer ta colonne résultat
2. sélectionner ta zone source puis "donnée filtre avancé"
3. Case à option "copier vers autre emplacement"
4. et pour copier A selectionner la cellule destionation

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub testCopie()
  Dim rSource As Range
  Dim rDest As Range
  Set rSource = Application.InputBox( _
    prompt:="Selectionner vos données sources (entête comprise)", Type:=8)
  Set rDest = Application.InputBox( _
    prompt:="Cellule de destination", Type:=8)
   'Ajouter ici des test de contrôle sur les plages saisies..
   rDest.Cells(1, 1) = rSource.Cells(1, 1) ' Copie l'entête
      rSource.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=rDest, Unique:=True
 
End Sub

[EDIT] oup's l'on s'est croisé avec mercatogn, la différence c'est que ce que je propose ne touche pas au données sources...

[Ormonth]

Bonjour,

En faisant un Mixt Produit mercatog / bbil

Code :

1
2
3
4
5
6
7
8
Sub Gogo2()
 
With Worksheets(1)
   .Columns("A:A").Copy Destination:=Columns("H:H")  'si col H vide
   .Columns("H:H").RemoveDuplicates Columns:=1, Header:=xlYes
   .Range("H2").Value = "Resultat Voulu" 'ligne 1 vierge, ligne 2 titres
End With
End Sub

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[tallent_e]

Merci de vos réponses
La sub proposée par bbil me convient très bien.
En revanche, je n'ai pas besoin de recopier l'entête.
Je supprime donc la ligne :

Code :

 rDest.Cells(1, 1) = rSource.Cells(1, 1) ' Copie l'entête

Mais, j'ai fait plusieurs tests et je me retrouve avec le problème que la première case de la colonne source apparaît 2 fois dans la colonne de destination.

Par exemple :

rSource    rDest
24           24
24           24
24           28
24           33
28           35
28           37
28           40
33           41
33           42
33           43
33           
35           
35           
35           
37           
37           
40           
40           
40           
41
41
41
41
41
41
42
42
42
43
43

Et je n'arrive pas en m'en défaire.
Au passage comment réordonner les valeurs de rDest dans l'ordre croissant ?

merci

[bbil]

Envoyé par tallent_e

M..
Je supprime donc la ligne :

Code :

 rDest.Cells(1, 1) = rSource.Cells(1, 1) ' Copie l'entête

...

et ton 24 devient l'entête..

[tallent_e]

Envoyé par bbil

et ton 24 devient l'entête..

en plus, j'ai ajouté :

Code :

1
2
 
rDest.RemoveDuplicates Columns:=1, Header:=xlNo

comme çà, les doublons disparaissent bel et bien.

merci à tous