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

houkmellah · 30 Janvier 2019

Bonjour tout le monde,

Je viens vers vous pour la demande d'une Macro affichage ordre d'une valeur déterminé dans la première ligne.

Exemple:
Première ligne comporte les valeurs : 1- Poids 2-Largeur 3-Hauteur
Je souhaite une macro qui me cherche la valeur "Hauteur" et me renvoie son ordre qui est "3"

Je vous remercie d'avance et je reste à votre disposition pour toute information complémentaire,
Cordialement,
Taha.

Robert · 30 Janvier 2019

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

Modeste geedee · 31 Janvier 2019

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 ?

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 !!!

houkmellah · 31 Janvier 2019

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 ?

Robert · 31 Janvier 2019

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

houkmellah · 31 Janvier 2019

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

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

Robert · 31 Janvier 2019

Re,

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

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

houkmellah

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

houkmellah

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

houkmellah

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

Discussions similaires