XL 2021 Conversion de formules XL imbriquées en VBA

Jacques SPAGNOL · 2 Mai 2023

Bonjour le forum, je bute sur cette conversion de formule en VBA ( qui fonctionne en XL) pour me faire un retour sur un numéro de colonne
=RECHERCHEX('Semaine'!C3;'BdD2023'!62:62;COLONNE('BdD2023'!62:62))
edit
en fait la formule est destinée à alimenter une variable dans une macro et pas une cellule d'où mon petit problème

merci d'avance

job75 · 3 Mai 2023

Cela dit en nommant la cellule et la plage c'est plus simple :

VB:

Sub RechercheXColonne()
    Dim valeurTrouvee As Variant
    Sheets("Semaine").Range("C3").Name = "valeurRecherchee" 'cellule nommée
    Sheets("BdD2023").Range("62:62").Name = "plageRecherche" 'plage nommée
    valeurTrouvee = Application.Evaluate("XLOOKUP(valeurRecherchee,plageRecherche,COLUMN('BdD2023'!2:2))")
    Debug.Print valeurTrouvee
End Sub

Gégé-45550 · 2 Mai 2023

Jacques SPAGNOL à dit:
Bonjour le forum, je bute sur cette conversion de formule en VBA ( qui fonctionne en XL) pour me faire un retour sur un numéro de colonne
=RECHERCHEX('Semaine'!C3;'BdD2023'!62:62;COLONNE('BdD2023'!62:62))

merci d'avance

Bonjour,
si j'ai bien compris :

VB:

macellule.FormulaLocal = "=XLOOKUP(Semaine!C3,'BdD2023'!62:62,COLUMN('BdD2023'!62:62))"

Cordialement,

Jacques SPAGNOL · 2 Mai 2023

Gégé-45550 à dit:
Bonjour,
si j'ai bien compris :

VB:

macellule.FormulaLocal = "=XLOOKUP(Semaine!C3,'BdD2023'!62:62,COLUMN('BdD2023'!62:62))"

Cordialement,

merci pour ta réponse, mais en fait la formule est destinée à alimenter une variable dans une macro et pas une cellule d'où mon petit problème ....

Compte Supprimé 979 · 2 Mai 2023

Bonjour le fil

@Jacques SPAGNOL Peut-être ainsi

VB:

MaVariable = Application.Evaluate("XLOOKUP(Semaine!C3,'BdD2023'!62:62,COLUMN('BdD2023'!62:62))")

a+

job75 · 2 Mai 2023

Bonjour,

@BrunoM45 => pourquoi Application.Evaluate ? Evaluate (ou des crochets) suffit.

A+

Compte Supprimé 979 · 2 Mai 2023

Salut job75

Parce que je préfère toujours travailler avec les objets

Avantage pour certaines choses, l'auto-indentation

Au plaisir

Jacques SPAGNOL · 2 Mai 2023

Merci à tous objectif atteint,

Jacques SPAGNOL · 2 Mai 2023

Re,
en voulant intégrer la réponse proposée avec quelques variables je suis confronté à une :
" incompabilité de type"
un avis ?
Cdt Jacques

VB:

Sub RechercheXColonne()

    Dim valeurRecherchee As Integer     ' numéro de semaine
    Dim plageRecherche As Range
    Dim plageValeursRetour As Range
    Dim valeurTrouvee As Integer           'numéro de colonne 
    
    ' Définir la valeur à rechercher
    valeurRecherchee = Sheets("Semaine").Range("C3").Value
    
    ' Définir la plage de recherche (ligne 62)
    Set plageRecherche = Sheets("BdD2023").Range("62:62")
    
    ' Définir la plage contenant les valeurs de retour (ligne 2)
    Set plageValeursRetour = Sheets("BdD2023").Rows(2)

'    ' Effectuer la recherche X
'    valeurTrouvee = Application.Evaluate("XLOOKUP(Semaine!C3,'BdD2023'!62:62,COLUMN('BdD2023'!2:2))")
 
    ' Effectuer la recherche X
    valeurTrouvee = Application.Evaluate("XLOOKUP(valeurRecherchee ,plageRecherche ,COLUMN('BdD2023'!2:2))")
  

Debug.Print valeurTrouvee
End Sub

job75 · 2 Mai 2023

valeurTrouvee peut être une valeur d'erreur non ?

Donc déclarez cette variable As Variant.

Jacques SPAGNOL · 2 Mai 2023

job75 à dit:
valeurTrouvee peut être une valeur d'erreur non ?

Donc déclarez cette variable As Variant.

bonsoir,
ça me renvoi : Erreur 2029

job75 · 3 Mai 2023

Bonjour,

Il faut aussi que la formule à évaluer soit interprétable donc au lieu de :

VB:

valeurTrouvee = Application.Evaluate("XLOOKUP(valeurRecherchee ,plageRecherche ,COLUMN('BdD2023'!2:2))")

écrivez :

VB:

valeurTrouvee = Application.Evaluate("XLOOKUP(" & valeurRecherchee & "," & plageRecherche.Address & ",COLUMN('BdD2023'!2:2))")

A+

job75 · 3 Mai 2023

Cela dit en nommant la cellule et la plage c'est plus simple :

VB:

Sub RechercheXColonne()
    Dim valeurTrouvee As Variant
    Sheets("Semaine").Range("C3").Name = "valeurRecherchee" 'cellule nommée
    Sheets("BdD2023").Range("62:62").Name = "plageRecherche" 'plage nommée
    valeurTrouvee = Application.Evaluate("XLOOKUP(valeurRecherchee,plageRecherche,COLUMN('BdD2023'!2:2))")
    Debug.Print valeurTrouvee
End Sub

Jacques SPAGNOL · 3 Mai 2023

job75 à dit:

Cela dit en nommant la cellule et la plage c'est plus simple :

VB:

Sub RechercheXColonne()
    Dim valeurTrouvee As Variant
    Sheets("Semaine").Range("C3").Name = "valeurRecherchee" 'cellule nommée
    Sheets("BdD2023").Range("62:62").Name = "plageRecherche" 'plage nommée
    valeurTrouvee = Application.Evaluate("XLOOKUP(valeurRecherchee,plageRecherche,COLUMN('BdD2023'!2:2))")
    Debug.Print valeurTrouvee
End Sub

Bonjour Job75 et le forum, et surtout merci pour votre apport ça me permet d'avancer dans mon projet mais aussi d'acquérir de nouvelles connaissances.
cdt Jacques

XL 2021 Conversion de formules XL imbriquées en VBA

Jacques SPAGNOL

XLDnaute Nouveau

job75

Gégé-45550

XLDnaute Accro

Jacques SPAGNOL

XLDnaute Nouveau

Compte Supprimé 979

Guest

job75

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Jacques SPAGNOL

XLDnaute Nouveau

Jacques SPAGNOL

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Jacques SPAGNOL

XLDnaute Nouveau

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Jacques SPAGNOL

XLDnaute Nouveau

Discussions similaires