Equivalence de RechercheV en VBA

tonyhv · 6 Juillet 2008

Bonjour à tous(tes)

Comment rempacler la fonction RECHERCHEV par du VBA.
je souhaiterais replacer les formules de la feuille Choix par du BVA de façon a n'avoir que des données dans la feuille, plus tard j'intergrerais le code dans un uf. Et comme j'utilise beaucoup RCHERCHEV je pourais utiliser ce code dans d'autres appli. Je joint un morceau de mon fichier test.

Merci

Staple1600 · 6 Juillet 2008

Re : Equivalence de RechercheV en VBA

Bonjour

Une méthode possible (et instructive)

Utiliser l'enregistreur de macro
(puis modifier le code)

Ici exemple pour les formules de la colonnes B (feuille Choix)

Effaces les formules

Puis lance la macro ci-dessous

Code:

Sub Macro3()
Dim Fin As Long
Fin = [A65536].End(xlUp).Row
Range("B9").FormulaR1C1 = "=IF(AND(R3C5=1),IF(RC1<>"""",(R[-2]C+1)),"""")"
With Range("B10:B" & Fin)
.FormulaR1C1 = "=IF(AND(R3C5=1),IF(RC1<>"""",(R[-1]C+1)),"""")"
End With
End Sub

tonyhv · 6 Juillet 2008

Re : Equivalence de RechercheV en VBA

Merci JM?

Je teste sa tout de suite

Staple1600 · 6 Juillet 2008

Re : Equivalence de RechercheV en VBA

Re

Voici la suite

Ici tu peux effacer les formules en B9:B30
et en D9:F30

Puis copie le code ci-dessous et lance la macro.

Code:

Sub Macro2()
Dim Fin As Long
Fin = [A65536].End(xlUp).Row
Range("B9").FormulaR1C1 = _
    "=IF(AND(R3C5=1),IF(RC1<>"""",(R[-2]C+1)),"""")"
    With Range("B10:B" & Fin)
        .FormulaR1C1 = _
        "=IF(AND(R3C5=1),IF(RC1<>"""",(R[-1]C+1)),"""")"
    End With
    With Range("D9:D" & Fin)
        .FormulaR1C1 = _
        "=IF(OR(R3C5=1),VLOOKUP(RC1,Base!C1:C45,3,),"""")"
    End With
    With Range("E9:E" & Fin)
        .FormulaR1C1 = _
        "=IF(OR(R3C5=1),VLOOKUP(RC1,Base!C1:C45,4,),"""")"
    End With
    With Range("F9:F" & Fin)
        .FormulaR1C1 = _
        "=IF(OR(R3C5=1),VLOOKUP(RC1,Base!C1:C45,9,),"""")"
    End With
End Sub

tonyhv · 6 Juillet 2008

Re : Equivalence de RechercheV en VBA

Sa marche super bien, je vais pouvoir faire les deux autres tableaux en changeant ma variable, Quelle est la fonction pour suprimer toutes les formules sans etre obligé de faire un coper / collage spécial ?
merci

Equivalence de RechercheV en VBA

tonyhv

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

tonyhv

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

tonyhv

XLDnaute Nouveau

Discussions similaires