Bonjour et bonne année à tous,
J'ai un problème de gestion de boucle et d'analyse de chaine de caractéres pour mettre à jour la liste de nom des onglets commençant par 20 à partir de la cellule [D3] jusqu'au n onglet à lister.
ci joint le code dans l'état :
- Je ne parviens pas à "lire" correctement le début de l'onglet (en numérique ou alphanumérique)
- Ca plante lorsque la feuille en cours dans la boucle est inéxistante
- comment différencier l'incrémentation de n permettant d'aller à la ligne suivante lorsque le nom de feuille commence par 20
- et de i lorsque l'onglet est trouvé ?
Autre problème l'exécution de la macro est trés longue (45 s pour actuellement 17 onglets dont 14 onglets commencant par 20) ???
En vous remerciant vivement par avance de vos réponses et différentes observations
J'ai un problème de gestion de boucle et d'analyse de chaine de caractéres pour mettre à jour la liste de nom des onglets commençant par 20 à partir de la cellule [D3] jusqu'au n onglet à lister.
ci joint le code dans l'état :
PHP:
Sub Maj_Liste_onglets()
[D2].Select
For n = 1 To Sheets.Count
For i = 1 To Sheets.Count
If "20" <> Left(Sheets(i).Name, 2) Then GoTo 1
Selection.Offset(n, 0).Value = Sheets(i).Name
Next i
1 Next n
End Sub
- Je ne parviens pas à "lire" correctement le début de l'onglet (en numérique ou alphanumérique)
- Ca plante lorsque la feuille en cours dans la boucle est inéxistante
- comment différencier l'incrémentation de n permettant d'aller à la ligne suivante lorsque le nom de feuille commence par 20
- et de i lorsque l'onglet est trouvé ?
Autre problème l'exécution de la macro est trés longue (45 s pour actuellement 17 onglets dont 14 onglets commencant par 20) ???
En vous remerciant vivement par avance de vos réponses et différentes observations