Autres (RESOLU) Application.Match

chaelie2015 · 27 Décembre 2020

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 · 27 Décembre 2020

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 · 27 Décembre 2020

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 · 27 Décembre 2020

Bonjour Dranerb
merci pour le lien
bon week-end

Jacky67 · 27 Décembre 2020

chaelie2015 à dit:
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 · 27 Décembre 2020

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

VB:

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 · 27 Décembre 2020

Re

Par contre avec du texte, point de CLng

VB:

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 · 27 Décembre 2020

Jacky67 à dit:
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 · 27 Décembre 2020

Staple1600 à dit:

Re

Par contre avec du texte, point de CLng

VB:

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 · 27 Décembre 2020

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

Autres (RESOLU) Application.Match

chaelie2015

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

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

chaelie2015

XLDnaute Accro

Jacky67

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Discussions similaires