Probleme de nombre avec une macro

Bonjour

J'ai une macro qui me permet de ressortir des éléments d'une liste, mais quand ma valeur de recherche est un nombre ma commande ne fonctionne pas

voici ma commande

Private Sub CommandButton1_Click()
REFPOINT = TextBox1.Value
Range("B2").Select
Do Until ActiveCell.Value = REFPOINT
        ActiveCell.Offset(1, 0).Range("A1").Select       
    If ActiveCell.Value = "" Then
        MsgBox "CE DEPARTEMENT N'EST PAS PRESENT...", vbExclamation
    Exit Do
    End If
Loop      
    If ActiveCell.Value = REFPOINT Then
    MOYENNE
    End If
End Sub

Sub MOYENNE()
REFPOINT = TextBox1.Value
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long 
  Sheets("Feuil2").Activate ' feuille de destination
  Col = "B"                 ' colonne de la donnée non vide à tester
  NumLig = 1
  With Sheets("Feuil1")     ' feuille source
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 1 To NbrLig
    If .Cells(Lig, Col).Value = REFPOINT Then      
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Cells(NumLig, 1).Select
      ActiveSheet.Paste
    End If
  Next
  End With
  End Sub

Bonsoir,

remplace la variable

Dim Col As String

par As Integer

Pas été + loin, tu ne dis pas o­ù se situe l'erreur

Amicalement

Claude

dubois a écrit :

Bonsoir,

remplace la variable

Dim Col As String

par As Integer

Pas été + loin, tu ne dis pas o­ù se situe l'erreur

Amicalement

Claude

Sa ne doit pas être sa.

Je me sers déjà de cette commande, pour sortir des données d'un classeur vers un autre.

Donc dans une texbox d'un Userform, je mets la valeur de ce que je veux extraire.

Quand cette valeur est un texte, ou un texte et un nombre, sa fonctionne correctement.

Par contre maintenant je veux mettre des chiffres, et il ne trouve pas les chiffres.

-- 27 Sep 2010, 21:23 --

Le problème vient en fait que je recherche un nombre. La texbox qui me permet d'entrer la valeur que je recherche ne doit pas avoir un nombre. Donc entre le nombre de la texbox et le nombre de la cellule il doit y voir une difference, ce qui ne permet pas a ma commande de le nombre.

Avez vous une solution pour que dans ma texbox il sagit du même format de nombre, que celui de ma cellule.