Discussion :

[lerouxjm]

Bonjour ,

en lançant le code indiqué ci-après le résultat est :

Code :

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

=RECHERCHEV(150;$A$1:$H$105; 2; FAUX)

alors que la table matrice est définie dans une autre feuille appelée ICB_classification. Pourquoi le nom de la feuille n'apparaît pas ?
Je vous remercie d'avance pour votre aide.
Jean-Marie

Voici le code qui aboutit à ce résultat :

Code :

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

1
2
3
4
5
6
Set plage1 = Sheets("ICB_classification").Range("A1").CurrentRegion
 
' valeur recherchée = 150 (1er argument fonction Vlookup)
secteur = Range("D" & i).Value 
 
ActiveCell.Formula = "=vlookup(" & secteur & "," & plage1.Address & ", 2, _ False)"

pourquoi plage1.address indique $A$1:$H$105 au lieu de
ICB_classification!$A$1:$$H$105 ?

Comment faire pour obtenir l'adresse complète ?

[fred65200]

Bonjour ,

Address ne renvoie que ligne et colonne, pas le nom de la feuille

Code :

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

1
2
3
4
5
6
Set plage1 = Sheets("ICB_classification").Range("A1").CurrentRegion

' valeur recherchée = 150 (1er argument fonction Vlookup)
secteur = Range("D" & i).Value 

ActiveCell.Formula = "=vlookup(" & secteur & ",ICB_classification!" & plage1.Address & ", 2, _ False)"

ou

Code :

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

1
2
3
4
5
6
7
8
Dim F1 As Worksheet
Set F1 = Sheets("ICB_classification")
Set plage1 = F1.Range("A1").CurrentRegion
 
' valeur recherchée = 150 (1er argument fonction Vlookup)
secteur = Range("D" & i).Value
 
ActiveCell.Formula = "=vlookup(" & secteur & "," & F1.Name & "!" & plage1.Address & ", 2, 0)"

cordialement

[SilkyRoad]

bonjour

deux autres possibilités sans variable intermédiaire:

Code :

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

MsgBox Plage1.Parent.Name & "!" & Plage1.Address

La propriété Address contient un argument facultatif "External", qui permet aussi de récupérer le nom de la feuille:

Code :

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

1
2
MsgBox Mid(Plage1.Address(1, 1, 1, True, 0), _
    InStr(Plage1.Address(1, 1, 1, True, 0), "]") + 1)

Ce derniere exemple renvoie un résultat dans le style:
[NomClasseur.xls]ICB_classification!$A$1:$B$8
Les fonctions MID et INSTR permettent ensuite de manipuler la chaîne de caractères afin de ne récupéer que le nom de la feuille et l'adresse des cellules.


bonne journée
michel

[bidou]

désolé Michel mais il vaudrait mieux

Code :

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

MsgBox Plage1.Worksheet.Name & "!" & Plage1.Address

[SilkyRoad]

rebonjour et merci Bidou


Je ne connais pas de cas de figure qui nécessiterait de privilégier Worksheet à Parent, mais Je te fais confiance dans ce domaine ... ;o)


bonne journée
michel

[bidou]

c'est une histoire de liaisons

Worksheet renvoie un objet Worksheet donc tu gardes l'intellisense et en cas de pilotage tu restes en liaison précoce, Parent renvoie Object donc tu perds l'intellisense et tu passes en liaison tardive