SI(ESTTEXTE en VBA

[peterguy]

Bonsoir à toutes et à tous,
Je cherche à placer la formule ESTTEXTE en VBA
En effet, je souhaite parcourir les cellules d'une plage censée ne contenir que des nombres, afin de vérifier si certaines cellules ne contiennent pas de texte (espace ou lettres)
Le code doit également me donner la référence de la cellule contenant du texte.
D'avance, merci à vous

 

[Efgé]

Re : SI(ESTTEXTE en VBA

Bonjour peterguy,
Il est toujours préférable de fournir un exemple pour éviter à tous le monde d'en créer un pour vérifier les codes....
Une proposition avec plage à adapter.

[COLOR=blue]Sub[/COLOR] nombres()
[COLOR=blue]For Each[/COLOR] C [COLOR=blue]In[/COLOR] Sheets("Feuil3").Range("A2:D6")
    [COLOR=blue]If Not[/COLOR] IsNumeric(C.Value) [COLOR=blue]Then[/COLOR] Var = Var & C.Address & vbLf
[COLOR=blue]Next[/COLOR] C
MsgBox Var
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[peterguy]

Re : SI(ESTTEXTE en VBA

Merci beaucoup Efgé, c'est exactement ce qu'il me fallait