Bonjour

Tu as une erreur de réservation : Dim Plage_addresse As Range =>un seul d utilisé ensuite.

Pour éviter cela, je te conseille de mettre : "Option Explicit" en début de feuille VBA.

Tu peux remplacer :

            Plage_nom.Cells(I).EntireRow.Delete
par
            Rows(I).Delete

    Set Plage_prenom = Range("D2:D" & Range("D65536").End(xlUp).Row)
et non
    Set Plage_prenom = Range("D2:D" & Range("D2").End(xlDown).Row)

EXCEL N'EST PAS UNE BASE DE DONNEES

Parcequ'il va s'arracher le cheveux. une fois que tu commences (et tu réussis) c'est business qui va venir et demander "un peu plus" par ci "un peu plus par là". ça commence petit et 6 mois après tu est dans la merde parcequ'on a seulement hacké une soluce au lieu de trouver une vraie solution.
n'oublions pas puor le management il n'y a qu'une seule règle : le dernier qui a touché le programme est responsable s'il y a un bug

Bonjour

Que tu n'apprécies pas les méthodes de management n'a rien à faire dans une discussion informatique.

Chacun dans l'entreprise se positionne à sa façon et ce ne sont pas forcément toujours ceux qui ne touchent à rien pour ne rien casser qui sont récompensés et c'est heureux : tous les managers ne sont pas obligatoirement bornés comme tu as l'air de le penser.

Pour gérer une liste de participants à un événement il n'est peut-être pas nécessaire d'installer un serveur raid avec un temps de réponse ultra performant et des sauvegardes en temps réel à l'autre bout de la planète au cas où les tours s'effrondrent.

Il faut savoir raison garder et ne pas tout mélanger.

En tout cas Terek a fait un très bon début et je pense qu'il est préférable de l'aider et non de profiter de l'occasion pour déverser tes déboires malheureux et vécus (même si je compatis à ton souci) .

toujours zen

"A moins que je n'ai pas compris :(."

t'as compris. le delete dans Excel supprime la ligne courante et ramène celles d'en-dessous vers le haut (I + 1 devient I). Excel n'est pas une bdd. c'est une feuille de calcul pas plus

"Ici je voudrai que Michel (numero 4 soit supprimé) allant de bas en Haut,
Michel (numéro 4) = Cells(I) et donc Michel (numéro 3) serait donc égale a Cells(I-1) non ?? "

Mon problème c'est que avec ma macro, ce n'est pas Michel (num 4) qui est supprimé mais c'est Michel (num 3). C'est ce que je ne comprend pas...

Bonjour

le delete dans Excel supprime la ligne courante

Pas du tout, Excel supprime la ligne qu'on lui demande : Rows(I).Delete c'est-à-dire la ligne I.

Mais en fait, tes tests sont effectués sur ta plage qui commence en ligne 2 et donc il faut mettre pour être en cohérence

            Plage_nom.Rows(I).EntireRow.Delete

Ok merci pour toutes vos réponses

Bon au final mon code qui marche ressemble a ca. Je testerai avec le Plage_nom.Rows(I).EntireRow.Delete voir si ca differe.

