Code VBA à la place d'une formule

Bonjour,

Je suis a la recherche d'un code VBA à la place d'une formule.

Code:

---

=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 de belotte 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

Max

Bonjour,
Déjà je serais très étonné que dans une plage référencée $C$3:$C$6 la formule NBVAL te renvoie une valeur supérieure à 4
Pour remplacer cette formule, je te conseille la création d'une table à 2 colonnes nommée par exemple dbTable dont la première colonne est triée par ordre croissant.
Où tu aurais
Colonne1|Colonne2
0|=""
4|Première table
8|Deuxième table
12|Troisième table
16|Quatrième table
etc ...
La formule qui remplacera efficacement cette suite de SI est RECHERCHEV

Code:

---

=RECHERCHEV(NBVAL(C3:C50);dbTable;2)

---

Bonjour,
Ecrire en D3 la formule :

Code:

---

=SI(MOD(LIGNE();4)=3;QUOTIENT(LIGNES($C$3:C3);4)+1;"")

---

Recopier vers le bas dans la colonne D.
Sélectionner la plage D3 : D82 (ou D3 : Dn n étant la dernière ligne remplie dans la colonne D) et demander le format personnalisé :
[=1]0" ère table";0" ème table"
Cordialement
Claude

Bonjour papouclo

Je te remercie sa marche très bien mais j'aimerais juste une petite modif si possible.
Dans le cas ou il n'y a pas de nom dans les cellules "C" j'aimerai que rien ne s'inscrive dans la colonne "D"
Exemple: si j'ai tiré la formule vers le bas jusque la ligne 150 et que la dernière ou il y a des noms dans la "C" s’arrête à la ligne 100 j'aimerai que rien ne s'inscrive après la ligne 100?

D'avance merci pour ton aider.

Cordialement
Max

Re,
Remplacer en D3 la première formule proposée par :

Code:

---

=SI(OU(MOD(LIGNE();4)<3;ESTVIDE(C3));"";QUOTIENT(LIGNES($C$3:C3);4)+1)

---

Cordialement
Claude

Re,

Je te remercie sa fonctionne nickel.

Bonne soirée

Max

Bonjour,

Suite au code qui a été réaliser par papouclo que je salut et remercie au passage.

J'essaye depuis ce matin de modifier le code sans résultat! pour le passer en "D2"

Code:

---

=SI(OU(MOD(LIGNE();4)<2;ESTVIDE(C2));"";QUOTIENT(LIGNES($C$2:C2);4)+1)

---

Si quelqu’un à une idée je le remercie d'avance

Cordialement

Max