Vérification du nom des feuilles

Version imprimable

Bonjour à tous
j'ai créé une macro qui me permet à partir d'un classeur source de créer des onglets (feuilles) dans un autre classeur
par contre une fois que ces onglets sont existants, je n'arrive pas à créer la commande qui va vérifier leur existence et donc ma macro plante.
Le hic pour moi c'est que j'arrive à récupérer les données de cellules différentes pour créer des onglets mais pas pour la vérif
d'avance merci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim i As Long Dim i2 As Long Dim sh As Worksheet Dim trouve As Boolean Sub ren_feuille() Workbooks("conges.xlsm").Activate Set Clasdest = ActiveWorkbook Workbooks.Open "d:\vba\test_conges2.xlsx" Set Clasourc = ActiveWorkbook 'clasourc.Sheets("modele").Activate ' pour copier les valeurs de la feuille 'Range("a2:k3").Copy 'ActiveSheet.Paste clasdest.ActiveSheet.Range("a1") Clasdest.Activate Clasourc.Sheets("feuil1").Activate For i = 2 To Range("b" & Rows.Count).End(xlUp).Row Set sh = Clasdest.Worksheets.Add sh.Name = Clasourc.Sheets("feuil1").Range("c" & i).Value & " " & Range("b" & i).Value Next i End Sub

Bonjour,
Une solution parmi d'autres

Code:

1
2
3
4
5
6
7
8
9
10
11
 Dim wkb As Workbook: Set wkb = ThisWorkbook
 Application.ScreenUpdating = False
 On Error Resume Next
 wkb.Sheets.Add
 ActiveSheet.Name = "NomFeuille"
 If Err <> 0 Then
  Application.DisplayAlerts = False
  ActiveSheet.Delete ' Supprime la feuille créée
  Application.DisplayAlerts = True
 End If
 Application.ScreenUpdating = True

06/07/2012, 09h56
quinault

merci de ta réponse
mais le problème pour moi résulte du "nom feuille"
c'est une gestion de congé
donc les onglets doivent rester
et comme le nom de l'onglet est en fonction des cellules données
je ne vois pas comment faire
ou il faut que je créé une liste indépendante ?

Bonjour,
Une solution parmi d'autres
Dans cet exemple la liste des feuilles à vérifier se trouve dans la feuille Param plage A6:A12

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim r As Long
 Dim IsShtExist As Boolean
 Dim sht As Worksheet, sh As Worksheet
 Dim lst As Range
 Set sht = ThisWorkbook.Worksheets("Param")
 Set lst = sht.Range("A6:A12")
 For r = lst.Row To lst.Row + lst.Rows.Count - 1
  For Each sh In ThisWorkbook.Worksheets
   IsShtExist = (sh.Name = sht.Cells(r, 1))
   If IsShtExist Then Exit For
  Next sh
  If Not (IsShtExist) Then MsgBox "La feuille " & sht.Cells(r, 1) & " n'est pas présente"
 Next r

20/07/2012, 11h06
quinault

Merci de la réponse

je suis la un peu tard désolé mais je vais essayer

merci encore

Bonjour,
voici comme je l'ai intégré mais il doit me manquer une sortie de boucle

merci encore de vos réponses

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim i As Long
Dim r As Long
Dim IsShtExist As Boolean
Dim sht As Worksheet, sh As Worksheet
Dim lst As Range
Sub test2()
Workbooks("conges.xlsm").Activate
Set Clasdest = ActiveWorkbook
Workbooks.Open "d:\vba\test_conges2.xlsx"
Set Clasourc = ActiveWorkbook
Clasdest.Activate
Clasourc.Sheets("feuil1").Activate
 
Set sht = ThisWorkbook.Worksheets("Feuil1")
 Set lst = sht.Range("A6:A12")
 For r = lst.Row To lst.Row + lst.Rows.Count - 1
  For Each sh In ThisWorkbook.Worksheets
  IsShtExist = (sh.Name = sht.Cells(r, 1))
    If IsShtExist Then GoTo e1 'Exit For
  Next sh
  If Not (IsShtExist) Then GoTo e2 'MsgBox "La feuille " & sht.Cells(r, 1) & " n'est pas présente"
 Next r
