Discussion :

[stargates]

bonjour,


petit problème dans mon code pour ajouter une feuille



il me retoune comme erreur

run time error 1004


cannot rename a sheet to the same name as another sheet, a referenced
object library or a workbook referenced by visual basic.

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
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
 
Do
    bonNom = True
    If sem <> "" Then
    'Vérifier que le nom n'existe pas déjà
        For a = 1 To ActiveWorkbook.Worksheets.Count
            If UCase(sem) <> UCase(Worksheets(a).Name) Then
                Sheets.Add.Name = sem
                'ActiveSheet.Name = sem
                i = 3
                Worksheets(sem).Select
                ActiveSheet.Range("A" & i).Value = "Semaine" & sem
                i = 4
                ActiveSheet.Range("A" & i).Value = "Route"
                ActiveSheet.Range("b" & i).Value = "Date"
                ActiveSheet.Range("c" & i).Value = "kilometre"
                ActiveSheet.Range("d" & i).Value = "nombre de client"
                    While ActiveSheet.Range("A" & i) <> ""
                    i = i + 1
                    Wend
                ActiveSheet.Range("A" & i).Value = Tournee
                ActiveSheet.Range("B" & i).Value = jourdate
                ActiveSheet.Range("c" & i).Value = kilometre
                ActiveSheet.Range("d" & i).Value = client
            Else
 
                 i = 3
                Worksheets(sem).Select
                ActiveSheet.Range("A" & i).Value = "Semaine" & sem
                    While ActiveSheet.Range("A" & i) <> ""
                    i = i + 1
                    Wend
                ActiveSheet.Range("A" & i).Value = Tournee
                ActiveSheet.Range("B" & i).Value = jourdate
                ActiveSheet.Range("c" & i).Value = kilometre
                ActiveSheet.Range("d" & i).Value = client
            End If
        Next
 
    End If
    Label1.Caption = "pas de nom"
Loop Until bonNom = True
 
End Sub

une idée de mon erreur, merci

[mail.spam]

Bonjour,

Comment initialise tu ta variable sem?

Et je pense qu'il faut que tu test ta feuille sem avec la totalité des feuilles présente car la tu test le nom sur chaque feuille les une à la suite des autres.

Concrètement pour l'exemple tu as 3 feuille

Semaine1 | semaine2 | semaine3

sur la première feuille tu test le nom mais tu ne le test pas tout de suite sur les feuilles 2 et 3

si le nom n'est pas identique du ajoute ta feuille mais rien n'enpêche qu'eele se nomme comme 2 ou 3

Utilise un variable booleen de test .

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
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
Do
    bonNom = True
    If sem <> "" Then
    Dim existe As Boolean
    existe = False
    'Vérifier que le nom n'existe pas déjà
        For a = 1 To ActiveWorkbook.Worksheets.Count
               If UCase(sem) = UCase(Worksheets(a).Name) Then
                       existe = true
               end if
 
        Next
        if existe = false then
                   Sheets.Add.Name = sem
                'ActiveSheet.Name = sem
                i = 3
                Worksheets(sem).Select
                ActiveSheet.Range("A" & i).Value = "Semaine" & sem
                i = 4
                ActiveSheet.Range("A" & i).Value = "Route"
                ActiveSheet.Range("b" & i).Value = "Date"
                ActiveSheet.Range("c" & i).Value = "kilometre"
                ActiveSheet.Range("d" & i).Value = "nombre de client"
                    While ActiveSheet.Range("A" & i) <> ""
                    i = i + 1
                    Wend
                ActiveSheet.Range("A" & i).Value = Tournee
                ActiveSheet.Range("B" & i).Value = jourdate
                ActiveSheet.Range("c" & i).Value = kilometre
                ActiveSheet.Range("d" & i).Value = client
            Else
 
                 i = 3
                Worksheets(sem).Select
                ActiveSheet.Range("A" & i).Value = "Semaine" & sem
                    While ActiveSheet.Range("A" & i) <> ""
                    i = i + 1
                    Wend
                ActiveSheet.Range("A" & i).Value = Tournee
                ActiveSheet.Range("B" & i).Value = jourdate
                ActiveSheet.Range("c" & i).Value = kilometre
                ActiveSheet.Range("d" & i).Value = client
            End If
 
 
    End If
    Label1.Caption = "pas de nom"
Loop Until bonNom = True
 
End Sub

enfin je l'ai pas tester mais c un truc du genre

Bon Courage

[stargates]

ok super