Rajout d'une feuille...

[Fiz]

Bonsoir,
je veux rajouter une feuille en la nomant avec une partie texte et un texte qui vient d'un Textebox avec une gestion d'erreur si la feuille existe.

j'ai écrit cela :

Sheets("Matrice_resa").Visible = True
MsgBox ("je cré l'année : " & Form_CreaC.TextBoxAnnees.Value)

On Error GoTo erreuran

Sheets.Add.Name ("Résa_" & Form_CreaC.TextBoxAnnees.Value, Type:=xlWorksheet)
Sheets("Résa_" & Form_CreaC.TextBoxAnnees.Value).Select

Ma procedure creation calendrier suivant année de TextBoxAnnees(ca marche😀)

erreuran:
MsgBox("Ce calendrier EXISTE déjà !!!")

Quand je lance la procedure il va directement au message d'erreur meme si la feuille n'exite pas et cré une feuille nommé "feuil1"

 

[Fiz]

Re : Rajout d'une feuille...

J'ai trouvé ca pour ajouter une feuille, mais quand elle existe excel m'en rajoute une quand meme logique vu que l'erreur se produit au moment de la renommer.


' Ajout d'une feuille
Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet

' Renomme la feuille
Application.ActiveSheet.Name = "Résa_" & Form_CreaC.TextBoxAnnees.Value

 

[Fiz]

Re : Rajout d'une feuille...

Bon j'ai rajouté ça, dans l'aide Vb ,ça tourne.🙂



For i = 1 To Sheets.Count

If Sheets(i).Name = "Résa_" & Form_CreaC.TextBoxAnnees.Value Then

ErreurMsg = "Ce Calendrier EXISTE déjà !!!"
Call MessageErreur
Exit Sub
Else
End If

Next i