Compter les 0 en début de cellules comme caractère

Salut tout le monde,

Voilà je suis bloqué sur un truc, je m'explique.

Dans une cellule je tape un numéro à 9 caractères

Puis je clique sur un bouton afin de pouvoir chercher ce chiffre dans ma base de données et de me l'afficher.

Si le numéro tapé ne contient pas 9 caractères alors un message de blocage apparait.

C'est là où est mon problème. Quand mon numéro commence par un 0 ou 00 ou encore 000, alors mon message de blocage apparaît.

Comment puis je faire pour que Excel compte les 0 en début comme des caractères ?

Merci

Bonjour

Puis je clique sur un bouton afin de pouvoir chercher ce chiffre dans ma base de données et de me l'afficher

Peux-tu joindre un fichier pour voir le Code affecté à ton bouton?

Cordialement

Salut,

tout d'abord merci

Voici le code affecter au bouton

Sub RechercheNb()
'Déclarations et affectations
Dim CelSirenCherché As Range
Dim Longueur As Integer
Set CelSirenCherché = Worksheets("consultation").Range("H4")
'Mettre des messages si nombre comporte - de 9 chiffres ou + de 9 chiffres
Longueur = Len(CelSirenCherché.Value)
If Not Longueur = 9 Then
MsgBox "Le nombre saisi doit comporter 9 chiffres", , "Siren inexact"
End If
End Sub

Bonjour

Ne peux tu mettre H4 au format Texte?

ou

Au format Nombre personnalisé (Avec neuf 0)?

000000000

ou

remplacer ta Macro et ton bouton par une validation de données

Cordialement

Salut Amadéus,

Merci de ta réponse

J'avais déjà essayé la validation, mais ça ne marche pas (Excel ne tient pas compte des 0 en début de cellule)

je viens d'essayer le "personnalisé" mais le message s'affiche kan même

Bonjour

1) La validation de donnée fonctionne correctement si ta cellule est au format Texte

2) De même pour ta macro

La ligne à modifier

Longueur = Len(CelSirenCherché.value)

par

Longueur = Len(CelSirenCherché.Text)

Cordialement

Bonjour,

Essaye te code suivant qui est ton code modifié :

Sub RechercheNb()
    'Déclarations et affectations
    Dim CelSirenCherché As String
    Dim Longueur As Integer
    CelSirenCherché = WorksheetFunction.Text(Worksheets("consultation").Range("H4"), "000000000")
    'Mettre des messages si nombre comporte - de 9 chiffres ou + de 9 chiffres
    Longueur = Len(CelSirenCherché)
    If Not Longueur = 9 Then
        MsgBox "Le nombre saisi doit comporter 9 chiffres", , "Siren inexact"
    End If
End Sub

Salut Raja,

Ohhh merci beaucoup,

J'avais pas vu ta réponse depuis le temps...

Je ne cherchais plus, j'étais désespérée

Merci encore