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

VBA selection d'une cellule coloré

  • Initiateur de la discussion Initiateur de la discussion spadou86
  • Date de début Date de début

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

spadou86

Guest
bonjour à tous,

voila mon problème :
dans une colonne il y a des cellules colorées. Je voudrai pouvoir sélectionner la ligne de la cellule suivante si la cellule est colorée.
(ceci afin de gérer les doublons dans mon tableau...) Je n'ai pas trouvé d'autre solution pour le moment.
 
Dernière modification par un modérateur:
Re : VBA selection d'une cellule coloré

non c'est une macro qui détecte les doublons et les met en jaune par exemple

Type TableauType
Contenu As String
Coordonnee As Integer
End Type

Sub TrouveDoublon()
Dim Tableau() As TableauType
Dim Cellule, Haut, Bas, Compteur, C1
Colonne = ActiveCell.Column
Haut = selection.End(xlUp).Row
Bas = selection.End(xlDown).Row
ReDim Tableau(Bas)
For Compteur = Haut To Bas
Tableau(Compteur).Contenu = Cells(Compteur, Colonne)
Tableau(Compteur).Coordonnee = Cells(Compteur, Colonne).Row
Next
For Compteur = Haut To Bas
For C1 = (Compteur + 1) To Bas
If Tableau(Compteur).Contenu = Tableau(C1).Contenu Then
Cells(Tableau(Compteur).Coordonnee, Colonne).Interior.ColorIndex = 6
Cells(Tableau(C1).Coordonnee, Colonne).Interior.ColorIndex = 6
End If
Next
Next
End Sub
 
Re : VBA selection d'une cellule coloré

Re,

Peut-être

Code:
Sub SelectJaune()
Dim i As Long
    If ActiveCell.Row < 65536 Then
        For i = ActiveCell.Row + 1 To Cells(65536, ActiveCell.Column).End(xlUp).Row
            If Cells(i, ActiveCell.Column).Interior.ColorIndex = 6 Then
                Cells(i, ActiveCell.Column).Select
                Exit For
            End If
        Next i
    End If
End Sub
 
Re : VBA selection d'une cellule coloré

ah oui il y a un problème car si la cellule est sans couleur, au lieu de passer à la suivante, cela sélectionne la prochaine cellule en jaune.
 
Re : VBA selection d'une cellule coloré

Re,

Connais-tu un moyen pour ce former efficacement au VBA ?

il y a de nombreux tutoriaux sur internet (par exemple là : Support de cours complet pour le VBA d'Excel)

ah oui il y a un problème car si la cellule est sans couleur, au lieu de passer à la suivante, cela sélectionne la prochaine cellule en jaune.

Et pour cause, c'est ce que j'avais compris que tu voulais
Peux-tu préciser exactement le comportement que tu attends ?
 
Re : VBA selection d'une cellule coloré

Je vais joindre le fichier pour que se soit plus clair.
En gros le but du fichier et d'afficher dans une feuille toute les données d'une seule personne. 2 bases de données sur 2 feuilles différentes en alimente une seule.
Par exemple je tape "Alain" et dans une nouvelle feuille apparait alors toute les info sur "Alain".
Mon problème est que je n'arrive pas à gérer les doublons. en effet quand je tape le nom de la personne dans la boîte de dialogue j'obtiens que le 1er de la colonne.

Je recherche diverse solution afin de pouvoir gérer ces doublons.
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…