Tirer une formule sur VBA

Bonjour,

J'ai effectué une recherchev sur VBA et j'aimerais que celle-ci se "tire" lorsqu'il y a une référence en B12, B13, B14 etc... sur excel.

Comment pourrais-je faire?

Voici ma rechercheV:

With ActiveSheet

.Range("B12").Formula = "=VLookup(A12, Catalogue!A2:B100, 2, False)"

End With

Merci pour votre aide

Bonjour,

regardes du coté de AutoFill :

Sub Test()

    Dim Cel As Range

    Set Cel = Range("B12")

    Cel.Formula = "=VLookup(A12, Catalogue!$A$2:$B$100, 2, False)"

    'tire sur les 5 cellules au dessous (jusqu'à B17)
    Cel.AutoFill Range(Cel, Cel.Offset(5))

End Sub

Mais si je fais comme ça et si je n’ai rien en A13 par exemple alors cela m’affiche #N/A sur Excel.

Je ne sais pas comment faire pour que la formule s’applique uniquement quand il y a quelque chose dans la colonne ?

bonjour

salut au passage Theze

menu Données, créer une liste (fonction à apprendre par coeur et à utiliser tout le temps ! )

ensuite les formules qui sont dans cette liste sont automatiquement créées par Excel quand on ajoute une ligne

sans VBA

magie

si besoin, joins un peeeeetit fichier de 3 colonnes et 5 lignes

amitiés à tous

Bonjour,

Joins un petit à ta demande, pour une aide adaptée.

Cdlt.

jmd, Jean-Eric

Utilises SiErreur() dans la formule :

Sub Test()

    Dim Cel As Range

    Set Cel = Range("B12")

    Cel.Formula = "=IFERROR(VLOOKUP(A12, Catalogue!$A$2:$B$100, 2, False),"""")"

    'tire sur les 5 cellules au dessous (jusqu'à B17)
    Cel.AutoFill Range(Cel, Cel.Offset(5))

End Sub