recherchev en vba !?

[Novice avance !?]

Bonsoir,

exise-t'il une fonction recherchev en VBA ?
et si oui comment l'utiliser !?

merci et bones fêtes de Pâques à tous

 

[Novice avance !?]

Re : recherchev en vba !?

en fichier joint un petit testet vous verrez un peu l'idée et l'objet de ma question dans le code du combobox du USF !?

encore merci

 

[Lord Nelson]

Re : recherchev en vba !?

Salut,

RechercheV correspond à VLookup en VBA. Voici un exemple :

Range("B7") = WorksheetFunction.VLookup(Range("A7"), Range("A1:B3"), 2, 0)

Dans les parenthèses, tu as les mêmes éléments que RechercheV :
VLookup(Valeur cherchée, Plage, N° de colonne, 0)

A+
Horatio

 

[Novice avance !?]

Re : recherchev en vba !?

Salut,

Range("B7") = WorksheetFunction.VLookup(Range("A7"), Range("A1:B3"), 2, 0)

Dans les parenthèses, tu as les mêmes éléments que RechercheV :
VLookup(Valeur cherchée, Plage, N° de colonne, 0)

Horatio

merci
en utilisant les Range ça fonctionne nickel mais si je veux remplacer les ranges par des valeurs de combobox ça bloque...comme par exemple

de D1 à D8 on a de 1 à 8
de E1 à E8 on a des NOMS, PRENOMS ou autre

dans un USF on a combobox1 qui permet de choisir de 1 à 8
on a un Label1 qui affiche la valeur choisie du combobox1

label1.caption=combobox1.value

et j'aimerais un label2.caption=WorksheetFunction.VLookup(label1.caption, Range("D1:E8"), 2, 0)

mais cela bloque !?

Où est le problème !?

merci

 

[Novice avance !?]

Re : recherchev en vba !?

ayé j'ai trouvé

merci...bonne soirée

 

[Novice avance !?]

Re : recherchev en vba !?

voici le code si cela peut intéresser quelqu'un !? Au cas où !? 😉

Private Sub ComboBox1_Change()
Dim nom As Integer
Dim result As String
Label1.Caption = ComboBox1.Value
nom = ComboBox1.Value
result = WorksheetFunction.VLookup(nom, Range("D1:E8"), 2, 0)
Label2.Caption = result
End Sub

 

[jp14]

Re : recherchev en vba !?

Bonjour

Une autre approche pour résoudre ce type de problème

Déclarer un "combobox" avec deux ou plus colonnes, la largeur étant égale à zéro pour la deuxième et suivante
Dans cette colonne stocker les données
Quand on sélectionne une valeur de la première colonne on affiche la valeur de la deuxième colonne.

Ci dessous un exemple ou stocke les données de la colonne suivante, l'adresse de la cellule, et le nom de la feuille excel ( utile dans le cas ou on récupère des donnéees de feuilles différente)

Private Sub UserForm_Initialize()
Dim cellule As Range
With ComboBox1
.ColumnCount = 4
.ColumnWidths = "90;90;0;0"
.Style = fmStyleDropDownList '
.BoundColumn = 1 ' combobox1.text contient le nom
.ColumnHeads = True



For Each cellule In Sheets(nomfeuille1).Range(debplag1 & Range("a65536").End(xlUp).Row)
    If cellule.Value <> "" Then
        .AddItem cellule.Value
        .List(.ListCount - 1, 1) = cellule.Offset(0, 1).Value
        .List(.ListCount - 1, 2) = cellule.Address(0, 0) 
        .List(.ListCount - 1, 3) = nomfeuille1
        
    End If
Next cellule
End With

'pour afficher

Private Sub ComboBox1_Change()
If ComboBox1.TopIndex = -1 Then Exit Sub
TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub

JP

 

[hasnaa1192]

Re : recherchev en vba !?

bonjour ,
je veux ajouter des colonnes à un fichier via une recherchev en vba, mais je me suis heurtée à une petite difficulté: la valeur recherchée dans ma rcherchev ne saute pas de ligne!!!!! comment je peut écrire la valeur recherché???

voici le code et merci pour votre aide

Sub ajoutcolonnes()
For i = Range("k65536").End(xlUp).Row To 2 Step -1
If Cells(i, 11).Value <> "" Then
Cells(i, 24).FormulaLocal = "=RECHERCHEV(valeur recherchée;matrice;nb;faux)"
End If
Next
End Sub