Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Eliminer des cellules en double

Eliminer des cellules en double

6 réponses
Avatar
JMBG
Bonjour,

J'ai un tableau de plusieurs colonnes avec en colonne A des valeurs
numériques.
Je voudrais supprimer les lignes comportant la même valeur(double) en
colonne A sans me préocupper des valeurs des autres colonnes.

Merci
Signaler un problème avec ce contenu

6 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
Jacky
Bonjour,

Ceci peut-être:
'-------------
Sub jj()
Application.ScreenUpdating = False
For j = 1 To [a65536].End(3).Row
For i = [a65536].End(3).Row To j + 1 Step -1
If Cells(j, 1) = Cells(i, 1) Then Rows(i).Delete
Next
Next
End Sub
'-------------
--
Salutations
JJ


"JMBG" a écrit dans le message de news:

Bonjour,

J'ai un tableau de plusieurs colonnes avec en colonne A des valeurs
numériques.
Je voudrais supprimer les lignes comportant la même valeur(double) en
colonne A sans me préocupper des valeurs des autres colonnes.

Merci


Avatar
JMBG
Bonjour,

C'est parfait...

Je vous remercie beaucoup


Bonjour,

Ceci peut-être:
'-------------
Sub jj()
Application.ScreenUpdating = False
For j = 1 To [a65536].End(3).Row
For i = [a65536].End(3).Row To j + 1 Step -1
If Cells(j, 1) = Cells(i, 1) Then Rows(i).Delete
Next
Next
End Sub
'-------------
--
Salutations
JJ


"JMBG" a écrit dans le message de news:

Bonjour,

J'ai un tableau de plusieurs colonnes avec en colonne A des valeurs
numériques.
Je voudrais supprimer les lignes comportant la même valeur(double) en
colonne A sans me préocupper des valeurs des autres colonnes.

Merci







Avatar
Freddy Govaerts
Bonjour,
et si au lieu de supprimer les doublons, je désire que ces cellules soient en bleu. Comment je fais

Merci

--


http://users.skynet.be/lbai/index.htm
Photos des Fagnes, de fleurs ...


"JMBG" a écrit dans le message de news:
Bonjour,

C'est parfait...

Je vous remercie beaucoup


Bonjour,

Ceci peut-être:
'-------------
Sub jj()
Application.ScreenUpdating = False
For j = 1 To [a65536].End(3).Row
For i = [a65536].End(3).Row To j + 1 Step -1
If Cells(j, 1) = Cells(i, 1) Then Rows(i).Delete
Next
Next
End Sub
'-------------
--
Salutations
JJ


"JMBG" a écrit dans le message de news:

Bonjour,

J'ai un tableau de plusieurs colonnes avec en colonne A des valeurs
numériques.
Je voudrais supprimer les lignes comportant la même valeur(double) en
colonne A sans me préocupper des valeurs des autres colonnes.

Merci









Avatar
Jacky
Re...
'--------
Sub jj()
Application.ScreenUpdating = False
For j = 1 To [a65536].End(3).Row
For i = [a65536].End(3).Row To j + 1 Step -1
'ceci peinturlure la ligne
' If Cells(j, 1) = Cells(i, 1) Then Rows(i).Interior.ColorIndex = 5
'ceci peinturlure la cellule
If Cells(j, 1) = Cells(i, 1) Then Cells(i, 1).Interior.ColorIndex = 5
Next
Next
End Sub
'--------------
--
Salutations
JJ


"Freddy Govaerts" a écrit dans le message de
news: 45fa75fc$0$13850$
Bonjour,
et si au lieu de supprimer les doublons, je désire que ces cellules soient
en bleu. Comment je fais

Merci

--


http://users.skynet.be/lbai/index.htm
Photos des Fagnes, de fleurs ...


"JMBG" a écrit dans le message de news:

Bonjour,

C'est parfait...

Je vous remercie beaucoup


Bonjour,

Ceci peut-être:
'-------------
Sub jj()
Application.ScreenUpdating = False
For j = 1 To [a65536].End(3).Row
For i = [a65536].End(3).Row To j + 1 Step -1
If Cells(j, 1) = Cells(i, 1) Then Rows(i).Delete
Next
Next
End Sub
'-------------
--
Salutations
JJ


