Condition sur le nom de la feuille

luis · 2 Avril 2007

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 · 2 Avril 2007

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 · 2 Avril 2007

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.

Code:

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

Condition sur le nom de la feuille

luis

XLDnaute Nouveau

Catrice

XLDnaute Barbatruc

Luki

XLDnaute Accro

Discussions similaires