formule

[MIKEFLY62]

Bonjour,

Supposons des cellules d'une colonne A comprenant des nombres à 4 chiffres j'aimerais une formule en colonne B face a chaque cellule qui me reponde par "VRAI" a la condition que chaque chiffre du nombre (unité,dizaine,centaine,ou millier) soit inferieur à 7 mais different de 0 .

En resume : si elle rencontre un 0 ou un 7,8,9 dans le nombre elle me reponde automatiquement par "FAUX"

Pour une reponse "vrai" cellule contenant les nombres (1123,5543,2345,4145,3642.....)

Pour une reponse "faux" cellule contenant les nombres(7011,1712,2874,1118,3302,9225....)

Je ne sais pas comment intégrer toutes ces conditions dans la même formule.

Merci beaucoup de votre coup de pouce...

 

[Compte Supprimé 979]

Re : formule

Salut Mikefly62,

Pas besoin de conditions, juste d'opérateurs de comparaison

Si to nombre est dans la cellule A1,
colle cette formule ou tu veux sur la même ligne

=ET(ET(STXT(A1;1;1)<"7";STXT(A1;1;1)>"0");ET(STXT(A1;2;1)<"7";STXT(A1;2;1)>"0");ET(STXT(A1;3;1)<"7";STXT(A1;3;1)>"0");ET(STXT(A1;4;1)<"7";STXT(A1;4;1)>"0"))

Voilà A+

 

[Robert]

Re : formule

Bonsoir Mikefly, bonsoir le forum,

Par formule je ne sais pas faire mais je te propose une macro qui pourraît convenir :

Sub Macro1()
Dim cel As Range 'déclare la variable cel
Dim x As Byte 'déclare la variable x
 
'boucle 1 sur toutes les cellules éditées de la colonne A
For Each cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
 
    For x = 1 To 4 'boucle 2 sur les quatre chiffres du nombre
 
        'condition : si le chffre est égale à zéro ou supérieur à 7
        If Mid(cel.Value, x, 1) = 0 Or Mid(cel.Value, x, 1) > 6 Then
            cel.Offset(0, 1).Value = "FAUX" 'écris "FAUX" dans la cellule à droite
            Exit For 'sort de la boucle2
        Else 'sinon
            cel.Offset(0, 1).Value = "VRAI" 'écrit "VRAI"dans la celule à droite
        End If 'fin de la condition
 
    Next x 'prochain chiffre du nombre
 
Next cel 'prochaine cellule de la boucle
End Sub

Édition :

Bonsoir Bruno on s'est croisé. Vous m'épatez les formulistes !

 

[MIKEFLY62]

Re : formule

Extra !!! Bruno


merci beaucoup de ton aide

Robert merci de ta reponse mais VB pas mon sport peut etre un jour


Bonne soiree a vous 2

 

[Monique]

Re : formule

Bonjour,

Ou bien comme ça :
=SOMMEPROD(ESTNUM(TROUVE({0;7;8;9};A1))*1)=0

 

[Compte Supprimé 979]

Re : formule

Salut Monique,

Toujours là pour nous trouver une bonne petite formule matricielle

Faudra que tu me dises un jour comment tu fais !

Salut Robert,
J'sais pas si tu as vu la formule à Monique, mais moi à chaque fois je suis scotché

A+