Bonjour à tous, Cette macro compare le choix d'une listbox avec le contenu d'une colonne, mais le problème vient que dans cette colonne il y aussi du texte et je n'arrive pas à comparer un nombre avec du texte : Exemple : dans la userform, on choisit le nombre 123, et dans la colonne il existe des cellules avec du texte, la condition ne marche pas.
Je pense que c'est un problème au niveau des déclarations (a ?)
Dim maplage As Range Dim Tab_RECO As Variant Dim n As Long, i As Long, a As Long
Marsh Posté le 20-10-2009 à 10:35:56
Bonjour à tous,
Cette macro compare le choix d'une listbox avec le contenu d'une colonne, mais le problème vient que dans cette colonne il y aussi du texte
et je n'arrive pas à comparer un nombre avec du texte :
Exemple : dans la userform, on choisit le nombre 123, et dans la colonne il existe des cellules avec du texte, la condition ne marche pas.
Je pense que c'est un problème au niveau des déclarations (a ?)
Dim maplage As Range
Dim Tab_RECO As Variant
Dim n As Long, i As Long, a As Long
Range("A1" ).Select
Selection.CurrentRegion.Select
ActiveWorkbook.Names.Add Name:="Ttab1", RefersToR1C1:= _
"=Feuil1!R1C1:R559C27"
Set maplage = Range("Ttab1" )
n = maplage.Rows.Count 'n : nombre de lignes dans la base
i = 1
a = 2
For i = 2 To n
With maplage.Rows(a)
test = Cells(a, 4)
If Cells(a, 4) <> Num Then 'ligne, colonne
Rows(a).Delete
a = a - 1
End If
a = a + 1
End With
Next i
End sub
Merci de votre aide