christ77000
XLDnaute Occasionnel
Bonsoir dans ce code je récupère la liste des onglets de mon classeur. Mais il y a pas mal d'onglets donc ma question est comment modifier ce code pour ne récuperer que les onglets commençants par RE
Code:
Sub Raffraichir_liste_onglet_R()
'---raffraichir la liste des onglets dans l'onglet "Menu"---
Dim i As Integer
Sheets("Menu1").Select
'Call Retirer_la_protection '---retire la protection de la feuille---
Range("P4:P40").Select '---efface les lignes---
Selection.ClearContents
Range("P4").Select
For i = 3 To Sheets.count '---boucle sur toutes les onglets du classeur sauf les deux premier---
ActiveCell.Value = Sheets(i).Name
ActiveCell.Offset(1, 0).Select
Next i
'Call Protéger_la_feuille '---proteger la feuille---
End Sub