Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

pascal21

XLDnaute Barbatruc
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
PHP: 
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
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
Code: 
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
Code: 
...
Cel.Interior.ColorIndex = N
If N = 3 Then Set MaCell = Cel
Else
...
et il ne te resterai plus qu'à sélectionner MaCell à la fin
Code: 
MaCell.Select
Bon dimanche 😎
Ajout : Salut Jean-Marcel 🙂
 
Vote positif 0 Vote négatif
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
Code: 
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
Code: 
MaCell.Select
variable objet ou variable de bloc with non définie
Cliquez pour agrandir...
je ne sais plus quoi y faire
PHP: 
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"
 
Dernière édition:
Vote positif 0 Vote négatif
Re : aller à la 1ere cellule colorée de la colonne A

Re 🙂,
Tu aurais peut-être dû moins shaker nos macros 😛...
Code: 
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 😎
 
Vote positif 0 Vote négatif
Re : aller à la 1ere cellule colorée de la colonne A

Tu aurais peut-être dû moins shaker nos macros
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
770
Lu76Fer
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
163
LaurentVasseur
L
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
386
dysorthographie
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
1 K
Webperegrino
W
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
477
mikeduff
M
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
3 K
Rheeem
R
  • Question Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
1 K
jeff1494
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
552
Abi23
A
  • Résolu(e)
XL 2016 Mettre la même couleur de la dernière cellule colorée
Réponses
5
Affichages
514
TooFatBoy
  • Question Question
XL 2019 [VB] Organisation et gestion du ménage et de l'entretien global (à améliorer)... Comment procéder ?
Réponses
13
Affichages
442
anthoYS
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
559
sylvanu
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
310
job75
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Résolu(e)
Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*
2
Réponses
19
Affichages
634
anthoYS
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
545
crocrocro
C
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
4 K
patricktoulon
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
901
AtTheOne
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
550
PMG
R
  • Résolu(e)
XL pour MAC La méthode "_default" de l'objet "Range" a échoué
Réponses
5
Affichages
381
Rod59
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…