Condition sur le nom de la feuille

[luis]

Bonjour,

Voila, donc, j'ai inséré cette macro dans mon fichier de manière à demander à l'utilisateur de renommer la feuille mais j'aimerai savoir s'il est possible de mettre une condition. Je m'explique si les les 2 premières lettres du nom sont "AA" alors la macro se poursuit sinon rien. Est-ce possible ?

Dim Feuille As String

Feuille = InputBox("Nom feuille ?")
ActiveSheet.Name = Feuille

If left(Feuill,2) = "AA" Then
End If

 

[Catrice]

Re : Condition sur le nom de la feuille

Bonsoir,

Par exemple :

Sub test()
Feuille = InputBox("Nom feuille ?")
If Left(Feuille, 2) = "AA" Then
ActiveSheet.Name = Feuille
Else
MsgBox "retaper un nom"
test
End If
End Sub

 

[Luki]

Re : Condition sur le nom de la feuille

Bonsoir Luis

Bien sûr, tu peux le faire. Mais pour éviter de te trimballer la macro entre le "Then" et le "end if", il vaut mieux passer par la condition " si faux" et sortir du groupe if.

Sub nomdefeuille()
Dim Feuille As String

Feuille = InputBox("Nom feuille ?")
ActiveSheet.Name = Feuille
If Not Left(Feuille, 2) = "AA" Then Exit Sub

'ici la suite de la macro
MsgBox "La macro va continuer"

End Sub

Bonne soirée