Erreur 438 sur code VBA
Lucie17_0626
Messages postés
61
Date d'inscription
Statut
Membre
Dernière intervention
-
Lucie17_0626 Messages postés 61 Date d'inscription Statut Membre Dernière intervention -
Lucie17_0626 Messages postés 61 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Erreur 438 sur code VBA
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
1 réponse
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
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
Lucie17_0626
Messages postés
61
Date d'inscription
Statut
Membre
Dernière intervention
3
Excusez moi je ne savais pas comment mettre sous la même forme que vous donc j'ai mis le code directement dans le post mais merci pour cette aide.
