Discussion :

[Patrice740]

cela ne me donne rien

J'ai modifié le post précédent, lis-le et recommences

[Sake8216]

j'ai bien le message Box disant que la forme n'existe pas et pourtant elle existe .

[Patrice740]

Le problème est là :

C'est à dire que Sheets("BddCarte").Cells(l, 1).Value contient le nombre 97401 au lieu du texte 97401 !

[Sake8216]

je viens de changer en format texte est j'ai le même message

[Patrice740]

je viens de changer en format texte est j'ai le même message

C'est pas suffisant, regardes la variable locale.
La preuve :

Code :

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

1
2
3
Sub test()
  MsgBox Sheets("BddCarte").Cells(2, 1).Value & " est une variable de type " & TypeName(Sheets("BddCarte").Cells(2, 1).Value)
End Sub

Il faut aussi changer la valeur.

[Sake8216]

effectivement j'ai une valeur double, mais impossible de savoir ou elle est.

[Patrice740]

re,

Il faudrait prendre le temps de comprendre une simple ligne de code !

Tu ne sais pas où se trouve Sheets("BddCarte").Cells(2, 1).Value ????
C'est la cellule à l'intersection de la 2ème ligne et de la 1ère colonne, c'est-à-dire A2, de la feuille BddCarte !!!!!!!

[Sake8216]

je sais très bien et j'ai bien la bonne la valeur sur A2 a savoir 97401

[Patrice740]

je sais très bien et j'ai bien la bonne la valeur sur A2 a savoir 97401

Il me semble que tu ne sais pas différencier si le contenu d'une cellule est un nombre ou un texte.

C'est simple, il faut mettre l'alignement horizontal sur standard et élargir suffisamment la colonne :


Pour mettre le texte 97401 dans la cellule, il faut d'abord mettre la cellule au format Texte puis ressaisir le texte.
Ou encore, quel que soit le format de la cellule, dans une autre colonne saisir la formule =A2 & "" puis faire un copier et en A2 collage spécial - valeurs