XL 2016 Recherchev

[dav59]

Bonjour les amis
je cherche comment mettre la formule recherchev en macro
car je dois importer l'onglet DAV , selon les modifications d'un autre PC
l'onglet DAV change toutes les semaine ,donc les formule sont effacer
je vous joint un exemple du fichier
Merci

 

[sylvanu]

Bonjour DAV,
Un essai en PJ avec :

Sub Formules_Colonnes_B_et_C()
    Application.ScreenUpdating = False
    DL = [A65500].End(xlUp).Row
    Range("B5:B" & DL).FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'DA1'!R4C1:R30C2,2,0),"""")"
    Range("C5:C" & DL).FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-2],'DA1'!R4C1:R30C3,3,0),"""")"
    Range("B5:C" & DL) = Range("B5:C" & DL).Value ' Si on ne veut conserver que les valeurs sans les formules
End Sub

 

[dav59]

je viens d'essayer la macro sa fonction
je vous remercie beaucoup
je pourrai avancer sur le dossier
Merci

 

[oguruma]

bjr
plusieurs pistes....
oublies le recherchev
tu le remplaces soit par la combinaison index+equiv soit tu utilises la fonction recherchex
si tu veux automatiser tout ceci est ne conserver que les valeurs après application d'une formule quelle qu'elle soit j'ai déposé dans le forum un utilitaire RTV :: Range To Value avec du code VBA. en exemple tu peux t'en inspirer pour résoudre ton problème
"quand un homme a faim il vaut mieux lui apprendre à pêcher plutôt que de lui donner à manger" Confucius