Modifier une Formule

[maval]

Bonjour

Je suis a la recherche d'un code VBA qui remplacerais cette formule que j'ai commencer :

=SI($C3="";"";SI(NBVAL($C$3:$C6)=4;"1 éme table";SI(NBVAL($C$3:$C6)=8;"2 éme table";SI(NBVAL($C$3:$C6)=12;"3 éme table";SI(NBVAL($C$3:$C6)=16;"4 éme table";SI(NBVAL($C$3:$C6)=20;"5 éme table";SI(NBVAL($C$3:$C6)=24;"6 éme table";SI(NBVAL($C$3:$C6)=28;"7 éme table";SI(NBVAL($C$3:$C6)=32;"8 éme table";SI(NBVAL($C$3:$C6)=36;"9 éme table";SI(NBVAL($C$3:$C6)=40;"10 éme table";"")))))))))))

Ayant 50 tables je me suis arrêter à la 10 éme vue la longueur de la formule.
Peut-on remplacer cette formule par un code VBA ou avoir une formule beaucoup plus simple?

D'avance merci à qui pourra m'aider.
Cordialement

Maval

 

[david84]

Re : Formule transformomer en VBA

Bonjour,
si j'ai bien compris, formule à placer en D3 et à tirer vers le bas :

=SI(MOD(LIGNE(1:1);4)=1;(LIGNE(1:1)-1)/4+1&" table";"")

A+

 

[maval]

Re : Formule transformomer en VBA

Bonjour David

je te remercie mais si je n'ai pas de nom dans la colonne "C" je ne doit rien avoir en colonne "D"?

J’espère que je me suis bien expliquer?

@+
Max

 

[david84]

Re : Formule transformomer en VBA

Re

je te remercie mais si je n'ai pas de nom dans la colonne "C" je ne doit rien avoir en colonne "D"?

Tu n'as qu'à rajouter

=SI(C3<>"";la formule;"")

Sinon, autre possibilité :

=SI(MOD(LIGNE(1:1);4)=1;(LIGNE(1:1)-1)/4+1;"")

et utiliser un format de cellule pour table au singulier ou au pluriel

[<2]#" table"_s;#" tables"

A+

 

[maval]

Re : Formule transformomer en VBA

Re,

J'ai rentré ceci et sa ne fonctionne pas?

