Discussion :

[Savat2]

Bonjour.

J'ai un problème de liste déroulante et de comparaison d'un résultat avec une liste de tableau (t_APPAREIL) dans l'onglet données.

J’asseye de comparait la réponse de la ligne 7 "APPAREIL" par rapport au tableau "t_APPAREIL" , si la réponse est dans la liste, il faudrait pouvoir obtenir une autre liste déroulante "t_HYB" et si la réponse ne correspond pas, forcement rien.

En dessous du tableau dans la cellule S12, j'ai essaye de passer par une comparaison par recherche et ensuite une fonction si, mais c'est l'échec.

D'ailleurs au départ, dans les cellules de la ligne 7 "appareils", j'ai voulu faire par la fonction indirect, mais le souci est que le nom des tableaux dans l'onglet "données" ne peut commencé par un chiffre, si une solution est disponible, je ne suis pas accès caler en Excel pour la connaitre.

J'ai mis le fichier incriminer (JOKE) en copie.

Comme au par avant, je vous remercie par avance pour votre aide et votre temps accordé, pour m'aider.

[riton00]

Bonjour,

Si j'ai bien compris?

Voir Pj

[Savat2]

Bonsoir.

En tout premier lieu, merci pour le coup de main.

Presque, mais pas encore ça, peut-être aussi mes explications.

Je devrais avoir un menu déroulant pour choisir sur quel hybride l'appareil sera câblé.

Mais merci d'avoir apporté votre contribution.

[riton00]

Bonsoir.

Je devrais avoir un menu déroulant pour choisir sur quel hybride l'appareil sera câblé.

En fait je ne comprends pas pourquoi une liste déroulante puisque pour une référence tu as un item donc.... du coup une rechercheV suffit!!
Exemple dans la colonne X2 tu as une référence AIR_1-SC35 son item en Z2 est HYB-1 alors pourquoi une liste déroulante?

Slts

[Savat2]

Bonsoir.

C'est ce que je pensé, mes explications ne devaient pas être aussi clair que cela.

En premier lieu: le disjoncteur (A) détermine quelle appareil peut être câblé.
En deuxième partie: HYB=hybride ou câble de jonction entre le disjoncteur et l'appareil, mais un hybride ne comporte que 6 pairs de câble, d’où plusieurs hybride et aussi de la consommation des appareils, des fois on ne peut utiliser toutes les pairs, alors on a besoin de plusieurs hybride.

Désolé si vous avez cru que les données sont structuré en colonnes est non rien avoir en ligne, d’où mes petites colonnes de séparation.

Dans tout les cas, je vous remercie infiniment pour le temps que vous m'avez accordé.

[riton00]

Bonsoir,

En fait tu as besoin d'une liste déroulante à choix multiples en HYB ?? et si c'est pas ça..... désolé mon cerveau me fait défaut, difficultés de compréhension de ta demande

Slts

[Savat2]

Bonsoir.

J'ai beau essayer de résoudre le problème en ligne 9, je ne sais pas ce que je commuais de faux, mais le menu déroulant ne veut pas s'afficher.

Est-ce qu'une bonne âme peut y jeter un œil aguerri et m'expliquer ou je me trompe.

Merci d'avance.

[ARTURO83]

Bonjour,

Ceci peut-être:

Savat2_Tableau des disjoncteurs.xlsm

Code dans le module de la feuille "Tableau"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Sortie
    Application.EnableEvents = False
    If Not Intersect(Range("B8:AA8"), Target) Is Nothing Then
        Disj = Target.Value
        Col = Target.Column
        Recherche_Disj
    End If
Sortie:
    Application.EnableEvents = True
End Sub

Code dans un module standard

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
Public Disj As String
Public Col As Long
 
Sub Recherche_Disj()
    Dim f1 As Worksheet, f2 As Worksheet
    Dim x As Object
    Set f1 = Sheets("Tableau")
    Set f2 = Sheets("DONNEES")
    Set x = f2.Range("t_APPAREIL").Find(Disj)
 
    If Not x Is Nothing Then
        With f1.Cells(9, Col).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=L_HYB"
            .IgnoreBlank = True
            .InCellDropdown = True
            .ShowInput = True
            .ShowError = True
        End With
    Else
        With f1.Cells(9, Col).Validation
            .Delete
        End With
    End If
    Set x = Nothing
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Cdlt

[Savat2]

Bonjour.

Tout d'abord, je vous remercie pour votre temps et votre implication.

Petit souci, mais cela est de ma faute pour ne pas l'avoir mentionné, comme ce tableau doit aussi pouvoir tourner sur des tablettes (matériel pour nous les monteurs) et quelles ne prennent pas en compte les macro ou le VBA, cela ne pourra pas fonctionner.

C'est pour cela que j’essayai de créer un tableau automatisé pour certain appareil, évitent ainsi des erreurs de câblage par rapport au câble nommé HYB-... et en même temps gagner du temps avec des menu déroulant.

Si une solution par formule ou menu déroulant peut ce faire, je vous en remercie d'avance.

[ARTURO83]

Alors, essayez cette formule dans la validation de données:

Code :

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

=SI(EQUIV(P$8;L_APPAREIL;0)>0;L_HYB;"")

Cdlt

[Savat2]

Bonsoir.

Je n'ai pas d'autre mot que "SEIGNEUR", ça à l'air si simple quand on va la formule et je n'ai pas réussi à la posé.

Et désolé pour le temps que vous avez pris pour écrire les ligne de code qui toute fois non pas servi, j'en suis vraiment navré alors quelles fonctionne aussi très bien si jamais

Encore un grand merci a vous et à la coopérative de Developez.com