Comparer une liste

Comparer une liste - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 20-10-2009 à 10:35:56   

Reply

Marsh Posté le 20-10-2009 à 11:13:14    

Voir les fonctions CStr(), CInt(), CDbl(), Val() qui permettent de convertir les données d'un type à l'autre.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed