pb copie feuille avec checkbox

bomber · 13 Janvier 2006

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 · 13 Janvier 2006

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 :

Code:

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)

Code:

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 · 13 Janvier 2006

Salut Porcinet82

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

Bon week-end

Guillaume

pb copie feuille avec checkbox

bomber

Guest

porcinet82

XLDnaute Barbatruc

bomber

Guest

Discussions similaires

pb copie feuille avec checkbox

bomber

Guest

porcinet82

XLDnaute Barbatruc

bomber

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency