Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub bonjour()
- ajouterNom = InputBox("donner le nom de la feuille a sélectionner")
- last_page = Sheets.Count
- For i = 1 To last_page
- a = Sheets(i).Name
- If Sheets(i).Name = ajouterNom Then
- Sheets(ajouterNom).Select
- ElseIf i = last_page And Sheets(i).Name <> ajouterNom Then
- MsgBox ("veuillez vérifier le nom de la feuille")
- End If
- Next i
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement