Afficher des données corespondant à une variable

**guigui71** · 29/12/2010, 11h03

Bonjour à tous :

j'ai un problème :

je dispose de 2 feuilles :

1 : données dédoublonnées
2 : toutes les données ( donc avec doublons)

lien entre les 2 feuilles : une référence

j'aimerai que lorsque je clique sur une référence de ma feuile 1, afficher dans une nouvelle feuille toutes les données de la feuille 2 qui correspondent.

soit en gros un tableaux dynamic liant les 2 feuilles.

Avez vous une idée ?

**wilfried_42** · 29/12/2010, 11h14

Bonjour

Avec des formules matricielles ou par macro au choix, seulement un exemple de ton classeur est necessaire

@ te lire

**guigui71** · 29/12/2010, 11h45

voilà

J'ai simplifié mon fichier mais je pense qu'avec ceci vous comprendrez mieux mon problème

**mercatog** · 29/12/2010, 12h20

dans l'évènement Change de ta feuille sans doublons

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastLigSD As Long, LastLigAD
 
Application.ScreenUpdating = False
LastLigSD = Cells(Rows.Count, "D").End(xlUp).Row
If Not Intersect(Target, Range("D2:D" & LastLigSD)) Is Nothing Then
    With Sheets("BDD avec doublon")
        Sheets("Feuil3").UsedRange.Clear
        .AutoFilterMode = False
        LastLigAD = .Cells(Rows.Count, "D").End(xlUp).Row
        .Range("A1:G" & LastLigAD).AutoFilter field:=4, Criteria1:=Target.Cells(1, 1).Value
        .Range("A1:G" & LastLigAD).SpecialCells(xlCellTypeVisible).Copy Sheets("Feuil3").Range("A1")
        .AutoFilterMode = False
    End With
End If
End Sub

**wilfried_42** · 29/12/2010, 12h27

Re:

J'ai bossé je poste lol, à placer dans le code VBA de la Feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("D2:D1000")) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    Sheets("Feuil3").Cells.Clear
    With Sheets("BDD avec doublon").Range("A:G")
        .AutoFilter field:=4, Criteria1:=Target.Value
        .SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Feuil3").Range("A1")
        .AutoFilter
    End With
    Sheets("Feuil3").Select
End Sub

**guigui71** · 29/12/2010, 12h41

bonjour mercatog,

J'ai testé votre code, il m'affiche uniquement l'entête des colonnes dans la feuil3

Je précise :

feuil 1 sans doublon : le critère ( référence) est à la colonne C
feuil 2 avec doublon : le critère (référence) est à la colonne M

peut être est-ce celà qui plante ?

**guigui71** · 29/12/2010, 12h44

Merci à vous !

votre programme marche, j'ai juste ajusté en fonction de mes colonnes !

Je vous remercie

**guigui71** · 03/01/2011, 09h38

re bonjour :

j'aimerai savoir s'il est possible que la macro s'effectue que s'il on double clique sur la cellule ??

**wilfried_42** · 03/01/2011, 10h22

re:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("D2:D1000")) Is Nothing Then Exit Sub
    Cancel = True
    If Target = "" Then Exit Sub
    Sheets("Feuil3").Cells.Clear
    With Sheets("BDD avec doublon").Range("A:G")
        .AutoFilter field:=4, Criteria1:=Target.Value
        .SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Feuil3").Range("A1")
        .AutoFilter
    End With
    Sheets("Feuil3").Select
End Sub

**guigui71** · 07/01/2011, 10h45

merci, celà marche très bien

J'ai un autre pb :

Je cherche à créer le même programme sur une autre colonne de ma base.

J'ai adapté le code à ma demande mais le problème c'est qu'il ne s'éxécute pas car je ne peux pas créer un autre private sub before doubleclick

**wilfried_42** · 07/01/2011, 11h31

re:

colonne D & E

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("D2:E1000")) Is Nothing Then Exit Sub
    Cancel = True
    If Target = "" Then Exit Sub
    Sheets("Feuil3").Cells.Clear
    With Sheets("BDD avec doublon").Range("A:G")
        .AutoFilter field:=Target.column, Criteria1:=Target.Value
        .SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Feuil3").Range("A1")
        .AutoFilter
    End With
    Sheets("Feuil3").Select
End Sub

**guigui71** · 07/01/2011, 12h01

bonjour wilfried,

je me suis mal exprimé :

J'ai ajouté une nouvelle feuille à mon classeur,

et j'aimerai qu'en faisiant le même principe que précédemment, lorsque je clique sur la colonne E de ma feuille, avoir les résultats correspondant de ma nouvelle feuille ( je l'ai appeler feuille 4) et me sortir ses résultats dans la feuille 5.

Pour reprendre :

J'ai donc en
1 ma BDD
2 ma BDD avec doublons
3 Afficher les doublons en fonction du clique sur la 1
4 nouvelle feuille
5 afficher les résulats correspondant à la feuille 4 en fonction du clique sur 1

**guigui71** · 11/01/2011, 09h12

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("D2:D1000")) Is Nothing Then Exit Sub
    Cancel = True
    If Target = "" Then Exit Sub
    Sheets("Feuil3").Cells.Clear
    With Sheets("BDD avec doublon").Range("A:G")
        .AutoFilter field:=4, Criteria1:=Target.Value
        .SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Feuil3").Range("A1")
        .AutoFilter
    End With
    Sheets("Feuil3").Select
End Sub

J'aimerai savoir si il serait possible que à chaque double clique sur ma variable, on me recréée une nouvelle feuille? ( de la façon d'un croisé dynamic

**dodo69** · 11/01/2011, 09h58

Salut guigui tu peux essayer ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
sub nouvelle_feuille ()
 
dim nom as string
 
nom = InputBox("comment voulez vous nommez la nouvelle feuille ?")
If nom <> "" Then
    Sheets.Add
    ActiveSheet.Name = nom
End If
 
End sub

Après, il doit y avoir des codes d'erreur que je manie pas bien au cas ou l'utilisateur nomme la feuille de la même manière qu'une autre déjà créer...

**guigui71** · 11/01/2011, 10h13

merci de ta réponse, mais en faite je veux garder mon code d'origine et juste changer

Code :

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

1
2
Sheets("Feuil3").Cells.Clear
SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Feuil3").Range

car avec ce programme il m'écrase les données de la feuille pour remettre les nouvelels qui correspondent à mon choix

**dodo69** · 11/01/2011, 10h17

Si j'ai compris tu veux créer une nouvelle feuille au lieu d'y coller en feuille3

Code :

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

1
2
3
4
5
6
7
 
nom = InputBox("comment voulez vous nommez la nouvelle feuille ?")
If nom <> "" Then
    Sheets.Add
    ActiveSheet.Name = nom
End If
SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(nom).Range

Afficher des données corespondant à une variable

Macros et VBA Excel

Discussions similaires

Partager

Partager