Discussion :

[bird007]

Bonjour tout le monde,

J'ai un petit souci

Au fait j'ai deux feuilles de calcul "budget" et "réalisé", j'ai une colonne en réalisé qui fait réference à une colonne dans le tableau budget.
Ce que je veux faire c'est que une fois je clique sur un élement dans la colonne budget ça m'affiche juste les élements qui font réfernece à cet élement dans le tableau "réalisé".

J'ai essayé avec autofilter mais ça n'a pas marché

J'espère que j'étais clair

Merci

[methylene]

J'espère que j'étais clair

Pas vraiment.

[bird007]

Bonjour methylene,

Au fait j'ai deux feuilles, "budget" et "réalisé".

Dans la feuille budget j'ai une colonne "investissement", elle contient des élements genre pc fixe, pc protable....

Pour la relier avec la feuille "réalisé" j'ai une autre colonne dans celle
ci qui comporte les mêmes élements et qui se nomme "reférence budget".

Maintenant ce que je veux faire c'est qu'une fois je clique sur un élement dans la colonne de la feuille "budget", j'aurai automatiquement juste cet élement en cololle reference budget de la colonne "réalisé".

C'est plus clair?

Merci

[methylene]

Un truc du genre :

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_SelectionChange(ByVal Target As Range)
 
ligne = Target.Row
colonne = Target.Column
 
If colonne = tacolonneindex And  talignemaxindex < ligne < taligneminindex Then
 
Worksheets("réalisé").Cells(ligne,colonneindexinvestissement).Value = Worksheets("budget").Cells(ligne,colonneindexreferencebudget).Value 
 
End If
 
End Sub

En gros, à adapter

[mercatog]

à mettre dans l'évènement SelectionChange de la feuille budget

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
If Target.Column = 1 And Target.Row > 1 Then
   If Target.Count = 1 Then
      With Sheets("réalisé")
         If .FilterMode Then .ShowAllData
         Set c = .Columns("B:B").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
            .Columns("B:B").AutoFilter field:=1, Criteria1:=Target.Value
         Set c = Nothing
         .Activate
      End With
   End If
End If
End Sub