Erreur 438 sur code VBA Fermé

Question

Bonjour je suis débutante en utilisation de code VBA est j'ai du mal à comprendre d'où viennent mes erreurs.

Je cherche a faire une liste en cascade qui se met automatiquement à jour.

Ci-dessous la partie du code qui me pose problème avec en gras les niveaux où on m'affiche une erreur 438 c'est à partir du moment où je commence à faire la 2ème partie de la liste en cascade


ligne = ligne - 1
Sheets("ville").Select
Set plage = Range(Cells(2, 1), Cells(ligne, 2))
plage.Select


ActiveSheet.Range(Cells(2, 1), Cells(ligne, 2)).RemoveDuplicates Columns:=1, Header:=xlNo


ActiveWorkbook.Worksheets("ville").Sort.SortFields.Clear
'ActiveWorkbook.Worksheets("ville").Sort.SortFields.Add Key:=Range("A2").SortOn = xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal


With ActiveWorkbook.Worksheets("ville").Sort
.SetRange plage
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
SortMethod = xlPinYin
.Apply 

End With

ligne = 3

While Sheets("ville").Cells(ligne, 1).Value <> ""

Sheets("voyage").Range("C10").AddItem Sheets("ville").Cells(ligne, 1).Value

ligne = ligne + 1

Wend

Sheets("voyage").Select
'Sheets("voyage").Range("C10").ListIndex = 0

M-12 · Answer

Bonsoir,
Le code étant mis directement dans le post, pas simple de voir les erreurs,
à première vue sur le premier bloc en gras, il manque déjà des " _" à la fin des lignes

ActiveWorkbook.Worksheets("ville").Sort.SortFields.Clear 
ActiveWorkbook.Worksheets("ville").Sort.SortFields.Add Key:=Range("A2").SortOn = xlSortOnValues, _
 Order:=xlAscending, DataOption:=xlSortNormal

Erreur 438 sur code VBA

1 réponse

Discussions similaires