Discussion :

[Angel79]

Qui peut m'aider?

J'ai un tableau base de données dans un classeur A et un autre tableau dans un classeur B.
Je voudrais, en étant dans le classeur B, feuille 1: double-cliquer sur une ligne et qu'une petite fenêtre apparaisse indiquant les données de la colonne E du classeur A(feuille 1) et que dans cette liste je puisse choisir une ligne qui aille se copier dans la ligne du tableau, sur laquelle j'ai double-cliqué.

ça m'a l'air d'être difficile à faire...

[ouskel'n'or]

Pour faire ça, tu dois mettre ton code dans le code de la feuille de calcul.
Editeur Visual Basic.
Un clic sur le nom du fichier affiche les noms de feuilles
deux clics sur le nom de la feuille affiche la page de code.
Dans "Général" (fenêtre en haut de la page de code) sélectionne Worksheet
Affiche ces deux lignes

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
 
End Sub

Entre les deux, tu vas pouvoir écrire ton code

Tu testes la colonne dans laquelle tu vas sélectionner la cellule entrainant l'affichage désiré

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Dans classeur B
      If activecell.column = 1 then '1 si colonne A, 2 si colonne B, etc... 
           '(tu n'as indiqué la colonne dans le fichier B)
           Workbooks("A").select
           Worksheets(Feuil1).select
           Cells(1,5).select  'pour te placer sur la 1ère ligne de la colonne E
      endif
End sub

Quand tu sors de la feuille 1, la cellule sélectionnée reste sélectionnée

Dans la page de la feuille 2, tu fais

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Dans classeur A
      If activecell.column = 5 then '1 si colonne A, 2 si colonne B, etc... 
           Workbooks("B").activate
           Worksheets(Feuil1).select
           'Et là tout dépend si tu veux copier toute la ligne ou simplement une partie
      endif
End sub

et que dans cette liste je puisse choisir une ligne qui aille se copier dans la ligne du tableau, sur laquelle j'ai double-cliqué

Cette phrase me dit de remplacer la ligne du classeur B...

Tu peux préciser ?

A+

Edit
Le procédé le plus orthodoxe pour faire ça serait de passer par un userfom dans lequel tu afficherais tes deux listes. Tu n'aurais pas de "trafic" de feuille à feuille. Juste une suggestion

Attention j'avais mis "Worsheets", "Worksheets"