Option Explicit
Sub Mise_en_forme()
    Dim I As Long
    Dim Plage_nom As Range
    Dim Plage_prenom As Range
    Dim Plage_adresse As Range
    Dim Plage_TVF As Range
    Set Plage_nom = Range("C2:C" & Range("C2").End(xlDown).Row)
    Set Plage_prenom = Range("D2:D" & Range("D2").End(xlDown).Row)
    Set Plage_adresse = Range("G2:G" & Range("G2").End(xlDown).Row)
    Set Plage_TVF = Range("A2:A" & Range("A2").End(xlDown).Row)
    For I = Plage_nom.Cells.Count To 2 Step -1
        Plage_nom.Cells(I).Value = UCase(Plage_nom.Cells(I).Value)
        Plage_nom.Cells(I - 1).Value = UCase(Plage_nom.Cells(I - 1).Value)
        Plage_prenom.Cells(I).Value = UCase(Plage_prenom.Cells(I).Value)
        Plage_prenom.Cells(I - 1).Value = UCase(Plage_prenom.Cells(I - 1).Value)
        Plage_adresse.Cells(I).Value = UCase(Plage_adresse.Cells(I).Value)
        Plage_adresse.Cells(I - 1).Value = UCase(Plage_adresse.Cells(I - 1).Value)
        Plage_TVF.Cells(I).Value = UCase(Plage_TVF.Cells(I).Value)
        Plage_TVF.Cells(I - 1).Value = UCase(Plage_TVF.Cells(I - 1).Value)
        
        If Plage_nom.Cells(I).Value = Plage_nom.Cells(I - 1).Value And Plage_prenom.Cells(I).Value = Plage_prenom.Cells(I - 1).Value And Plage_adresse.Cells(I).Value = Plage_adresse.Cells(I - 1).Value Then
            Rows(I + 1).Delete
        End If
        'suppression si meme nom prenom adresse
        
        Rows(I).Interior.ColorIndex = 6
        'Ligne déjà traité JAUNE FONCé
        
        If Plage_nom.Cells(I).Value = Plage_nom.Cells(I - 1).Value And Plage_prenom.Cells(I).Value = Plage_prenom.Cells(I - 1).Value And Plage_adresse.Cells(I).Value <> Plage_adresse.Cells(I - 1).Value And Plage_TVF.Cells(I).Value <> Plage_TVF.Cells(I - 1).Value Then
            Rows(I + 1).Interior.ColorIndex = 40
            Rows(I).Interior.ColorIndex = 22
        End If
        'adresse diffère ROSE
                
        If Plage_nom.Cells(I).Value = Plage_nom.Cells(I - 1).Value And Plage_prenom.Cells(I).Value <> Plage_prenom.Cells(I - 1).Value And Plage_adresse.Cells(I).Value = Plage_adresse.Cells(I - 1).Value And Plage_TVF.Cells(I).Value <> Plage_TVF.Cells(I - 1).Value Then
            Rows(I + 1).Interior.ColorIndex = 20
            Rows(I).Interior.ColorIndex = 42
        End If
        'prénom diffère BLEU
        
        If (Plage_nom.Cells(I).Value <> Plage_nom.Cells(I - 1).Value Or Plage_TVF.Cells(I).Value <> Plage_TVF.Cells(I - 1).Value) And Plage_prenom.Cells(I).Value = Plage_prenom.Cells(I - 1).Value And Plage_adresse.Cells(I).Value = Plage_adresse.Cells(I - 1).Value Then
            Rows(I + 1).Interior.ColorIndex = 34
            Rows(I).Interior.ColorIndex = 36
        End If
        'Nom ou TVF Différent JAUNE
        
    Next
End Sub

Salut !

J'ai quasiment la meme problématique que toi : je dois créer pour la premiere fois une macro permettant de faire un tri, une mise en page puis de supprimer les doublons. Pour la 1ère partie cela va sans probleme j'ai pu créer un bouton de commande adapté mais pr la suite je bloque depuis des heures !!!

A quoi correspond le I dans ta base de données?

Wow pas facile de se remettre la dedans plus d'un an après lol.

En fait I est un nombre qui désigne le numéro de la ligne. C'est un nombre qui varie entre Plage_nom.Cells.Count (le nombre de ligne totale de mon tableau) et 2 (la première ligne étant destiné à mes titre de colonnes).

Après si je me rappelle bien, je triai mes colonnes par ordre alpha des noms, ensuite des prénom (pour ceux qui ont le meme nom) puis les adresse (pour meme nom et meme prénom).
Ma macro :
- Met en Majuscule
- Si une personne avait meme nom, prénom et adresse, c'est que c'était la meme donc elle était supprimée.
- Si elle avait meme nom, prénom et pas meme adresse, c'était en général qu'elle avait changé et donc il me coloriait les 2 ligne et je vérifiait l'adresse.
- Si meme nom et meme adresse, mais prénom différent les lignes étaient aussi coloriées mais d'une autre couleur et je vérifiait qu'il n'y ai pas d'erreur.

Je ne fais du tout de macro excel donc je laisserai aux pro d'ici le soin de peut être mieux répondre à ton interrogation. En attendant j'espère t'avoir aider au mieux.