Discussion :

[Runsh63]

Bonjour,

Je travaille à partir d'extrait de Grands Livres comptables qui sont assez mal articulés et dont seules les lignes dont la première colonne contient les numéros de compte me sont utiles à exploiter. Problème, il y a des vides, du texte, etc... et donc je dois nettoyer tout ça. J'ai trouvé une formule à la con, qui consiste à repérer les chiffres de ce qui n'en est pas via cette formule (les comptes sont en colonne A) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(GAUCHE(A25;1)<>"0";GAUCHE(A25;1)<>"1";GAUCHE(A25;1)<>"2";GAUCHE(A25;1)<>"3";GAUCHE(A25;1)<>"4";GAUCHE(A25;1)<>"5";GAUCHE(A25;1)<>"6";GAUCHE(A25;1)<>"7";GAUCHE(A25;1)<>"8";GAUCHE(A25;1)<>"9");"X";"")

Alors pas de problèm, ça marche. Ma question est est-ce qu'il existe une formule plus simple pour repérer les cellules dont le contenu est numérique / alphanumérique ?

Merci d'avance !

Runsh

[ben_ghost]

tu appuis sur Alt + F11
ensuite dans la fenêtre de gauche :
tu fais un clic droit sur ton projet
insertion >> Module

Dans le nouveau module tu colles la fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Public Function EstNumerique(ByVal Cellule As Range) As Boolean
    If Isnumeric(Cellule.Value) Then
        EstNumerique = True
    Else
        EstNumerique = False
    End If
End Function

tu sauvegardes et ferme Visual

Puis dans excel, dans ta cellule tu mets désormais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(estnumerique(B1);"Oui";"Non")

En gros tu peux créer tes propres formules. Les régles sont simple :
- avoir activer les macros (et donc avoir vérifier le niveau de sécurité)
- Créer une fonction public qui renvoie un boolean
- avoir un type range en entrée de la fonction

[Runsh63]

J'en reste sans voix...
Excellent, y'a pas d'autres mots... Merci, ça marche à merveille !
Le seul développement que je fais sous VBA, je passe par l'enregistreur puis j'adapte mais c'est mer**que. Je n'aurais jamais votre niveau (à vous ou d'autres experts). En tout cas encore mille merci, très pratique ce bout de code !

Bonne journée !

Runsh (très content)

[pijaku]

Bonjour,
Je me demande l'utilité de créer, via VBA, une formule "est numerique" puisqu'elle est déjà présente dans Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 =ESTNUM(A1) renvoie VRAI ou FAUX...

[ben_ghost]

Bin je suis pas sur que cette formule existe à toute les versions....

Nan je plaisante

En fait, je la connaissait pas cette fonction mais au moins j'ai fais découvrir la possibilité de personnalisé les formules