Probleme de VBA pour selection d'une carte

Citation:

---

Envoyé par Sake8216

cela ne me donne rien

---

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

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

Pièce jointe 555612

Le problème est là :
Pièce jointe 555620
C'est à dire que Sheets("BddCarte").Cells(l, 1).Value contient le nombre 97401 au lieu du texte 97401 !

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

Citation:

---

Envoyé par Sake8216

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:

---

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.

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


Pièce jointe 555668

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 !!!!!!!

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

Citation:

---

Envoyé par Sake8216

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 :
Pièce jointe 555720

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