Discussion :

[Moun10be]

Bonjour,

Serait-il possible de mettre en surbrillance une cellule en fonction que je clic sur une autre cellule qui ce trouve dans un filtre

Exemple : je fais une recherche avec le mot BCM puis je clic sur la cellule BCM et il met en surbrillance la cellule correspondante pour cette exemple c'est la cellule H10

Merci d'avance





Disjoncteur.xlsmDisjoncteur.xlsm

[jerome.vaussenat]

Salut,

Juste pour être sûr. Car je trouve ton tableau étonnement construit ...

Tu veux utiliser la zone de filtre en M10 pour choisir une valeur et selon cette valeur choisie la mettre en couleur de fond dans le colonne H.

Alors ce qui e tracasse :
Pourquoi on ne trouve pas toutes les valeurs.
si tu utilises la cellule M10, tu filtres et du coup les lignes entières sont masquées.

Ne serait-il pas préférable de faire une validation de donnée. Tu as la possibilité d'avoir une liste déroulante sans avoir l’inconvénient du masquage des lignes.

Ensuite, sur la cellule M10, tu mets une validation de données.

Non ?

Merci de tes précisions pour qu'on puisse mieux t'aider.

GG

[Moun10be]

Merci Jerome pour t'as réactivité, oui c'est plus ou moins ce que vous me proposé comme solution, c'est a dire quand fonction du mots rechercher dans la cellule M10 il me met en surbrillance dans les cellules correspondantes des disjoncteurs
exemple : mots rechercher BCM la cellule disjoncteur correspondante ce met en surbrillance
mots rechercher CCU radio la cellule disjoncteur correspondante ce met en surbrillance ainsi de suite pour les autres mots

Si tu as une meilleur proposition qui soit plus pratique ou plus utile pour mon projet je suis preneur.

Merci encore pour ton aide.

[ARTURO83]

Bonjour,

Autre proposition avec une liste des disjoncteurs, ComboBox et VBA

Le fichier
Pièce jointe 529891

Le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Compare Text
 
Dim Lig As Long, Col As Long
Dim Nom_Disj As String
 
Sub ComboBox1_Change()
    Application.ScreenUpdating = False
 
    Nom_Disj = ComboBox1.Text
    Col = 3
Deb_Recherche:
    For Lig = 4 To 38
        If InStr(1, Cells(Lig, Col), Nom_Disj, 1) <> 0 Then
            Cells(Lig, Col).Interior.Color = RGB(0, 255, 192)
        Else: Cells(Lig, Col).Interior.Color = RGB(255, 255, 255)
        End If
        If Lig = 38 Then
            Select Case Col
                Case 3
                    Col = 8
                    GoTo Deb_Recherche
                Case 8
                    Col = 18
                    GoTo Deb_Recherche
                Case 18
                    Col = 23
                    GoTo Deb_Recherche
            End Select
        End If
    Next Lig
End Sub

Cdlt

[Moun10be]

Merci Arturo pour cette solution

J'ai testé la plupart des mots de recherche par contre je me suis rendu compte que lorsque je sélectionne le mot SAE - STIBIS - PHOENIX il ne met pas en surbrillance les disjoncteur correspondant, mais en indiquant le mot STIBIS seul il met en surbrillance que le disjoncteur STIBIS mais pas les disjoncteurs SAE et PHOENIX.
Ainsi que le mot PRISE 24V il met bien en surbrillance le disjoncteur correspondant du PA mais pas celui du PB

Bon week-end à tous.

[jerome.vaussenat]

Salut,

Commençons par le plus simple :
Pour le prise 24V, dans la cellule R35, tu as écrit "PRISE 24 V DC DE LA CAISSE E"
Avec un espace entre le 24 et le V.
Alors que dans la liste et dans la cellule C32 et dans la liste tu as 24V (sans espace)

Après ...
Le code proposé par "ARTURO83" (que je salue) recherche si le texte saisie dans la liste fait partie du contenu d'une cellule :
Est que que "BCM" ou "CCU radio" sont écrits. Si oui,la cellule change de couleur.

Par contre si on regarde, par exemple "PRODATA + CALYPSO" qui est dans ta liste déroulante.
Dans la cellule H8 tu as "PRODATA-CALYPSO".
En premier il y a un - à la place d'un + et il y a les espaces.

De même pour "SAE - STIBIS - PHOENIX".
Quelles cellules contiennent l'ensemble tu texte ?
Sauf erreur de ma part, aucune. Elles peuvent contenir SAE ou STIBIS ou PHOENIX