=SI(C3<>""(MOD(LIGNE(1:1);4)=1;(LIGNE(1:1)-1)/4+1&" table";"")

@+
Max

 

[david84]

Re : Formule transformomer en VBA

Re
Si tu ne comprends pas une formule, décompose-là :
tu as ta formule initiale en D3. Place-toi en E3 et utilise la fonction SI(test_logique;valeur_si_vrai;valeur_si_faux).
Ce qui donne donc =SI(C3<>"";D3;"").
Si tu avais fait cela, ton erreur t'aurait sauté aux yeux : chaque argument doit être séparé par un ";", ce qui n'est pas le cas dans la formule de ton message#5...
A+

 

[maval]

Re : Modifier une Formule

Bonjour a tous

Voila j'ai modifier ma formule en mettant 50 tables de 4 joueurs

Voici la formule au complet :

=SI($C3="";"";SI(NBVAL($C$3:$C6)=4;"1 éme table";SI(NBVAL($C$3:$C6)=8;"2 éme table";SI(NBVAL($C$3:$C6)=12;"3 éme table";SI(NBVAL($C$3:$C6)=16;"4 éme table";SI(NBVAL($C$3:$C6)=20;"5 éme table";SI(NBVAL($C$3:$C6)=24;"6 éme table";SI(NBVAL($C$3:$C6)=28;"7 éme table";SI(NBVAL($C$3:$C6)=32;"8 éme table";SI(NBVAL($C$3:$C6)=36;"9 éme table";SI(NBVAL($C$3:$C6)=40;"10 éme table";SI(NBVAL($C$3:$C6)=44;"11 éme table";SI(NBVAL($C$3:$C6)=48;"12 éme table";SI(NBVAL($C$3:$C6)=52;"13 éme table";SI(NBVAL($C$3:$C6)=56;"14 éme table";SI(NBVAL($C$3:$C6)=60;"15 éme table";SI(NBVAL($C$3:$C6)=64;"16 éme table";SI(NBVAL($C$3:$C6)=68;"17 éme table";SI(NBVAL($C$3:$C6)=72;"18 éme table";SI(NBVAL($C$3:$C6)=76;"19 éme table";SI(NBVAL($C$3:$C6)=80;"20 éme table";SI(NBVAL($C$3:$C6)=84;"21 éme table";SI(NBVAL($C$3:$C6)=88;"22 éme table";SI(NBVAL($C$3:$C6)=92;"23 éme table";SI(NBVAL($C$3:$C6)=96;"24 éme table";SI(NBVAL($C$3:$C6)=100;"25 éme table";SI(NBVAL($C$3:$C6)=104;"26 éme table";SI(NBVAL($C$3:$C6)=108;"27 éme table";SI(NBVAL($C$3:$C6)=112;"28 éme table";SI(NBVAL($C$3:$C6)=116;"29 éme table";SI(NBVAL($C$3:$C6)=120;"30 éme table";SI(NBVAL($C$3:$C6)=124;"31 éme table";SI(NBVAL($C$3:$C6)=128;"32 éme table";SI(NBVAL($C$3:$C6)=132;"33 éme table";SI(NBVAL($C$3:$C6)=136;"34 éme table";SI(NBVAL($C$3:$C6)=140;"35 éme table";SI(NBVAL($C$3:$C6)=144;"36 éme table";SI(NBVAL($C$3:$C6)=148;"37 éme table";SI(NBVAL($C$3:$C6)=152;"38 éme table";SI(NBVAL($C$3:$C6)=156;"39 éme table";SI(NBVAL($C$3:$C6)=160;"40 éme table";SI(NBVAL($C$3:$C6)=164;"41 éme table";SI(NBVAL($C$3:$C6)=168;"42 éme table";SI(NBVAL($C$3:$C6)=172;"43 éme table";SI(NBVAL($C$3:$C6)=176;"44 éme table";SI(NBVAL($C$3:$C6)=180;"45 éme table";SI(NBVAL($C$3:$C6)=184;"46 éme table";SI(NBVAL($C$3:$C6)=188;"47 éme table";SI(NBVAL($C$3:$C6)=192;"48 éme table";SI(NBVAL($C$3:$C6)=196;"49 éme table";SI(NBVAL($C$3:$C6)=200;"50 éme table";"")))))))))))))))))))))))))))))))))))))))))))))))))))

Seul petit problème a la fin de ma liste les quatre derniers joueur de la liste ont toujours marqué le N° de la table

ci-joint mon fichier pour exemple.

D'avance merci à qui pourra m'aider.
Cordialement

Maval

 

[david84]

Re : Modifier une Formule

Bonjour,

Peut-on remplacer cette formule par un code VBA ou avoir une formule beaucoup plus simple?

juste pour comprendre : pourquoi demander de l'aide sur le forum pour finalement reprendre ta formule du début (1931 caractères et aucune adaptabilité) alors que la formule que je te propose (54 caractères sans nécessité de la compléter si l'on augmente le nombre de tables) donne le même résultat ?
Il doit y avoir quelque chose qui m'échappe (ce n'est pas possible autrement)...
A+
Edit : salut Jean-Claude ! Je n'ai pas osé parlé de cette proposition encore plus courte (45 caractères) parce que je suis dit que l'utilisation du format de cellule compliquerait peut-être la tâche de maval...

 

[JCGL]

Re : Modifier une Formule

Bonjour à tous,

Avec la formule de l'ami David 😉

A + à tous

 

[maval]

Re : Modifier une Formule

Bonjour JC

Je te remercie et te souhaite un bon dimanche

Max