dupliquer feuille en fonction d'une liste Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
o
ohua1
Membre habitué
Membre habitué
Messages : 91
Inscrit le : 18 septembre 2013
Version d'Excel : 2007 FR

Message par ohua1 » 31 juillet 2015, 13:15

bonjour

petit aide pour un bug sur lequel je bute

je cherche simplement à dupliquer une feuille nommé feuille vierge en fonction d'une liste situé en colonne B de la feuille recap
voici le code que j'ai modifier
' ajouter feuille vierge en fonction d'une liste contenu dans onglet recap
Sub Ajouter_Feuilles()
Dim J As Long
Dim Ws As Worksheet

Application.ScreenUpdating = False
Set Ws = ActiveSheet
For J = 2 To Ws.Range("B" & Rows.Count).End(xlUp).Row
If Not FeuilleExiste(Ws.Range("B" & J).Value) Then
Sheets("feuille vierge").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Ws.Range("B" & J)
Range("D1") = ActiveSheet.Name ' Met le nom de la feuille dans la cellule D2
End If
Next J
Ws.Select
End Sub

'Si l'onglet existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function


merci de votre aide
macro ajouter feuille.xls
(56.5 Kio) Téléchargé 84 fois
A
Amadéus
Modérateur
Modérateur
Messages : 17'728
Appréciations reçues : 59
Inscrit le : 7 mai 2006
Version d'Excel : Office Excel 2003 FR et 2013FR

Message par Amadéus » 31 juillet 2015, 21:47

Bonjour
Je ne vois aucun Bug si la macro est lancée lorsque la feuille récap est la feuille active.
Cordialement
Amadéus vous informe que, pour cause de saturation, il ne peut plus répondre aux messages privés non sollicités.
o
ohua1
Membre habitué
Membre habitué
Messages : 91
Inscrit le : 18 septembre 2013
Version d'Excel : 2007 FR

Message par ohua1 » 3 août 2015, 08:19

merci amadéus

débutant , je devais avoir un problème d'enregistrement effectivemetn cela fonctionne correctement

merci d'avoir regardé ce code et de votre aide

bonne journée
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message