XL 2016 Traduire une formule Excel en macro

Staple1600

XLDnaute Barbatruc

• 23 Octobre 2016

• #2

Bonsoir à tous

Lucko
La réponse est oui

Une question est pourquoi faire?

Une autre : pourquoi n'as-tu pas joint un fichier exemple?

Et une dernière pour la route: As-tu essayé l'enregistreur de macros?

EDITION: Bonsoir Hieu

 

Dernière édition: 23 Octobre 2016

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 23 Octobre 2016

• #3

Un essai :

VB:

Sub macro1()
For i = 1 To 24
    toto = IIf(WorksheetFunction.CountIf(Range("E11:P12"), i) > 1, i, "")
Next i

End Sub

Et pour la macro 2 :

VB:

Sub macro2()
For i = 1 To 12
    toto = IIf(Range("d9").Offset(i, 0) >= Range("Q8"), Range("d8").Offset(i, 0), "")
Next i
End Sub

Je suis convaincu que ce n'est pas c que tu veux, mais sans fichier excel, difficile de deviner ^^

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 23 Octobre 2016

• #4

Salut Staple !!
J'veux pas paraitre impoli !! ^^

 

Vote positif 0 Vote négatif

L

Lucko

Guest

• 24 Octobre 2016

• #5

Bonsoir Staple1600 et Hieu,

Réponse pour l'inspecteur Clouseau dit Staple1600😉

Ci-joint le fichier. Un oubli.
Pour compiler des statistiques selon le pourcentage.
Avec l'enregistreur cela ne fonctionne pas à mon goût...
d'où mon besoin d'aide par des plus futés que moi!!!!!

 

Pièces jointes

• NBSI.xlsm

  15.1 KB · Affichages: 73

Vote positif 0 Vote négatif

L

Lucko

Guest

• 24 Octobre 2016

• #6

Bonjour à tous,

Je relance la discussion avec, cette fois-ci, un fichier. Je n'ai pas été capable de faire fonctionner les macros de Hieu dans mon fichier. Merci

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 24 Octobre 2016

• #7

Bonjour tous,

Je n'ai pas compris le rendu voulu ?!

 

Vote positif 0 Vote négatif

L

Lucko

Guest

• 24 Octobre 2016

• #8

Hieu à dit:

Bonjour tous,

Je n'ai pas compris le rendu voulu ?!

Cliquez pour agrandir...

Bonjour Hieu,

Si je n'utilise pas une macro pour nb.si , la formule s'affiche dans la cellule. Je ne peux pas trier la ligne sans que les formules soit triées en même temps d'où l'utilité d'une macro pour la fonction nb.si. Le rendu voulu c'est que seule la valeur s'affiche et non les formules:
=SI(NB.SI($E$11:$P$12;1)>1;1;"")
=SI(NB.SI($E$11:$P$12;2)>1;2;"")
=SI(NB.SI($E$11:$P$12;3)>1;3;"")
.
.
.
=SI(NB.SI($E$11:$P$12;24)>1;24;"")

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 24 Octobre 2016

• #9

Quelle cellule est censée faire par exemple :

Lucko à dit:

=SI(NB.SI($E$11:$P$12;1)>1;1;"")

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

L

Lucko

Guest

• 24 Octobre 2016

• #10

Hieu à dit:

Quelle cellule est censée faire par exemple :

Cliquez pour agrandir...

Je cherche à afficher sur une même ligne les doublons. Les numéros sont répartis sur deux lignes de 12 cellules. Si 1 ou 2 ou 3 etc est présent sur les deux lignes alors je le transcris sur une autre ligne, celle du haut dans mon fichier. Ma formule NB.si fonctionne bien mais lorsque je fais le tri de la ligne pour aligner les numéros du plus petit au plus grand sur la ligne, les formules aussi sont triées. C'est pour cela que je cherche à faire une sorte de copier-coller uniquement des numéros afin de ne pas laisser les formules dans chaque cellules. qui sont de 1 à 24.

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 24 Octobre 2016

• #11

Bonjour à tous,

amha, le vrai fichier est très loin de la présentation montrée ici , comme souvent d'ailleurs ...
j'entends déjà la réponse 🙂
P.

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 24 Octobre 2016

• #12

...
Pas sûr d'avoir compris

 

Pièces jointes

• NBSI_v0.xlsm

  19.2 KB · Affichages: 66

Vote positif 0 Vote négatif

L

Lucko

Guest

• 24 Octobre 2016

• #13

Hieu à dit:

...
Pas sûr d'avoir compris

Cliquez pour agrandir...

Oui. Merci Hieu. Ça fonctionne. Moi aussi je n'étais pas sûr de m'avoir compris...!🙂

 

Vote positif 0 Vote négatif