suppression de cellules dans une ligne

11 réponses

GaelB

12/01/2004 à 16:40

Bonjour =E0 tous!
Apr=E8s plusieurs proc=E9dures, j'obtiens un fichier avec des=20
donn=E9es en lignes. Je souhaite supprimer certaines=20
cellules redondantes. Je peux avoir d'une centaine =E0=20
plusieurs milliers de lignes.
Exemple:
secteur etablissement n=B0 secteur etablissement nb due oe
10 xxxx 123 10 xxxx 50 25 10
20 yyyy 321 20 yyyy 15 10 50
97 azaa 852 97 azaa 85 52 63

Quelqu'un peut il m'indiquer comment supprimer les=20
cellules en double dans une ligne puis passer =E0 la ligne=20
suivante? Je ne trouve pas de solution =E0 cela sur le net,=20
=E0 moins que je m'y prenne comme un manche.
Cordialement,=20
Ga=EBl

1 réponse

1 2

14/01/2004 à 08:52

Bonjour Frédéric!
Je teste de ce pas.
A+
GaëlB

-----Message d'origine-----
Celle ci regarde sur la ligne les doublons en entrée entr
la colonne B et

G(2et7)
Private Sub Worksheet_Change(ByVal c As Excel.Range)

For Each c In Range(Cells(c.Row, 2), Cells(c.Row, 7))
If Evaluate("or(" & c.Address & "=" & c.Offset(0,
1).Address & ":" &

c.Offset(0, 7 - c.Column).Address & ")") Or _
Evaluate("or(" & c.Address & "=" & c.Offset(0, 1 -
c.Column).Address & ":" &

c.Offset(0, -1).Address & ")") Then
With c.Font
..Bold = True
End With
Else
With c.Font
..Bold = False
End With
End If
Next c
End Sub

--
Frédéric

"GaelB" a écrit
dans le message de

news: 08ee01c3d9bd$f70349a0$
Bonjour Frédéric!
Je suppose que pour le faire sur la même ligne, j'écris
c.Offset(0, 0.
Je teste et merci.
Gaël
-----Message d'origine-----
Bonjour GaelB
Le code si dessous a mettre dans le code de feuille, a
les propiétés de

mettre en gras les redondances se trouvant au dessus de
la cellule

sélectionnée, si cela peut te servir

Private Sub Worksheet_SelectionChange(ByVal Target As
Excel.Range)

For Each c In Selection
If Evaluate("or(" & c.Address & "=" & c.End(xlUp).Address
& ":" &

c.Offset(-1, 0).Address & ")") and c<>"" Then
With c.Font
..Bold = True
End With
Else
With c.Font
..Bold = False
End With
End If
Next c
End Sub

--
Frédéric

"GaelB" a écrit
dans le message de

news: 023101c3d926$94dc8350$
Bonjour Alain!
Je souhaite supprimer les cellules en double sur une
ligne, secteur et établissement en cellules A2 et B2
après

avoir vérifié quelles correspondent bien aux cellules D2
et E2. Puis l'on passe à la ligne suivante.
J'envisage ceci comme une vérification, ligne après
ligne,

avant de passer à des tri secteur par secteur.
Cordialement,
Gaël
-----Message d'origine-----
A travers ton exemple on ne comprends pas très bien ce
qui est redondant et ce

qu'il faut supprimer
La colonne entière ?

AV

.

.

.