formule à écrire en VBA

[pascal21]

bonjour à tous
afin d'alléger un classeur qui contient des centaines de lignes avec des fonctions recherchev
je souhaite modifier un peu la chose
comment écrire en VBA la chose suivante:
5eme colonne à droite de la cellule active cette formule

=SI(C6="";"";RECHERCHEV(D6;'base de données'!B$2:F$2000;5;0))

C6 étant la cellule active
j'ai du mal avec les formules écrites depuis le vba
merci

 

[Victor21]

Re : formule à écrire en VBA

Bonjour, Pascal.

Aves-vous essayé :

Worksheets("Sheet1").Range("I6").Formula = "=SI(C6="";"";RECHERCHEV(D6;'base de données'!B$2:F$2000;5;0))"

 

[Robert]

Re : formule à écrire en VBA

Bonjour le fil, bonjour le forum,

Peut-être comme ça :

ActiveCell.Value = IIf(Range("C6").Value = "", "", Application.WorksheetFunction.VLookup(.Range("D6"), Sheets("base de données").Range("B2:F2000"), 5, 0))

 

[pascal21]

Re : formule à écrire en VBA

merci à vous deux, je vais tester

 

[JNP]

Re : formule à écrire en VBA

Bonjour le fil 🙂,
Ne voulais-tu pas dire, Robert

ActiveCell.Value = IIf(ActiveCell.Value = "", "", Application.WorksheetFunction.VLookup(ActiveCell.Offset(0, 1), Sheets("base de données").Range("B2:F2000"), 5, 0))

Bonne suite 😎

 

[Robert]

Re : formule à écrire en VBA

Bonjour le fil, bonjour le forum,

Bien sûr JNP ! Mais je sais pas pourquoi je me suis dit que ça allait créer une référence circulaire... Comme quoi ma co...rie n'as plus de limites.

 

[JNP]

Re : formule à écrire en VBA

Re 🙂,

Bien sûr JNP ! Mais je sais pas pourquoi je me suis dit que ça allait créer une référence circulaire... Comme quoi ma co...rie n'as plus de limites.

Mais non, mais non, c'était juste l'heure de l'apéro 😛 !
Bonne soirée 😎