Discussion :

[Jean-Philippe André]

Tu nous parles d'operateurs, mais on ne sait pas ce que contiennent tes colonnes A, B et C par exemple.

Oui cela parait evident, mais toujours partir du principe pour qu'on taide :
Les portes que tu penses qu'on est en train de vouloir defoncer alors qu'elles sont ouvertes
1/ Ces portes ne sont pas ouvertes pour tout le monde
2/ Tout le monde ne sait pas que ces portent existent

[Marc-L]

Ma première macro que j'ai mentionnée dés le début m'a retourné tous les codes /opérateur.

Donc s'il ne reste que des lignes à supprimer, il suffit juste d'utiliser la méthode décrite dans le post #19 …

Appliquée dans une discussion de ce forum comportant une plage de 32 000 lignes elle n'a même pas duré cinq secondes !
Une boucle ne sert juste à ralentir une procédure comparativement au B-A-BA d'Excel …

J'ai même assisté à une démonstration entre une procédure automatique mal fichue via des boucles
face à un humain opérant manuellement dans la feuille de calculs :   l'humain l'ayant remporté haut la main, il ne lui a pas
fallu une minute pour effectuer la suppression tandis que la procédure tournait, tournait, pendant des dizaines de minutes !

Depuis ce jour j'essaye d'appliquer la première règle en développement sous Excel :   TEBV   !
Think Excel Before VBA !   Penser Excel Avant VBA …

Et parfois grâce à cette règle on peut même éviter un code inutile !
(Exemple d'un tableau croisé dynamique face à une usine à gaz en VBA …)

[JechercheT]

@ Jean
"" une base d'opérateurs ou chacun à au mois deux codes identifiants (différents)""
veut dire évidement deux colonnes: A pour opérateur, B pour codes.
Losrsqu'on parle des opérateurs en doublons et multicodage =>
amène à qq chose comme ça:

op1	cd1
op2	cd2-1
op2	cd2-2
op3	cd3-1
op3	cd3-2
op3	cd3-3

sortie souhaitée:

op1	cd1	cd1
op2	cd2-1	cd2-1 | cd2-2
op3	cd3-1	cd3-1 | cd3-2 | cd3-3

Donc s'il ne reste que des lignes à supprimer

Y a pas que ça!!
ce code est testé sur un extrait de 1000 lignes, il ne tourne pas sur mon fichier original +215000 lg

[Jean-Philippe André]

Bon et du coup mon exemple d'hier, en le faisant evoluer SIMPLEMENT, cela donnerait

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
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) Then
        If Cells(i, 3) = "" Then
            Cells(i - 1, 3) = Cells(i - 1, 2).Value & "|" & Cells(i, 2).Value
        Else
            Cells(i - 1, 3) = Cells(i - 1, 2).Value & "|" & Cells(i, 3).Value
        End If
        Cells(i, 1).EntireRow.Delete
   Else
        If Cells(i, 3) = "" Then
               Cells(i, 3) = Cells(i, 2).Value
        End If
   End If
 
 Nexti

[JechercheT]

Mille merci et désolée pour le tracas!
bonne journée