"JMBG" a écrit dans le message de news:

Bonjour,

J'ai un tableau de plusieurs colonnes avec en colonne A des valeurs
numériques.
Je voudrais supprimer les lignes comportant la même valeur(double) en
colonne A sans me préocupper des valeurs des autres colonnes.

Merci













Avatar
Jacky
Re...
Bien que pour mettre en évidence les doublons dans une colonne, la MFC
serait plus adapté.

--
Salutations
JJ


"Jacky" a écrit dans le message de news:
%
Re...
'--------
Sub jj()
Application.ScreenUpdating = False
For j = 1 To [a65536].End(3).Row
For i = [a65536].End(3).Row To j + 1 Step -1
'ceci peinturlure la ligne
' If Cells(j, 1) = Cells(i, 1) Then Rows(i).Interior.ColorIndex = 5
'ceci peinturlure la cellule
If Cells(j, 1) = Cells(i, 1) Then Cells(i, 1).Interior.ColorIndex = 5
Next
Next
End Sub
'--------------
--
Salutations
JJ


"Freddy Govaerts" a écrit dans le message de
news: 45fa75fc$0$13850$
Bonjour,
et si au lieu de supprimer les doublons, je désire que ces cellules
soient en bleu. Comment je fais

Merci

--


http://users.skynet.be/lbai/index.htm
Photos des Fagnes, de fleurs ...


"JMBG" a écrit dans le message de news:

Bonjour,

C'est parfait...

Je vous remercie beaucoup


Bonjour,

Ceci peut-être:
'-------------
Sub jj()
Application.ScreenUpdating = False
For j = 1 To [a65536].End(3).Row
For i = [a65536].End(3).Row To j + 1 Step -1
If Cells(j, 1) = Cells(i, 1) Then Rows(i).Delete
Next
Next
End Sub
'-------------
--
Salutations
JJ


"JMBG" a écrit dans le message de
news:

Bonjour,

J'ai un tableau de plusieurs colonnes avec en colonne A des valeurs
numériques.
Je voudrais supprimer les lignes comportant la même valeur(double) en
colonne A sans me préocupper des valeurs des autres colonnes.

Merci

















Avatar
Freddy Govaerts
Merci pour cette réponse rapide.

--


http://users.skynet.be/lbai/index.htm
Photos des Fagnes, de fleurs ...


"Jacky" a écrit dans le message de news:
Re...
Bien que pour mettre en évidence les doublons dans une colonne, la MFC serait plus adapté.

--
Salutations
JJ


"Jacky" a écrit dans le message de news: %
Re...
'--------
Sub jj()
Application.ScreenUpdating = False
For j = 1 To [a65536].End(3).Row
For i = [a65536].End(3).Row To j + 1 Step -1
'ceci peinturlure la ligne
' If Cells(j, 1) = Cells(i, 1) Then Rows(i).Interior.ColorIndex = 5
'ceci peinturlure la cellule
If Cells(j, 1) = Cells(i, 1) Then Cells(i, 1).Interior.ColorIndex = 5
Next
Next
End Sub
'--------------
--
Salutations
JJ


"Freddy Govaerts" a écrit dans le message de news: 45fa75fc$0$13850$
Bonjour,
et si au lieu de supprimer les doublons, je désire que ces cellules soient en bleu. Comment je fais

Merci

--


http://users.skynet.be/lbai/index.htm
Photos des Fagnes, de fleurs ...


"JMBG" a écrit dans le message de news:
Bonjour,

C'est parfait...

Je vous remercie beaucoup


Bonjour,

Ceci peut-être:
'-------------
Sub jj()
Application.ScreenUpdating = False
For j = 1 To [a65536].End(3).Row
For i = [a65536].End(3).Row To j + 1 Step -1
If Cells(j, 1) = Cells(i, 1) Then Rows(i).Delete
Next
Next
End Sub
'-------------
--
Salutations
JJ


"JMBG" a écrit dans le message de news:

Bonjour,

J'ai un tableau de plusieurs colonnes avec en colonne A des valeurs
numériques.
Je voudrais supprimer les lignes comportant la même valeur(double) en
colonne A sans me préocupper des valeurs des autres colonnes.

Merci