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