Si cellule contient (sans tenir compte de l'ordre)

Question

Je cherche à repérer en colonne A les numéros de téléphone erronés. J'aimerai en VBA, réussir à faire: si la cellule contient au moins huit zero alors inscrire KO en colonne B =&gt; l'ordre des 0 n'a aucune importance et du coup quand je fais if instr (1, Cells (i,1), "00000000""=1 then cells (i;2)="Ko" je rate des numéros de tel erronés... Avez vous des idées? De même j'aimerai pouvoir repérer les numéros commençant par plus 33 (ce que j'arrive à faire avec in leftcell) mais j'aimerai ensuite pouvoir remplacer le +33 par 0 mais je n'ai pas encore trouver de code... Merci pour votre aide...

Darzou · Answer

Pour compter les 0: aTab = Split(Range("A1"), "0") If UBound(aTab) &gt;= 8 Then Range("B1") = "KO" Pour le reste... range("a1") = replace(range("a1"),"+33","0") Cdt, Darzou...