FORMULE POUR MACRO

M12

XLDnaute Accro

• 26 Février 2017

• #2

Bonjour,
Avec un petit classeur exemple et les indications de ce que tu désires, c'est mieux

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2017

• #3

Bonjour à tous,

Une méthode simple:

• construire la formule dans la cellule où elle devra se trouver sur la feuille de calcul
• enregistrer une macro en cliquant sur le bouton dans la barre d'état au bas de la page
• sélectionner la cellule de la formule
• taper sur la touche de fonction F2 (on se retrouve dans la barre d’édition de formules)
• taper sur entrée (pour valider la formule)
  
• arrêter l'enregistrement de la macro
• dans le code VBA enregistré, on retrouve la syntaxe désirée

 

Pièces jointes

• a10- formule pour VBA- v1.xlsm

  22.7 KB · Affichages: 27

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 26 Février 2017

• #4

bonjour,

merci

Peux t on à partir du code VBA dans la macro, retrouver la formule dans la cellule ?

A+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2017

• #5

Re,

a10 à dit:

(...) Peux t on à partir du code VBA dans la macro, retrouver la formule dans la cellule ? (...)

Cliquez pour agrandir...

Je ne comprends pas la question ?

De quoi dispose-t-on en entrée ? Que veut on comme résultat ?

Publiez un petit fichier expliquant par un exemple ce que vous désirez.

A+

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 26 Février 2017

• #6

Bonjour,

Je voudrai savoir quel est la formule de :

"=COUNTIF(A!C1:C12,'B'!RC1&""R7"")"

A+

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 26 Février 2017

• #7

Re,

Code:

=NB.SI(A!$A:$L;B!$A5&"R7")

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 26 Février 2017

• #8

Bonjour,

comment trouver cela si facilement
=NB.SI(A!$A:$L;B!$A5&"R7") en partant de "=COUNTIF(A!C1:C12,'B'!RC1&""R7"")"

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 26 Février 2017

• #9

Bonsoir à tous.

Un essai...
Sélectionnez une cellule et exécutez ce code :

VB:

Sub xxx()
Dim x As Boolean
  x = Application.DisplayAlerts
  Application.DisplayAlerts = False

  ActiveCell.FormulaR1C1 = "=COUNTIF(A!C1:C12,'B'!RC1&""R7"")"

  ActiveCell.Value = "'" & ActiveCell.FormulaLocal
  Application.DisplayAlerts = x
End Sub

ℝOGER2327
#8505

Mercredi 4 Pédale 144 (Saint Michet, idéaliste - fête Suprême Quarte)
8 Ventôse An CCXXV, 8,2686h - violette
2017-W08-7T19:50:40Z

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 26 Février 2017

• #10

bonjour,

j'ai une macro:
=COUNTIF(A!C1:C12,'B'!RC1&""R7"")"

comment déchiffre ce code.
la réponse est :
=NB.SI(A!$A:$L;B!$A5&"R7")

a+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 26 Février 2017

• #11

Bonjour à tous,

Sans macro (mais la macro de ROGER2327 😉 est vraiment facile d'utilisation).
C'est bien plus long à expliquer qu'à faire 😛 (voir résumé dans le fichier)
Voir mode d'emploi dans le fichier joint.

 

Pièces jointes

• a10- formule pour VBA- v2.xlsm

  170.1 KB · Affichages: 22

Vote positif 0 Vote négatif