Convertir une formule en VBA

[Ilino]

Bonjour Forum
je cherche a convertir la formule suivante en VBA est il possibl?

=RECHERCHE("zz";J3:J2013)

cette formule est dans la cellule J1

 

[vgendron]

Re : Convertir une formule en VBA

Hello
je crois qu'on t'a déjà répondu pour une autre formule...
faudrait essayer d'adapter, sinon utiliser l'enregistreur de macro

regarde la fonction find dans l'aide

 

[MichD]

Re : Convertir une formule en VBA

Bonjour,

Si tu veux obtenir une réponse directement dans la procédure :

X = [LOOKUP("zz",J3:J2013)]

Il est préférable d'ajouter le nom de l'onglet de la feuille
X = [LOOKUP("zz",Feuil1!J3:J2013)]

 

[xhudi69]

Re : Convertir une formule en VBA

bonjour Ilino, le Forum

En PJ, si cela convient.

EDIT:Bonjour Vgendron, MichD 😎 on s'est croisé
@+

 

[Ilino]

Re : Convertir une formule en VBA

Ciao Xhudi
Merci pour la réponse mais malheureusement ce n'est pas ce que je cherchais

 

[Ilino]

Re : Convertir une formule en VBA

Ciao Xhudi
Merci pour la réponse mais malheureusement ce n'est pas ce que je cherchais

je vous donne plus de détails :
j'ai une colonne J , dans le cellule J2 c'est le title de la colonne ,je souhaiterai afficher le contenu de la dernière cellule nonempty dans la cellue J1 ( automatiquement ) ??
merci

 

[xhudi69]

Re : Convertir une formule en VBA

Re Ilino

Domage tout dépend de ce que tu veux en faire, tout dépend dans quel contexte, comme nous n'avons pas de fichier exemple (habitude à prendre), nous te donnons ce qui nous tombe sous la main 😎

@+

 

[job75]

Re : Convertir une formule en VBA

Bonjour Ilino, le fil,

Ta formule donne le contenu de la dernière cellule occupée dans la plage.

En VBA on utilise plus classiquement cette manière de faire :

Sub recherche()
Dim c As Range
Set c = Feuil1.[J2014].End(xlUp) 'CodeName de la feuille
MsgBox c 'pour tester
End Sub

A+

 

[Ilino]

Re : Convertir une formule en VBA

Hello
je crois qu'on t'a déjà répondu pour une autre formule...
faudrait essayer d'adapter, sinon utiliser l'enregistreur de macro

regarde la fonction find dans l'aide

RE CI JOINT LE CODE ENREGISTRER

Sub CelNonVide()
Range("J1").Select
ActiveCell.FormulaR1C1 = "=LOOKUP(""zz"",R[2]C:R[2013]C)"
End Sub

EDIT : CIAO Maitre je n'ai pas vue ta proposition

 

[Ilino]

Re : Convertir une formule en VBA

Bonjour Ilino, le fil,

Ta formule donne le contenu de la dernière cellule occupée dans la plage.

En VBA on utilise plus classiquement cette manière de faire :

Sub recherche()
Dim c As Range
Set c = Feuil1.[J2014].End(xlUp) 'CodeName de la feuille
MsgBox c 'pour tester
End Sub

A+

Salut Maitre
Thinks Pour la réponse Je l'ai tentée mais .....😱

 

[vgendron]

Re : Convertir une formule en VBA

Meme problème. meme question..meme réponse
https://www.excel-downloads.com/threads/convertir-formulle-en-vba.200142/

 

[xhudi69]

Re : Convertir une formule en VBA

Re Ilino

Bonjour job75, toujours un plaisir 🙂

As-tu testé la solution de job75 😕😕

Ci-joint le fichier avec sa solution qui fonctionne très bien.

@+

 

[Ilino]

Re : Convertir une formule en VBA

Meme problème. meme question..meme réponse
https://www.excel-downloads.com/threads/convertir-formulle-en-vba.200142/

Re Vgendron
ci jont le code selon tes remarques et conseils

Sub CelNonVide()
Dim formule As String

formule = "=LOOKUP(""zz"",Feuil1!J3:J2013)"

Range(1, 10).FormulaLocal = formule
End Sub

 

[xhudi69]

Re : Convertir une formule en VBA

RE

Plutôt ceci:

Sub CelNonVide()
Dim formule As String
formule = "=LOOKUP(""zz"",Feuil1!J3:J2013)"
Range("J1").Value = formule
End Sub

@+

 

[Ilino]

Re : Convertir une formule en VBA

Re
merci Xhudi, Merci Job, Merci FORUM
ça fonctinne grazie
je suis désolé pour tous le monde ( je ne sais pas peut etre on s'approche de debut de semaine ????)