pb copie feuille avec checkbox

[bomber]

Bonjour à tous

J'ai créé des checkbox pour copier des feuilles mais je voudrais qu'un message s'affiche si la feuille existe déjà ceci afin d'éviter que l'utilisateur clic deux fois sur le même checkbox.
Le problème c'est que le message s'affiche sans problème mais la feuille se crée quand même avec le nom 'base(2)'
j'ai le code suivant :
If creerb = True Then
On Error GoTo erreurb
Worksheets('base').Copy after:=Worksheets('code')
ActiveSheet.Name = 'B'
End If
erreurb:
If Err = 1004 Then
MsgBox 'Le permis B a déjà été créé'
End If

Je pense que ça ne doit pas être grand chose mais je bloque...
Merci d'avance

Guillaume

 

[porcinet82]

Salut Guillaume,

Tu as plusieurs possibilité, soit tu supprimes la feuille que tu viens de créer apres le message tu rajoutes le code comme ca :

If Err = 1004 Then
MsgBox 'Le permis B a déjà été créé'
activesheets.delete
End If

Ou alors, tu peux modifier ton code de la manière suivante, ce qui je pense est mieux (enfin si j'ai bien cerné le problème)

If CheckBox1 = False Then
    For i = 1 To Sheets.Count
        If Sheets(i).Name = 'B' Then
            MsgBox 'Le permis B a déjà étécréé'
            Exit Sub
        End If
    Next i
    Worksheets('base').Copy after:=Worksheets('code')
    ActiveSheet.Name = 'B'
End If

@+

Edition: Le &n bsp; je sais pas d'ou il sort, mais il est pas dans le code

Message édité par: porcinet82, à: 13/01/2006 18:15

 

[bomber]

Salut Porcinet82

Merci beaucoup pour ta solution, je crois que je vais utiliser ta deuxième proposition.

Bon week-end

Guillaume