récupérer les coordonnées d'une cellule (rechechev)

Version imprimable

20/03/2017, 19h35
stroumfette44

1 pièce(s) jointe(s)

récupérer les coordonnées d'une cellule (rechechev)

Bonjour

Je dois faire un recherchev pour retrouver des valeurs dans un autre tableau d'un autre onglet

mais j'ai aussi besoin de récupérer la mise en forme de la cellule (couleur, etc)

pour cela je voudrais récupérer les coordonnées de la cellule mais je n'y arrive pas ...

je sais je ne suis pas très claire ...

je vous joint un fichier, j'espère qu'il vous aidera

sur l'onglet "sheet2" en E7 j'ai besoin de récupérer la valeur qui se trouve en D7 de l'onglet "sheet1"
ainsi que sa couleur

le tout en vba

j'utilise la fonction VLookup mais je n'arrive pas à récupérer l'adresse de la valeur trouvée

Merci d'avance et n'hésitez pas si vous avez des questions

Pièce jointe 256110
20/03/2017, 19h38
78chris

Bonjour

La fonction EQUIV (MATCH) te donne la ligne et tu connais la colonne...

j'ai trouvé ce code mais il ne fonctionne pas ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function rechv(ValRech As String, TabRech As Range, Col As Integer, Exact As Boolean) As Double
 
Dim Val As String
Dim Couleur
Dim Ligne As Long
Dim Colonne As Integer
 
'déterminaison de val :
rechv = WorksheetFunction.VLookup(ValRech, TabRech, Col, Exact)
Ligne = WorksheetFunction.Match(ValRech, TabRech, 0)
Colonne = Col
Couleur = Cells(Ligne, Colonne).Interior.Color
 
MsgBox Couleur
 
End Function

J'ai trouvé !!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Function rechv(ValRech As String, TabRech As Range, Col As Integer, Exact As Boolean) As Double
 
Dim Val As String
Dim Couleur
Dim Ligne As Long
Dim Colonne As Integer
 
rechv = WorksheetFunction.VLookup(ValRech, TabRech, Col, Exact)
Ligne = WorksheetFunction.Match(ValRech, Sheets("Sheet1").Range("A:A"), 0)
Colonne = Col
Couleur = Sheets("Sheet1").Cells(Ligne, Colonne).Font.Color
 
Application.ActiveCell.Font.Color = Couleur
 
End Function

Bon
Voici la dernière mouture
lorsque je copiais la fonction dans plusieurs cellules la partie couleur ne fonctionnait pas
donc voici la rectification

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function rechv(valrech As String, ByRef tabrech As Excel.Range, Col As Integer, Exact As Boolean) As Variant
 
Dim Couleur
Dim Ligne As Long
Dim Colonne As Integer
Dim cellCaller As Excel.Range
 
rechv = WorksheetFunction.VLookup(valrech, tabrech, Col, Exact)
Ligne = WorksheetFunction.Match(valrech, Sheets("Sheet1").Range("A:A"), 0)
Colonne = Col
Couleur = Sheets("Sheet1").Cells(Ligne, Colonne).Font.Color
 
Set cellCaller = Application.Caller
cellCaller.Font.Color = Couleur
Set cellCaller = Nothing
 
End Function