mettre Formule excel en VbaRésolu

Question

Bonjour,
je desire mettre une formule excel en Vba
ex:
Private sub Button_Click()
dim  nom as string

ma formule excel  = OFFSET(C1;MATCH(G19;C2:C20;0);1))

nom = ...
 end sub 
merci d'avance

cs_MPi · Accepted Answer

L'équivalent n'existe pas vraiment sous VBA
Ta formule contient 2 choses:
1- recherche d'une valeur de la colonne G, soit G19, dans la colonne C
2- afficher la cellule voisine en D

Voici comment je procéderais
    Dim Recherche As Range
    Dim Nom
    
    ' équivalent à Match
    ' recherche la valeur en G19 dans la colonne C
    Set Recherche = Columns("C:C").Find(Range("G19"))
            ' ou Set Recherche = Range("C2:C20").Find(Range("G19"))

    If Not Recherche Is Nothing Then
        ' équivalent à Offset Excel
        Nom = Range(Recherche.Address).Offset(0, 1)  'valeur en D
        MsgBox Nom
    End If

MPi

cs_MPi · Answer

Peux-tu être plus clair ?

Où veux-tu mettre cette formule ?
    dans une cellule ? laquelle ?
    dans une plage de cellules ?  lesquelles ?
    l'utiliser dans ton code VBA ? donc créer l'équivalent ?

MPi

lispo · Answer

oui c'est crée l'équivalent en Vba

Molenn · Answer

Si je ne me trompe pas, tu peux utiliser la formule Equiv directement en VBA, en utilisant : 
Worksheetfunction.match

Par contre, la formule Decaler ( ou Offset) n'existe pas, tu es donc obligé de la créer toi-même, mais ce n'est pas très compliqué.

Molenn

Mettre Formule excel en Vba

4 réponses

Votre réponse

Discussions similaires