Liste déroulante avec check list et supression

Bérel Kaëlig · 22 Janvier 2018

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 · 23 Janvier 2018

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 · 23 Janvier 2018

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

VB:

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 · 23 Janvier 2018

vgendron à dit:

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

VB:

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 · 23 Janvier 2018

vgendron à dit:

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

VB:

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 · 23 Janvier 2018

vgendron à dit:

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

VB:

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 · 23 Janvier 2018

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) · 23 Janvier 2018

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 · 23 Janvier 2018

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

Bérel Kaëlig · 23 Janvier 2018

vgendron à dit:
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 · 23 Janvier 2018

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 · 23 Janvier 2018

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

Code:

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

Liste déroulante avec check list et supression

Bérel Kaëlig

XLDnaute Nouveau

Pièces jointes

Bérel Kaëlig

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Bérel Kaëlig

XLDnaute Nouveau

Bérel Kaëlig

XLDnaute Nouveau

Bérel Kaëlig

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

Bérel Kaëlig

XLDnaute Nouveau

Bérel Kaëlig

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Pièces jointes

Bérel Kaëlig

XLDnaute Nouveau

Discussions similaires