Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

récupérer les valeurs uniques d'une plage de données

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Calimero33
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Calimero33

Guest
Bonjour, j'ai trouvé dans le forum des exemples de suppression de doublons dans une plage de données range mais ça ne correspond pas à mon problème. Je souhaiterai ne garder que les valeurs uniques c'est à dire supprimer les deux valeurs des doublons et non pas une seule des deux valeurs. Actuellement mon code ne supprime qu'une valeur des doublons. Comment puis-je le modifier pour obtenir que les valeurs uniques de ma plage ? Je voudrais le faire en VBA

Dim Cellule As Variant
Dim maplage As Range

Set maplage = Range("A1:A173")
For Each Cellule In maplage

If Cellule = Cellule.Offset(1, 0) Then
Cellule.Offset(1, 0).Delete
End If
Next
 
Trier par date Trier par votes
Re : récupérer les valeurs uniques d'une plage de données


Salut Calimero33 et le forum,
et si tu rajoute
cellule.offset(0,0).deleteavant le end if ?
Suerte
croco
 
Vote positif 0 Vote négatif
Re : récupérer les valeurs uniques d'une plage de données

Resalut Calimero33,
je te propose une autre méthode car je pense qu'avec ofset ce ne sera pas possible :
fin = Range("a65536").End(xlUp).Row
For i = fin To 2 Step -1 'on fait la boucle en partant de la fin
var1 = Cells(i, 1).Value
If var1 = Cells(i - 1, 1).Value Then
Rows(i).Select
Selection.Delete
Rows(i - 1).Select
Selection.Delete
End If
Next i

elle ne fonctionnera que s'il y a des doublons, si c'est des triples ou plus il faudra revoir ca

suerte
croco
 
Vote positif 0 Vote négatif
Re : récupérer les valeurs uniques d'une plage de données

bonjour Calimero33 david84 croco40 le forum
dans ton cas tu peus essaye comme cela

Code: 
Sub es()
 Dim c As Variant, m As Object
   Application.ScreenUpdating = False
      Set m = CreateObject("Scripting.Dictionary")
    For Each c In Range("a2", Cells(Rows.Count, "a").End(xlUp))
         m(c.Value) = IIf(m.Exists(c.Value), m(c.Value) + 1, 1)
   Next c
      Range("a2", Cells(Rows.Count, "a").End(xlUp)).ClearContents
      [a2].Resize(m.Count, 1) = Application.Transpose(m.keys)
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
336
mapomme
  • Question Question
Microsoft 365 Initialisation d'une variable tableau à partir d'une plage de cellules
2
Réponses
17
Affichages
863
job75
A
  • Question Question
XL 2010 Colorier les n plus grandes valeurs d'une plage EXCEL
3 4 5
Réponses
63
Affichages
1 K
TooFatBoy
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
390
MATLEA
M
S
  • Question Question
XL pour MAC récupérer les valeurs d’une plage colonne continue à partir d’une plage discontinue.
Réponses
12
Affichages
660
sergio_bzh
S
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
296
PRy
P
R
  • Question Question
XL pour MAC Ne pas afficher valeurs nulles dans un graphique
Réponses
5
Affichages
318
rtlv17
R
L
  • Résolu(e)
XL 2021 Compter valeurs d'une plage de cellules
Réponses
10
Affichages
495
laplayast
L
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
878
TooFatBoy
J
  • Question Question
XL 2016 recherche d'une valeur en fonction d'une plage de données
Réponses
2
Affichages
362
jeff2318
J
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
674
sylvanu
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
562
anthoYS
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
563
Abi23
A
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
816
Lu76Fer
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
789
sylvanu
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
C
  • Question Question
XL 2019 Recherche présence de valeurs
Réponses
4
Affichages
542
sylvanu
Imprimer ou exporte une plage en pdf pleine page zoom auto
Réponses
0
Affichages
477
patricktoulon
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
629
safranien
S
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
28
Affichages
1 K
Webperegrino
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…