[E-VBA] incompatibilité de type

Bonjour,

Mon code est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9

Dim CelluleCourante As Range Dim NuméroSuppressionAdhérent As Variant Dim Compteur As Integer Set CelluleCourante = Range("B2") Compteur = 2 While CelluleCourante.Value <> NuméroSuppressionAdhérent Set CelluleCourante = CelluleCourante.Offset(1,0) Compteur = Compteur +1 Wend

---

Ce qui se passe est la chose suivante : Si le contenu de CelluleCourante est une chaine alphanumérique, la valeur est trouvée, NuméroSuppressionAdhérent étant considéré comme une chaîne, mais, si son contenu est un entier, sa valeur n'est pas trouvée, et j'ai un dépassement de capacité sur la variable Compteur.

CelluleCourante peut contenir des chaines ou des entiers.

Y-a-t-il un moyen autre de forcer CelluleCourante à ne contenir que des chaines alphanumériques ?

Merci de votre aide

Re bonjour,

Dans la description de mon problème, j'ai oublié de vous dire que la variable "NuméroSuppressionAdhérent" est affectée via une TextBox.

Encore merci de votre aide.

bonjour
ta valeur de "comparaison" est de type string (textbox.value) essaye de
convertir ta valeur de cellule

Code:

---

1 2	variable = cells(1,1).value variable = cstr(variable)

---

Merci beaucoup PatBou, votre solution répond à mon problème.

A bientôt sur le Forum.