Attribuer une colonne à une variable

Bonjour,

Etant un novice en Vb, j'avais une macro qui enregistré une liste de mot à supprimer, sauf que maintenant ma liste de mot se trouve sur ma feuille et j'aimerais adapté ma macro mais je n'y arrive pas, j'aimerais que la variables listeMotsSupprimer comprenne qu'il faut prendre A2:A mais ça ne marche pas, car il est de type variant et je ne sais pas quoi mettre à la plce et dans la boucle For il n'accepte que sous forme de tableau ou de collection mais je ne sais pas faire.

Dim listeMotsSupprimer As Variant
Set listeMotsSupprimer = Workbooks("fichier_test").Sheets("SupprimerMot").Range("A2:A")

For Each element In listeMotsSupprimer
    If dico.Exists(LCase(element)) Then dico.Remove LCase(element)
Next element

Merci

Bonjour,

à tester,

Dim listeMotsSupprimer As Range, rw As Long
With Workbooks("fichier_test").Sheets("SupprimerMot")
    rw = .Cells(Rows.Count, 1).End(xlUp).Row
    Set listeMotsSupprimer = .Range("A2:A" & rw)
End With

For Each element In listeMotsSupprimer
    If Dico.Exists(LCase(element)) Then Dico.Remove LCase(element)
Next element

i20100 a écrit :

Bonjour,

à tester,

Dim listeMotsSupprimer As Range, rw As Long
With Workbooks("fichier_test").Sheets("SupprimerMot")
    rw = .Cells(Rows.Count, 1).End(xlUp).Row
    Set listeMotsSupprimer = .Range("A2:A" & rw)
End With

For Each element In listeMotsSupprimer
    If Dico.Exists(LCase(element)) Then Dico.Remove LCase(element)
Next element

Ow, merci pour la rapidité, ça marche merci mais j'aurais juste une question pourquoi avoir mis "A2:A" & rw ? (j'essaie de comprendre le code)

pourquoi avoir mis "A2:A" & rw ? (j'essaie de comprendre le code)

il faut spécifier aussi la dernière ligne colonne A, c'est à dire de la ligne 2 à la ligne ?

pour trouver le numéro de la dernière ligne renseignée de la colonne A, j'ai utilisé la variable rw

rw = .Cells(Rows.Count, 1).End(xlUp).Row

autrement dit,

tu dis à Excel, va à la dernière ligne de la feuille et remonte la colonne A jusqu'à ce qu'il y ai une valeur et donne le numéro de ligne.

D'accord, merci beaucoup pour les explications.