STXT + un SI (et plus si affinité)

Question

J'ai dans ma cellule D4 un nombre qui sera toujours de 10 chiffres, j'ai besoin d'isoler le 6ième chiffre en partant de la gauche, j'ai testé une formule qui fonctionne bien =STXT(D4;5;1) mais je voudrais utiliser le résultat pour inscrire dans la cellule H4 un "F" ou un "G" car ce chiffre si il est compris entre 1 et 4 c'est un Garçon et entre 5 et 0 c'est une Fille. Le problème (car il y en a un autre) j'ai un bouton "effacer" sur la page qui a tendance à effacer les formules qui sont dans cette page. Il y a déjà des macros dans ce classeur, classeur que je vous soumettrais aussi car c'est une récup que j'ai modifié et certaines choses ne fonctionnent plus comme avant. Je vous mets le classeur en PJ si quelqu'un se sens le courage d'y faire quelques choses.Tout est indiqué sur la page "essai". Merci à vous tous, les pros d'Excel...

dubois · Answer

Pour ta formule "sexe" en H4 =SI(STXT(DROITE(D4;5);1;1)&gt;="5";"Garçon";"Fille") à tirer vers le bas (le zéro n'est pas compté), c'est pourquoi je pars de la droite. pour le reste, je ne sais pas faire Amicalement Claude...

dubois · Answer

Re, Je n'ai pas l'habitude des UseForm, mais ta formule était effacée par: Private Sub CommandButton1_Click() 'ActiveSheet.Unprotect Range("B4:M100").Select Selection.ClearContents je te propose de remplacer ce code par: Private Sub CommandButton1_Click() 'ActiveSheet.Unprotect Range("B4:g100,i4:m100").ClearContents Range("A3").Activate 'ActiveSheet.Protect With Sheets("Class") .Activate '.Unprotect .Range("B100").ClearContents .Range("B2").avtivate '.Protect End With Sheets("Essai").Activate UserForm1.Hide End Sub on efface pas la colonne H la formule devient en H4 =SI(D4="";"";SI(STXT(DROITE(D4;5);1;1)&gt;="5";"Garçon";"Fille")) évite les Select dans le codes Claude...