XL 2021 RechercheV avec 4 critères (vba)

YohanSC · 4 Novembre 2023

Bonjour,

J'ai un problème de compréhension sur une écriture VBA pour rechercher sur base de plusieurs critères .
Est-ce que je dois utiliser une autre méthode que rechercheV?
Voici le code qui fonctionne avec une variable mais j'aimerais afficher la valeur sur base de 4 variables et dès qu'il trouve un concordance il affiche la bonne valeur ou il se rapproche le plus de la valeur3 :

Set myrange0 = ThisWorkbook.Sheets("Données").Range("A1:F1000")
Set valeur0 = Range("B2")
Set valeur1 = Range("B3")
Set valeur2 = Range("B4")
Set valeur3 = Range("B5")

Set recherche = Range("A9")

recherche.Value = Application.WorksheetFunction.VLookup(valeur & valeur1, myrange0, 6, False)

Fonction Match peut-etre?

Merci de votre aide

Yohan

sylvanu · 4 Novembre 2023

Bonjour Yohann,
Un petit fichier test serait bien utile.
Votre code est trop parcellaire pour comprendre la logique.
Que vaut "valeur" ?
Comment sont organisées les données ? Sur quelles lignes rechercher ?

YohanSC · 4 Novembre 2023

Bonjour Sylvanu,

Voici le fichier en pièce jointe, ce sera en effet nettement plus simple.

Bonne journée,

sylvanu · 4 Novembre 2023

Re,
Un essai en PJ avec une fonction perso :

VB:

Function Recherche4(Source, Plage)
Recherche4 = "": Dim i%, Tablo, Critères
Tablo = Source: Critères = Plage
For i = 1 To UBound(Tablo)
    If Tablo(i, 1) = Critères(1, 1) And Tablo(i, 2) = Critères(2, 1) And _
        Tablo(i, 3) = Critères(3, 1) And Tablo(i, 4) = Critères(4, 1) Then
        Recherche4 = Tablo(i, 6)
        Exit Function
    End If
Next i
End Function

la synatxe est : '=Recherche4(Plage de données;Plage de critères)

Phil69970 · 4 Novembre 2023

Bonjour à tous

A la bourre sur la même vague idée mais sans fonction

Ma version

Merci de ton retour

YohanSC · 4 Novembre 2023

merci beaucoup !

La fonction marche parfaitement !

Phil69970 · 4 Novembre 2023

@YohanSC
Je suis invisible ?

Phil69970 à dit:
Merci de ton retour

YohanSC · 4 Novembre 2023

Phil69970 à dit:
@YohanSC
Je suis invisible ?

Merci pour ton retour aussi.
Sorry pour le délai

YohanSC · 4 Novembre 2023

Je suis occupé d'avancer dans le classeur pour la sauvegarde et je coince dans le copier/coller.
Pourquoi?
Car je copie des valeurs en colonne pour les mettre en ligne à la suite en colonne "A".

Je souhaiterais conserver la mise en page mais pas possible de copier/coller ""colonnes"" vers ""lignes"".

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lDestLastRow As Long

Set wsCopy = Sheets("Feuil1")
Set wsDest = Sheets("Données")

lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
wsCopy.Range("B2:B7").Copy
wsDest.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Merci encore ...

sylvanu · 4 Novembre 2023

Re,
Un essai avec :

VB:

Sub CopieColle()
With Sheets("Données")
    DL = 1 + .Cells(Cells.Rows.Count, "A").End(xlUp).Row
    .Range("A" & DL & ":F" & DL) = Application.Transpose([B2:B7])
End With
End Sub

YohanSC · 4 Novembre 2023

Quelle rapidité

Merci beaucoup

XL 2021 RechercheV avec 4 critères (vba)

YohanSC

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

YohanSC

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

YohanSC

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

YohanSC

XLDnaute Nouveau

YohanSC

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

YohanSC

XLDnaute Nouveau

Discussions similaires