Discussion :

[43pipistrel]

Bonjour,
Débutante en programmation et en VBA, afin d'automatiser la mise en forme de nombreux tableaux à partir d'extraits d'une base de données, j'aimerai effectuer une comparaison de chaque cellule d'une colonne avec toutes les autres cellules puis effacer les valeurs identiques.

Sur l'exemple joint : sur une colonne aux nombres de lignes variables, rechercher les cellules contenant le même texte et effacer leur contenu soit celui des cellules jaunes, oranges et rouges.


J'ai écrit le code suivant (pour effectuer les vérifications de mon code visuellement, je n'ai pas effacé le texte mais l'ai mis en rouge, mais le problème reste le même) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    ActiveWorkbook.Worksheets("Feuil2").Select
 
    Dim DerLign As Long
    Dim i As Integer
    'Définition de la dernière ligne de la colonne 1
    DerLign = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
    'Le code suivant fonctionne mais ne tient pas compte des cellules ayant la même valeur, snif !!!
        With Sheets("Tableau_final").Range("A1:A65000")
            For i = 1 To DerLign
                If Cells(i, "A").Value = Cells(i + 1, "A").Value Then
                ActiveCell.Interior.Color = RGB(255, 1, 1)
                End If
                    ' Selection de la cellule du dessous
                    ActiveCell.Offset(1, 0).Select
            Next i
        End With

Le code fonctionne, mais je ne comprends pas les sélections qu'il effectue :


J'espère avoir été claire dans mes explications.
Merci pour votre aide
Bonne journée

[78chris]

Bonjour

Quand on supprime il faut partir du bas

Cependant ton exemple interpelle : tu vas supprimer aléatoirement tous les items moins1 sans tenir compte des autres colonnes ?

[43pipistrel]

Bonjour 78chris,
Merci pour cette réponse rapide.

En fait, je désire bien "effacer" les textes en doublon dans la col 1 et non supprimer les lignes entières. Il s'agit d'une mise en page et "liste A, liste B... etc" sont des, en quelques sortes des "titres". J'aimerai obtenir ceci avec le code que j'ai envoyer :


et une fois le code finalisé, ceci :


En ce qui concerne, "Quand on supprime il faut partir du bas", est-ce que la sélection faites comme ça : DerLign = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row ne prend pas en compte les lignes de la colonnes à partir du bas ?

Merci

[78chris]

Bonjour

Sachant qu'une simple MFC permet de masquer la répétition sans empêcher ni tri ni filtre, il n'est pas certain que focaliser sur la présentation soit la meilleure approche...

Pour répondre, il faut utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = DerLign To 1 step -1

et adapter en conséquence

[43pipistrel]

Re 78Chris,

Comme c'est mon premier code en VBA, je sèche vite !!!

"Sachant qu'une simple MFC permet de masquer la répétition sans empêcher ni tri ni filtre, il n'est pas certain que focaliser sur la présentation soit la meilleure approche..."

Qu'est ce qu'une MFC ? Sûr qu'il doit avoir d'autres solutions pour réaliser le code de façon plus rigoureuse mais je n'ai pas les connaissances pour !!!

"Pour répondre, il faut utiliser : For i = DerLign To 1 step -1"

Si je comprends bien effectivement c'est là que l'on commence par la fin : par contre je ne comprends pas "step -1"

Et puis je ne sais pas adapter car remplaçant seulement mon code par le votre, le résultat n'est pas bon non plus (en fait c'est le même qu'avec mon code puisque je n'ai rien modifié dans le reste du code) !

Merci pour vos précisions

[78chris]

RE

MFC : Mise en Forme Conditionnelle qui peut masquer simplement la répétition des textes en colonne A

Si tu effaces des lignes en partant du haut la ligne 2 ayant disparu le ligne 3 devient 2 donc ne sera pas traitée puisqu'on passe à la 3ème qui était auparavant la 4ème

Un For s'incrémente par défaut avec +1 donc si on part de la fin il faut préciser qu'on utilise -1 pour remonter d'une part, et comparer avec la ligne précédente d'autre part

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Sheets("Tableau_final").Range("A1:A65000")

devrait être remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("Tableau_final") 
ou mieux
With Workbooks("NomClasseur").Sheets("Tableau_final")

et utilsé dans la suite avec les .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
            For i = DerLign To 2 step -1
                If .Cells(i, "A").Value = .Cells(i - 1, "A").Value Then
                 .Cells(i, "A").Interior.Color = RGB(255, 1, 1)
                End If
            Next i

Les lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
                    ' Selection de la cellule du dessous
                    ActiveCell.Offset(1, 0).Select

ne servent à rien à part ralentir le code et expliquent aussi ton problème car tu coloriais la sélection et non la ligne i