test d'existance d'une feuiile

[JoelleN]

Bonjour le forum,

Desolée de vous déranger, mais j'ai toujours des problèmes. Je vous explique j'ai un boutton de commande qui va me créer une feuille "Client_touche_1"; j'aimrais bien qu'en cliquant une deuxième fois sur le boutton, de pointer à nouveau sur ma feuile "Client_touche_1". Don au début je test si la feuiile existe et si non je la récrée. Mon code fonctionne bien quant la feuille existe deja et si elle n'est pas encore créer, j'ai un message d'erreur: l'indice n'appartient pas à la selection.

voila mon code:


Private Sub CommandButton2_Click()
Dim phoneID As String

phoneID = Me.Cells(7, "D")
If Worksheets("client_touche_1").Visible Then


Worksheets("client_touche_1").Select

Else

Select Case phoneID
Case "3911":
e_3911.Copy After:=Annexe
ActiveSheet.Name = "client_touche_1"

Case "7921":
e_7921.Copy After:=Annexe
ActiveSheet.Name = "client_touche_1"


End Select
End If

End Sub


J'espère que j'étais clair.

Merci d'avance.

 

[pierrejean]

Re : test d'existance d'une feuiile

bonjour JoelleN

En attendant mieux

voici une fonction qui teste l'existence d'une feuille

Function exist(feuil As String)
On Error Resume Next
Set ws = Sheets(feuil)
If Err <> 0 Then GoTo fin
On Error GoTo 0
exist = True
Exit Function
fin:
exist = False
End Function

a utiliser dans ton cas sous la forme

if exist("client_touche_1") then
......
else
......
End if

 

[JoelleN]

Re : test d'existance d'une feuiile

bonjour Pierrejean,

Merci pr ton aide, j'ai intégré la fonction dans mon code et ca marche super bien....