Discussion :

[lucarno]

Bonjour,

Mon code est le suivant :

Code :

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

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

[lucarno]

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.

[patbou]

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

Code :

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

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

[lucarno]

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

A bientôt sur le Forum.