bonjour,

je cherche a programmer une marco permettant de renommer les feuilles d'un classeur. voilà le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub RenommerFeuille()
    
    Dim maFeuilleCalcul As Worksheet
    Dim strPrompt As String, strResult As String
    Dim Compteur As Integer
    
    Compteur = 0
    strPrompt = "Veuillez saisir le nouveau nom de la feuille de calcul"
    
    For Each maFeuilleCalcul In Application.Worksheets
        strResult = InputBox(strPrompt & maFeuilleCalcul.Name)
        'maFeuilleCalcul.Name = strResult
            If vbCancel = True Then
                Exit For
            ElseIf vbOK = True Then
                maFeuilleCalcul.Name = strResult
            End If
        Compteur = Compteur + 1
    Next maFeuilleCalcul
    
    strPrompt = "Nombre total de feuilles de calcul renommées =" & Str$(Compteur)
    
    MsgBox strPrompt
        
End Sub
ça fonctionne assez bien mais une fois qu'on clique sur Annuler au lieu de OK ça me donne un déboguage , est ce que quelqu'un peut m'aider

Merci d'avance