XL 2021 Conversion de formules XL imbriquées en VBA

[Jacques SPAGNOL]

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

 

[Gégé-45550]

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 :

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

Cordialement,

 

[Jacques SPAGNOL]

Bonjour,
si j'ai bien compris :

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]

Bonjour le fil

@Jacques SPAGNOL Peut-être ainsi

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

a+

 

[job75]

Bonjour,

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

A+

 

[Compte Supprimé 979]

Salut job75

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

Avantage pour certaines choses, l'auto-indentation

Au plaisir

 

[Jacques SPAGNOL]

Merci à tous objectif atteint,

 

[Jacques SPAGNOL]

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

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]

valeurTrouvee peut être une valeur d'erreur non ?

Donc déclarez cette variable As Variant.

 

[Jacques SPAGNOL]

valeurTrouvee peut être une valeur d'erreur non ?

Donc déclarez cette variable As Variant.

bonsoir,
ça me renvoi : Erreur 2029

 

[job75]

Bonjour,

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

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

écrivez :

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

A+

 

[job75]

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

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]

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

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