Liste déroulante avec check list et supression

[Bérel Kaëlig]

Bonjour à toutes et à tous;
Je n'arrive pas à faire une chose avec mes liste déroulante ( avec validation de formule et gestion de nom )
Je renseigne dans ma feuille "donnee" le nom des pièces de la cellule B3 à B21 les valeurs suivante:
Bureau 2
Bureau 3
Bureau 4
Bureau 5
Bureau 6
Bureau 7
Bureau 8
Bureau 9
Bureau 10
Bureau 11
Bureau 12
Bureau 13
Bureau 14
Bureau 15
Bureau 16
Bureau 17
Bureau 18
Bureau 19
Bureau 20

Et dans les cellules C3 à C21 mes prises réseaux:

T03
I03
T04
I04
T05
I05
T06
I06
T07
I07
T08
I08
T09
I09
T10
I10
T11
I11
T12

Je veux que quand je sélectionne dans la cellule B3 "Bureau 1" de ma feuille "Identification" il me fasse un check de ma liste déroulante où se trouve le nom "Bureau 1" et dans C3 il me mette une liste déroulante avec les informations concernant le nom "bureau 1". Et aussi quand je choisi "T03" ou "I03" il m'efface un de mes choix quand je le sélectionne
Je vous met à disposition un fichier ci-joint

Merci pour votre aide

Bonne journée
Kaeligb

 

[Bérel Kaëlig]

Ah super merci j'ai compris ca fonctionne !!
Et du coup tu peux juste me mettre les bonnes valeurs que je dois mettre dans la macro stp

 

[vgendron]

il faut quand meme adapter le code à ton fichier....

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Range("AK:AL"), Target) Is Nothing And Target.Count = 1 Then 'si tu modifies ailleurs quand dans les colonnes AK et AL
   [AK3:AL1000].Sort Key1:=[AK3], Key2:=[AL3] 'tri des colonnes AK et AL
   '[AK3:AK1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[AM3], Unique:=True 'partie extraction sans doublon de la colonne AK vers AM
 End If
End Sub

 

[Bérel Kaëlig]

il faut quand meme adapter le code à ton fichier....

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("AK:AL"), Target) Is Nothing And Target.Count = 1 Then 'si tu modifies ailleurs quand dans les colonnes AK et AL
   [AK3:AL1000].Sort Key1:=[AK3], Key2:=[AL3] 'tri des colonnes AK et AL
   '[AK3:AK1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[AM3], Unique:=True 'partie extraction sans doublon de la colonne AK vers AM
End If
End Sub

Ca fait rien renvoie le fichier avec tous qui fonctionne stp

 

[Bérel Kaëlig]

il faut quand meme adapter le code à ton fichier....

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("AK:AL"), Target) Is Nothing And Target.Count = 1 Then 'si tu modifies ailleurs quand dans les colonnes AK et AL
   [AK3:AL1000].Sort Key1:=[AK3], Key2:=[AL3] 'tri des colonnes AK et AL
   '[AK3:AK1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[AM3], Unique:=True 'partie extraction sans doublon de la colonne AK vers AM
End If
End Sub

Merci beaucoup tout fonctionne je met ce Sujet en clos

 

[Bérel Kaëlig]

il faut quand meme adapter le code à ton fichier....

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("AK:AL"), Target) Is Nothing And Target.Count = 1 Then 'si tu modifies ailleurs quand dans les colonnes AK et AL
   [AK3:AL1000].Sort Key1:=[AK3], Key2:=[AL3] 'tri des colonnes AK et AL
   '[AK3:AK1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[AM3], Unique:=True 'partie extraction sans doublon de la colonne AK vers AM
End If
End Sub

Vois tu dans mon fichier pourquoi il me met AC BUREAU 1 en doublons ?

 

[vgendron]

c'est un point que j'ai aussi remarqué.. et je n'ai aucune idée du pourquoi...
même que le premier, il lui colle un nom "Extraction"

 

[youky(BJ)]

Bonjour Bérel et Bonjour Vgendron,
Voici une autre approche tout en VBA aucune formule.
Il y a un UserForm(formulaire)
Le bouton peut être déplacé
Bruno

 

[Bérel Kaëlig]

Merci de ton aide mais ce n'est pas ca que je demande

 

[Bérel Kaëlig]

c'est un point que j'ai aussi remarqué.. et je n'ai aucune idée du pourquoi...
même que le premier, il lui colle un nom "Extraction"

Ah d'accord je ne comprends pas non plus car AC BUREAU 1 n'a pas de doublons et Secrétariat à un doublons mais quand je change le numéro I19 ( qui est un doublons) en I345 il me dis aussi qu'il y a un doublons

 

[vgendron]

Pour clore le sujet...
en PJ

Dans le code de la feuille Data - qui se déclenche dès que tu modifies quelque chose dans les colonnes AK ou AL
macro qui tri par ordre alphabétique la colonne AK puis AL ==> les pièces Batiments sont regroupées par nom...

dans la colonne AM: une formule Matricielle pour extraire SANS doublon la colonne AK
cette colonne sert à alimneter la zone nommée: "List_Of_Pieces"
Feuille TableauRecap
colonne G: Liste de validation avec "List_Of_Pieces
Colonne H: Liste de validation avec formule permettant d'avoir toutes les prises possibles de la pièce sélectionnée..

 

[Bérel Kaëlig]

J'ai résolu mes problème merci il fallait juste mettre dans le code VBA

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("AK:AL"), Target) Is Nothing And Target.Count = 1 Then
    [AK3:AL1000].Sort Key1:=[AK3], Key2:=[AL3]
    [AK4:AK1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[AM3], Unique:=True
  End If
End Sub

Et pour le doublons Secrétariat j'ai mal écris les deux noms ................. LOOOL

Merci à tous
KB