Contrôle chiffre ou lettre dans une cellule

Tibo

XLDnaute Barbatruc

• 11 Janvier 2008

• #2

Re : Contrôle chiffre ou lettre dans une cellule

Bonsoir,

Un essai avec LIGNE, INDIRECT et une pincée de SOMMEPROD :

en B1 :

Code:

=SI(SOMMEPROD(((ESTNUM(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1))
=VRAI)*1);"CHIFFRE";"LETTRE")

Y doit y avoir moyen de faire plus court, mais pas trop le temps.

En tout cas ça marche. A tester quand même.

@+

 

Vote positif 0 Vote négatif

B

bertgrav

XLDnaute Occasionnel

• 11 Janvier 2008

• #3

Re : Contrôle chiffre ou lettre dans une cellule

merci tibo

je voudrais réaliser ce contrôle en VBA, j'ai réussi un code mais c'est un peu tiré par les cheveux, en fait je contrôle caractere par caractere si c'est ou pas du numérique, je suis persuadée qu'il y a nettement plus simple

Sub Chiffre_lettre2()
Dim I As Integer, Text As String, Car As String

fin = Range("a65536").End(xlUp).Row
For x = 1 To fin
y = 0
Text = Range("a" & x).Value
For I = 1 To Len(Text)
Car = Mid(Text, I, 1)

If IsNumeric(Car) Then
Range("b" & x).Value = "chiffre"
y = y + 1
End If

Next
If y = 0 Then Range("b" & x).Value = "lettre"
Next
End Sub

merci

chantal

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Janvier 2008

• #4

Re : Contrôle chiffre ou lettre dans une cellule

Bonjour Chantal, Tibo

essaye peut être comme ceci :

Code:

Option Explicit
Sub test()
Dim c As Range, i As Byte
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    For i = 1 To Len(c.Value)
        If IsNumeric(c.Characters(i, 1).Text) Then c.Offset(0, 1).Value = "chiffre"
    Next i
Next c
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

B

bertgrav

XLDnaute Occasionnel

• 11 Janvier 2008

• #5

Re : Contrôle chiffre ou lettre dans une cellule

respect pierrot !!!!!

c'est bon, c'est court, ça marche, et c'est exactement ce que je demande

bonne soirée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 12 Janvier 2008

• #6

Re : Contrôle chiffre ou lettre dans une cellule

Bonjour Chantal, Tibo

en un peu plus court et plus rapide, évite la 2ème boucle :

Code:

Option Explicit
Sub test()
Dim c As Range, i As Byte
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    If c.Value Like "*[0-9]*" Then c.Offset(0, 1).Value = "chiffre"
Next c
End Sub

bon week ebd.
@+

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 12 Janvier 2008

• #7

Re : Contrôle chiffre ou lettre dans une cellule

Bonjour,

Pour le fun, une formule un peu plus courte que celle proposée hier :

Code:

=SI(ESTNUM(EQUIV(9^9;(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)));
"CHIFFRE";"LETTRE")

Formule toujours matricielle (CTRL + MAJ + ENTREE)

Bon app

Bon WE à tous

@+

 

Vote positif 0 Vote négatif