Autres (RESOLU) Application.Match

[chaelie2015]

Bonjour Forum
Je souhaite avoir un descriptif sur ce code ,

i = Application.Match(cmbx_NuméroContrat, Sheets("BdD Projets").UsedRange.Columns(2), 0)

Merci par avance

 

[Dranreb]

Bonjour.

https://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=&cad=rja&uact=8&ved=2ahUKEwjjy_-Giu7tAhUPAWMBHf8mDXUQFjAAegQIAxAC&url=https%3A%2F%2Fdocs.microsoft.com%2Ffr-fr%2Foffice%2Fvba%2Fapi%2Fexcel.worksheetfunction.match&usg=AOvVaw1uas9ShnmoddSyTLsCUCy0

Tente donc d'affecter à i le numéro de la 1ère ligne de la colonne 2 de la plage utilisée de la feuille "BdD Projets" contenant la valeur de cmbx_NuméroContrat.
Ce qui peut tout à fait ne pas marcher, si ce sont des nombres …

 

[Staple1600]

Bonjour le fil

=>chaelie2015
Pourquoi ne pas être resté à la maison?

Autres - Récupérer une date (sans formule) dans une Textbox

Bonsoir Forum je souhaite récupérer une date dans cellule vers TextBox, selon ce code ça marche pas. .tbx_DateMESRéelle = Application.WorksheetFunction.VLookup(CLng(Me.cmbx_NuméroRéf), Sheets("BdD Projets").Range("source"), 10, 0) NB: dans cette cellule (cellule dans la colonne 10 dans un...

www.excel-downloads.com

 

[chaelie2015]

Bonjour Dranerb
merci pour le lien
bon week-end

 

[Jacky67]

Bonjour Forum
Je souhaite avoir un descriptif sur ce code ,

i = Application.Match(cmbx_NuméroContrat, Sheets("BdD Projets").UsedRange.Columns(2), 0)

Merci par avance

Bonjour à tous
Dans ce cas précis
Application.Match() en vba=Equiv() en feuille Excel
Cherche la valeur exact du combobox "cmbx_NuméroContrat" dans la feuille "BdD Projets", colonne "B"
i aura le N° de la première ligne trouvée.

 

[Staple1600]

Re

Précisions
"à la maison" voulant dire: dans le fil inititial
(avec un petit up qui eut pu suffire, non?)
Sinon puisque j'ai pondu dans mon VBE

Private Sub ComboBox1_Change()
Dim rng As Range
Set rng = Sheets("BdD Projets").Range("B:B")
i = Application.Match(CLng(ComboBox1), rng, 0)
TextBox1 = ComboBox1 & " est en : ligne N° " & i
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Array(1, 2, 3, 4, 5, 6)
End Sub

Dans mon classeur de test, j'ai des chiffres en colonne B
Et un userform avec un Combobox et un textBox

 

[Staple1600]

Re

Par contre avec du texte, point de CLng

Private Sub ComboBox1_Change()
Dim rng As Range
Set rng = Sheets("BdD Projets").Range("B:B")
i = Application.Match(ComboBox1, rng, 0)
TextBox1 = ComboBox1 & " est en : ligne N° " & i
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Array("AA", "BB", "CC", "DD", "EE")
End Sub

 

[chaelie2015]

Bonjour à tous
Dans ce cas précis
Application.Match() en vba=Equiv() en feuille Excel
Cherche la valeur exact du combobox "cmbx_NuméroContrat" dans la feuille "BdD Projets", colonne "B"
i aura le N° de la première ligne trouvée.

Bonjour jacky67
merci pour cette explication.
a+

 

[chaelie2015]

Re

Par contre avec du texte, point de CLng

Private Sub ComboBox1_Change()
Dim rng As Range
Set rng = Sheets("BdD Projets").Range("B:B")
i = Application.Match(ComboBox1, rng, 0)
TextBox1 = ComboBox1 & " est en : ligne N° " & i
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Array("AA", "BB", "CC", "DD", "EE")
End Sub

 

[chaelie2015]

Bonjour JM
MERCI pour ces réponses.
bon week-end