aller à la 1ere cellule colorée de la colonne A

[pascal21]

bonjour à tous
j'ai récupérer sur le site de boisgontier une macro qui permet de colorer les doublons de la colonne A
je cherche le code, qui me permettrait d'aller sur la 1ere cellule colorée par la macro (en partant du haut du tableau)
comment faire cela
merci
je vous mets le code

Sub ColorerDoublons()
Dim plage As Range
Dim Cel As Range, Celbis As Range
Dim L As Integer, lig As Integer, N As Byte

Application.ScreenUpdating = False

L = Range("a2000").End(xlUp).Row
'effacement des couleurs
Set plage = Range("a1:a" & L)
plage.Interior.ColorIndex = xlNone
'Coloration des doublons
N = 2
For Each Cel In plage
lig = Cel.Row
If Application.CountIf(plage, Cel) > 1 Then
If Cel.Interior.ColorIndex = xlNone And Application.CountIf(Range("a1:a" & lig), Cel) = 1 Then
N = N + 1
Cel.Interior.ColorIndex = N
Else
  For Each Celbis In plage
  If Celbis = Cel And Celbis.Row <> Cel.Row Then
  Cel.Interior.ColorIndex = Celbis.Interior.ColorIndex
  End If
  Next Celbis
End If
End If
Next Cel
Application.ScreenUpdating = True
''le code recherché serait à mettre ici
End Sub

 

[pascal21]

Re : aller à la 1ere cellule colorée de la colonne A

re
à la rigueur si çà pose un problème avec la couleur
un code permettant de positionner le curseur sur la 1ere cellule en doublon serait suffisant

 

[JNP]

Re : aller à la 1ere cellule colorée de la colonne A

Bonjour Pascal21 🙂,
Si j'analyse bien la macro de Jacques, la première cellule qui t'intéresse sera en ColorIndex = 3 vu qu'on part de 2 et qu'on ajoute 1 à N avant de colorer les doublons, et ensuite, les doublons seront en 4, 5, etc.
Donc je dimensionerais une cellule au début

Dim MaCell As Range

puis au moment de colorer le premier doublon, je ferais un test sur N pour stocker la première cellule doublonnée

...
Cel.Interior.ColorIndex = N
If N = 3 Then Set MaCell = Cel
Else
...

et il ne te resterai plus qu'à sélectionner MaCell à la fin

MaCell.Select

Bon dimanche 😎
Ajout : Salut Jean-Marcel 🙂

 

[pascal21]

Re : aller à la 1ere cellule colorée de la colonne A

bonjour jean marcel JNP
j'ai un soucis avec le code proposé par jean marcel
une erreur sur la dernière ligne
j'ai rectifié en mettant

dim Première as range

en début de code
mais rien n'y fait
pour les rectifications apportées par Jnp
pareil erreur sur la ligne

MaCell.Select

variable objet ou variable de bloc with non définie

je ne sais plus quoi y faire

Sub colorerdoublons1()
Dim MaCell As Range
Dim Première As Range
Dim plage As Range
Dim Cel As Range, Celbis As Range
Dim L As Integer, lig As Integer, N As Byte
Application.ScreenUpdating = False
L = Range("a4500").End(xlUp).Row
'effacement des couleurs
Set plage = Range("a1:a" & L)
plage.Interior.ColorIndex = xlNone
'Coloration des doublons
N = 2
For Each Cel In plage
    lig = Cel.Row
    If Application.CountIf(plage, Cel) > 1 Then
            If Cel.Interior.ColorIndex = xlNone And Application.CountIf(Range("a1:a" & lig), Cel) = 1 Then
                N = N + 1
                Cel.Interior.ColorIndex = N
                If N = 3 Then Set MaCell = Cel
                Else
                If Première = "" Then
                    Première = Cel.Address
                End If
            
              For Each Celbis In plage
                If Celbis = Cel And Celbis.Row <> Cel.Row Then
                    Cel.Interior.ColorIndex = Celbis.Interior.ColorIndex
                End If
              Next Celbis
            End If
    End If
Next Cel
Application.ScreenUpdating = True

MaCell.Select
End Sub

mais est-ce qu'une recherche sur le doublon seul ne serait pas plus facile à faire
genre "aller sur le 1er doublon de la colonne A"

 

[JNP]

Re : aller à la 1ere cellule colorée de la colonne A

Re 🙂,
Tu aurais peut-être dû moins shaker nos macros 😛...

Sub colorerdoublons1()
Dim MaCell As Range
Dim Plage As Range
Dim Cel As Range, Celbis As Range
Dim L As Integer, lig As Integer, N As Byte
Application.ScreenUpdating = False
L = Range("a4500").End(xlUp).Row
'effacement des couleurs
Set Plage = Range("a1:a" & L)
Plage.Interior.ColorIndex = xlNone
'Coloration des doublons
N = 2
For Each Cel In Plage
    lig = Cel.Row
    If Application.CountIf(Plage, Cel) > 1 Then
            If Cel.Interior.ColorIndex = xlNone And Application.CountIf(Range("a1:a" & lig), Cel) = 1 Then
                N = N + 1
                Cel.Interior.ColorIndex = N
                If N = 3 Then Set MaCell = Cel
             
              For Each Celbis In Plage
                If Celbis = Cel And Celbis.Row <> Cel.Row Then
                    Celbis.Interior.ColorIndex = Cel.Interior.ColorIndex
                End If
              Next Celbis
            End If
    End If
Next Cel
Application.ScreenUpdating = True
MaCell.Select
End Sub

fonctionne 🙄...
Bon dimanche 😎

 

[pascal21]

Re : aller à la 1ere cellule colorée de la colonne A

Tu aurais peut-être dû moins shaker nos macros

j'ai essayé de faire comme je pensais avoir compris
je viens de l'adapter sur mon fichier ça fonctionne pas
toujours la même erreur sur la dernière ligne
pour mettre le fichier en question çà risque d'être compliqué il y a env 4000 lignes
je regarde ce qui peut bien clocher avec ce classeur

 

[pascal21]

Re : aller à la 1ere cellule colorée de la colonne A

re
je viens de trouver ce qui cloche
si il n'y a pas de doublon j'ai une erreur sur la dernière ligne
si il a un doublon çà fonctionne
un on error resume next bien placé devrait tout arranger

 

[pascal21]

Re : aller à la 1ere cellule colorée de la colonne A

on error resume next

avant

[MaCell.Select

a tout règlé
merci pour votre aide