Discussion :

[Peerl]

Bonjour,

Je bloque sur cette macro...

J'ai un code qui copie une feuille avec renommage auto,un msgbox qui s'affiche si le nom existe déjà.
le soucis c'est que si c'est le cas, le programme s’arrête ne fait rien ce qui est logique car j'ai pas mis un vbYesNo.

J'ai essayé de changer pour que je puisse avoir le choix entre ne rien faire ou remplacer la feuille.
:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set wh = Worksheets(ActiveSheet.Name)
 If Feuil_Exist(ThisWorkbook.Name, "C_" & wh.Name) = True Then
    ans = MsgBox("la feuille " & "C_" & wh.Name & " existe déjà voulez-vous la remplacer?", vbExclamation + vbYesNo, "Message Box Title")
     If ans = vbYes Then
     sheet = "C_" & wh.Name
       If sheet.Visible = False Then
        Debug.Print sheet.Name
        sheet.Delete
End If
Else
Exit Sub
End If
Else
  ActiveSheet.Copy After:=wh
  ActiveSheet.Name = "C_" & wh.Name
End If

j'ai une erreur qui pointe sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 sheet = "C_" & wh.Name

Merci

[BENNASR]

bonjour
à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If MsgBox("la feuille " & "C_" & wh.Name & " existe déjà voulez-vous la remplacer?", vbYesNo, "Demande de confirmation") = vbYes Then

[Philippe Tulliez]

Bonjour,

j'ai une erreur qui pointe sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheet = "C_" & wh.Name

C'est normal, Sheet est un objet et pour nommer cet objet, il y a lieu d'utiliser la propriété Name de celui-ci
Cependant, on ne peut pas écrire Sheet.Name = "Toto" car un objet est un élément d'une collection que l'on identifie soit par son numéro, soit par son nom
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(1).Name = "Toto"

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Titi").Name = "Toto"

Mais il est également possible d'utiliser une variable objet de type Worksheet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Dim sht As Worksheet
  Set sht = ThisWorkbook.Worksheets("Titi")
  sht.Name = "Toto"

J'espère que ces petites explications rendront plus claire la compréhension du problème rencontré

Petite remarque : Si l'on travaille avec des feuilles de calcul, il est préférable d'utiliser un objet de la collection Worksheets à la place de Sheets

[Peerl]

Bonjour,

J'espère que ces petites explications rendront plus claire la compréhension du problème rencontré

Bien sur, je comprends mieux !
J'ai remplacer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim sheet as Object
sheet = "C_" & wh.Name

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim sht as WorkSheet
Set sht = ThisWorkbook.Worksheets("C_" & wh.Name)
     sht.Name = "C_" & wh.Name

et j'ai plus d'erreur.

Par contre comme je voulais, tester sur l'ensemble des feuilles visibles et invisibles j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 If sht.Visible = False Then
       Debug.Print sht.Name
        sht.Delete
        End If
        sht.Delete ' pour les feuilles visibles
        ActiveSheet.Copy After:=wh
        ActiveSheet.Name = "C_" & wh.Name
End If
Else
  ActiveSheet.Copy After:=wh
  ActiveSheet.Name = "C_" & wh.Name 
End If

Il est fonctionnel, mais je sais pas si en VBA existe des méthodes simplifier pour éviter la répétition des lignes, comme une fonction ou appeler la macro copy par exemple ?

Sinon un grand merci sujet résolu!

[Philippe Tulliez]

Bonjour,
Je serais très étonné que le troisième code soit fonctionnel ou alors tout n'a pas été publié car il y a un End If sans If et un Else sans If
Juste après le premier End If il y a l'instruction sht.Delete or cette même instruction est placée dans le If sht.Visible = False donc cela signifie que l'on supprime toutes les feuilles or un classeur doit au moins avoir une feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
If sht.Visible = False Then
       Debug.Print sht.Name
        sht.Delete
        End If
        sht.Delete ' pour les feuilles visibles
        ActiveSheet.Copy After:=wh
        ActiveSheet.Name = "C_" & wh.Name
End If
Else
  ActiveSheet.Copy After:=wh
  ActiveSheet.Name = "C_" & wh.Name 
End If

[Peerl]

C

Bonjour,
Je serais très étonné que le troisième code soit fonctionnel ou alors tout n'a pas été publié car il y a un End If sans If et un Else sans If
Juste après le premier End If il y a l'instruction sht.Delete or cette même instruction est placée dans le If sht.Visible = False donc cela signifie que l'on supprime toutes les feuilles or un classeur doit au moins avoir une feuille.

Bonjour,

Je penses qu'il fallait que recopie toute la partie du code comme ce que j'ai fait au tout début du sujet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
If Feuil_Exist(ThisWorkbook.Name, "C_" & wh.Name) = True Then
     If MsgBox("la feuille " & "C_" & wh.Name & " existe déjà voulez-vous la remplacer?", vbYesNo, "Demande de confirmation") = vbYes Then
        If sht.Visible = False Then
        Debug.Print sht.Name
        sht.Delete
        End If
        sht.Delete ' pour les feuilles visibles
        ActiveSheet.Copy After:=wh
        ActiveSheet.Name = "C_" & wh.Name
      End If
Else
  ActiveSheet.Copy After:=wh
  ActiveSheet.Name = "C_" & wh.Name 
End If

Pour le moment y'a aucun soucis...