Advertisement
Guest User

Untitled

a guest
Jul 16th, 2018
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub bonjour()
  2.  
  3. ajouterNom = InputBox("donner le nom de la feuille a sélectionner")
  4. last_page = Sheets.Count
  5. For i = 1 To last_page
  6.     a = Sheets(i).Name
  7.     If Sheets(i).Name = ajouterNom Then
  8.         Sheets(ajouterNom).Select
  9.     ElseIf i = last_page And Sheets(i).Name <> ajouterNom Then
  10.    
  11.     MsgBox ("veuillez vérifier le nom de la feuille")
  12.    
  13.     End If
  14.    
  15. Next i
  16.  
  17. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement