Bonjour,
Je tente de réaliser une RechercheV entre 2 fichiers Excel ouverts, et je bloque sur le nom de la table matrice. Je ne parviens pas à nommer correctement le nom de la table (Plage_CI_G).


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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub RechercheV_2Fichiers()
 
Dim ws, wr As Workbook
Dim Dlign1 As Integer
Set ws = ThisWorkbook
Set wr = Workbooks("Indicateurs_redressement_national")
Dim Plage_CI_G As Range
 
'Déterminer la plage de la feuille CI G
With wr.Sheets("Taux de redres CI G S3C")
    Dlign1 = .Cells(.Rows.Count, 1).End(xlUp).Row
 
    Set Plage_CI_G = .Range("B6", .Range("O" & Dlign1)) 'ca ne met pas de nom à la zone sélectionnée
'ca affecte juste la zone sélectionnée à une variable nommée Plage_CI_G
End With
With Plage_CI_G
 
   .Name.Add Name:="Plage_CI_G", RefersToR1C1:=Plage_CI_G.Address 'Le code bloque à cet endroit
End With
 
'Et pour la RECHERCHEV :
 
    Sheets("Analyse S3C contrôle").Select 'feuille se trouvant sur le classeur ws
    Range("F18").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-13]C[-2],Plage_CI_G,5,FALSE)"
 
 
End Sub

Merci par avance pour votre aide.

Eric