Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel formule dans une macro

formule dans une macro

2 réponses
Avatar
btrivero
Bonjour,
à l'interieur d'une macro, je voudrais poser une formule (rechercheV) dans
la cellule "P"
si et seulement si la cellule A est non vide.
ilme semble que cela doit être possible

merci pour votre réponse
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Dav
Bonsoir

Voici ma proposition :
Valeur cible en A1 de la feuille "Feuil1" et valeur résultante en P1
Macro inséré dans "Feuil1" régissant à la modification de la feuille.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Sheets("Feuil1").Range("A1") = "" Then
Sheets("Feuil1").Range("P1") =
Evaluate("=RECHERCHEV(Valeur_cherchée; table_matrice; no_index_col;
[valeur_proche])")
Else: Sheets("Feuil1").Range("P1") = ""
End If
End Sub

Dis nous si cela te convient!

Dav
"btrivero" a écrit dans le message de
news:46eaab7d$0$25912$
Bonjour,
à l'interieur d'une macro, je voudrais poser une formule (rechercheV) dans
la cellule "P"
si et seulement si la cellule A est non vide.
ilme semble que cela doit être possible

merci pour votre réponse



Avatar
btrivero
bonjour,
j'ai combiné ta solution avec une autre solution
pour arriver à une macro qui marche pil-poil
je te livre le résultat:
------------------------------------------------------------------
Sub ()

' der = Range("a1000").End(xlUp).Row

Range("a1").Select

While ActiveCell.Row <= der

If Range("a" & ActiveCell.Row) <> "" Then

Range("p" & ActiveCell.Row).Select



ActiveCell.FormulaR1C1 =
"=VLOOKUP(RC[-15],Feuil2!C[-15]:C[-13],2,0)"



ActiveCell.Offset(1).Select

End If

Wend

End Sub

--------------------------------------------------------------------------------------
je pense que cela doit marcher pour toute autre formule

merci pour ton aide
cordialement
Benoit


"Dav" a écrit dans le message de news:

Bonsoir

Voici ma proposition :
Valeur cible en A1 de la feuille "Feuil1" et valeur résultante en P1
Macro inséré dans "Feuil1" régissant à la modification de la feuille.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Sheets("Feuil1").Range("A1") = "" Then
Sheets("Feuil1").Range("P1") =
Evaluate("=RECHERCHEV(Valeur_cherchée; table_matrice; no_index_col;
[valeur_proche])")
Else: Sheets("Feuil1").Range("P1") = ""
End If
End Sub

Dis nous si cela te convient!

Dav
"btrivero" a écrit dans le message de
news:46eaab7d$0$25912$
Bonjour,
à l'interieur d'une macro, je voudrais poser une formule (rechercheV)
dans la cellule "P"
si et seulement si la cellule A est non vide.
ilme semble que cela doit être possible

merci pour votre réponse