VBA selection d'une cellule coloré

[spadou86]

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.

 

[tototiti2008]

Re : VBA selection d'une cellule coloré

Bonjour spadou86,

la couleur est le résultat d'une mise en forme conditionnelle (MFC) ?

 

[spadou86]

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

 

[tototiti2008]

Re : VBA selection d'une cellule coloré

Re,

Peut-être

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

 

[spadou86]

Re : VBA selection d'une cellule coloré

Merci c'est vraiment impressionnant !!!
Connais-tu un moyen pour ce former efficacement au VBA ?

 

[spadou86]

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.

 

[tototiti2008]

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 ?

 

[spadou86]

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.