Afficher des données corespondant à une variable

Version imprimable

29/12/2010, 11h03
guigui71

Afficher des données corespondant à une variable

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 ?
29/12/2010, 11h14
wilfried_42

Bonjour

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

@ te lire
29/12/2010, 11h45
guigui71

1 pièce(s) jointe(s)

voilà

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

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

Code:

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

Re:

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

Code:

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

29/12/2010, 12h41
guigui71

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 ?
29/12/2010, 12h44
guigui71

Merci à vous !

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

Je vous remercie
03/01/2011, 09h38
guigui71

re bonjour :

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

re:

Code:

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

07/01/2011, 10h45
guigui71

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

re:

colonne D & E

Code:

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

07/01/2011, 12h01
guigui71

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

Code:

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

Salut guigui tu peux essayer ça :
Code:

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...

11/01/2011, 10h13
guigui71
merci de ta réponse, mais en faite je veux garder mon code d'origine et juste changer
Code:

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

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

Code:

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