e2:
For i = 2 To Range("b" & Rows.Count).End(xlUp).Row
    Set sh = Clasdest.Worksheets.Add
    sh.Name = Clasourc.Sheets("feuil1").Range("c" & i).Value & "  " & Range("b" & i).Value
    Next i
 
e1:
Exit Sub
End Sub

31/07/2012, 07h26
quinault

Désolé de vous relancer mais je galère vraiment à faire la verif

j'ai inserer un underscore pour avoir une chaine de caractere complète

mais rien n'y fait

Merci encore pour votre aide

Bonjour,

Je n'ai pas testé car pas trop compris à un endroit du code :-( mais regarde avec l'utilisation d'un dico :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Sub test2()
 
    Dim Dico As Object
    Dim sh As Worksheet
    Dim shAdd As Worksheet
    Dim Plage As Range
    Dim I As Long
    Dim J As Long
 
    'crée l'objet dictionnaire
    Set Dico = CreateObject("Scripting.Dictionary")
 
    Set Clasdest = Workbooks("conges.xlsm")
 
    Set Clasourc = Workbooks.Open("d:\vba\test_conges2.xlsx")
 
    'défini la plage des noms
    Set Plage = Clasourc.Worksheets("Feuil1").Range("A6:A12")
 
    'stocke les noms des feuilles dans le dico
    For Each sh In Clasdest.Worksheets
 
        Dico.Add sh.Name, sh.Name
 
    Next sh
 
    'parcour la plage
    For J = 1 To Plage.Count
 
        'si le nom n'existe pas, effectue l'ajout des feuilles !!! combien ???
        If Dico.exists(Plage(J)) = False Then
 
            'ici, je ne comprend pas trop :-(
            For I = 2 To Range("b" & Rows.Count).End(xlUp).Row
 
                Set shAdd = Clasdest.Worksheets.Add
                shAdd.Name = Clasourc.Sheets("feuil1").Range("c" & I).Value & "  " & Range("b" & I).Value
 
            Next I
 
        End If
 
    Next J
 
End Sub

Hervé.

31/07/2012, 08h43
quinault

merci pour cette aide

la ligne que tu ne comprends pas sert à incrémenter la vérif de ligne remplie

dans mon tableau

en fait je part de 2colonnes ou j'ai des noms et prénoms

je créé des feuilles à partir de la donc le code s’incrémente jusqu’à ce qu'il n'y ai plus de cellule pleine

voila et encore merci

ca marche merci encore

il me reste juste à le faire sortir proprement

apres mon message il retourne sur la boucle

voici le code à jour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Dim i As Long
Dim i2 As Long
Dim j As Long
Dim Dico As Object
Dim sh As Worksheet
Dim trouve As Boolean
Dim Plage As Range
 
Sub ren_feuille()
Workbooks("original tests macros.xlsm").Activate
Set Clasdest = ActiveWorkbook
Workbooks.Open "d:\vba\tests conges.xlsx"
Set Clasourc = ActiveWorkbook
Set Dico = CreateObject("Scripting.Dictionary")
Set Plage = Clasourc.Worksheets("Feuil1").Range("A6:A12")
Clasdest.Activate
Clasourc.Sheets("feuil1").Activate
 
For Each sh In Clasdest.Worksheets
 
        Dico.Add sh.Name, sh.Name
 
    Next sh
     'parcour la plage
    For j = 1 To Plage.Count
 
        'si le nom n'existe pas, effectue l'ajout des feuilles !!! combien ???
        If Dico.exists(Plage(j)) = False Then MsgBox "tous les noms existent"
        Exit For
 
 
    Next j
 
'For i2 = 1 To Sheets.Count
        'If Left(Sheets(i2).Name, 4) Like Clasourc.Sheets("feuil1").Range("b" & i).Value & "_" & Range("c" & i).Value Then
       ' trouve = True
        'End If
 
'Next
'If trouve = True Then Resume
i = 2
Do While Range("c" & i).Value <> ""
    Set sh = Clasdest.Worksheets.Add
    'If trouve = True Then Exit Sub
    sh.Name = Clasourc.Sheets("feuil1").Range("b" & i).Value & "_" & Range("c" & i).Value
    i = i + 1
 
 
Loop
 
Clasdest.Save
 
 
 
End Sub

:ccool:

dsl il ne prend pas les balises en compte

31/07/2012, 09h07
quinault

j'ai réussi à faire ce que je voulais en ajoutant un booléen

merci encore