XL 2010 Macro affichage ordre d'une valeur dans la première ligne

Robert

XLDnaute Barbatruc

Repose en paix

• 30 Janvier 2019

• #2

Bonsoir Taha, bonsoir le forum,

Peut-être comme ça :

VB:

Sub Macro1()
Dim R As Range

Set R = Rows(1).Find("Hauteur", , xlValues, xlWhole)
If Not R Is Nothing Then MsgBox R.Column
End Sub

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 31 Janvier 2019

• #3

houkmellah à dit:

Merci Robert pour ta réponse, j'ai essaie le code mais rien ne s'affiche. Peux-tu me donner modifier la macro afin qu'elle affiche la valeur de R dans la cellule B5 ?

Cliquez pour agrandir...

et si tu nous mettais en situation un fichier avec les cellules et le résultat attendu ?
pas besoin de macro … la cellule qui contient le texte "hauteur" ne bouge pas !!!

 

Vote positif 0 Vote négatif

H

houkmellah

XLDnaute Nouveau

• 31 Janvier 2019

• #4

Merci Robert pour ta réponse, le code marche parfaitement . Peux-tu me donner modifier la macro afin qu'elle affiche la valeur de R dans la cellule B5 ?

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Janvier 2019

• #5

Bonjour le fil, bonjour le forum,

VB:

Sub Macro1()
Dim R As Range

Set R = Rows(1).Find("Hauteur", , xlValues, xlWhole)
If Not R Is Nothing Then Range("B5").Value=R.Column
End Sub

 

Vote positif 0 Vote négatif

H

houkmellah

XLDnaute Nouveau

• 31 Janvier 2019

• #6

Robert à dit:

Bonjour le fil, bonjour le forum,

VB:

Sub Macro1()
Dim R As Range

Set R = Rows(1).Find("Hauteur", , xlValues, xlWhole)
If Not R Is Nothing Then Range("B5").Value=R.Column
End Sub

Cliquez pour agrandir...

Bonjour Robert, Bonjour le forum,

Désolé de te dérange une dernière demande stp, je veux que cette valeur je l'intègre dans la fonction VLookupResult = WorksheetFunction.vlookup(LookupValue, TableArray, ColumnIndex, False) autant que ColumnIndex mais je n'arrive pas à le faire 🙁

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Janvier 2019

• #7

Re,

T'as essayé : VLookupResult = WorksheetFunction.vlookup(LookupValue, TableArray, R.Column, False) ?

 

Vote positif 0 Vote négatif