Problème de code pour nouvel onglet

Version imprimable

Bonjour,

lors de l'écriture du mon code j'ai un message d'erreur sur cette ligne et du coup ça ne réalise pas bien mon opération à savoir renommer le nouvel onglet par le nom et prenom du fichier général.

par avance merci pour votre aide

Voici le code :

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Option Explicit

Dim fm As Worksheet, f As Worksheet, nom As String, prenom As String, dico As Object
Dim fb As Worksheet
Dim i&, ln&, lgn&, col&


Sub CréerLesFiches2ndeligne()

Application.ScreenUpdating = False
Set fb = ActiveSheet
Set fm = Sheets("model 2nde ligne")
Set dico = CreateObject("Scripting.Dictionary")
For Each f In Worksheets
dico(f.Name) = ""
Next f
Sheets("model 2nde ligne").Visible = True
For ln = 5 To fb.Range("A" & Rows.Count).End(xlUp).Row
nom = fb.Range("A" & ln)
prenom = fb.Range("B" & ln)
If Not dico.exists(nom & " " & prenom) Then
Sheets("model 2nde ligne").Copy after:=Sheets("general 2nde ligne")
ActiveSheet.Name = nom & " " & prenom
Range("G7") = nom
Range("G8") = prenom

Range("G10") = fb.Range("BR" & ln)
Range("G11") = fb.Range("BS" & ln)
Range("G12") = fb.Range("BY" & ln)

Range("E18") = fb.Range("BM" & ln)
Range("I18") = fb.Range("BN" & ln)
Range("E21") = fb.Range("BP" & ln)
Range("I21") = fb.Range("BQ" & ln)
Range("G23") = fb.Range("BO" & ln)

Range("F30") = fb.Range("CM" & ln)
Range("G31") = fb.Range("CG" & ln)
Range("H31") = fb.Range("CF" & ln)
Range("J30") = fb.Range("CL" & ln)

Range("F35") = fb.Range("CH" & ln)
Range("G35") = fb.Range("CI" & ln)
Range("H35") = fb.Range("CJ" & ln)
Range("I35") = fb.Range("CK" & ln)

Range("D39") = fb.Range("CN" & ln)
Range("F39") = fb.Range("CO" & ln)
Range("H39") = fb.Range("CP" & ln)
Range("J39") = fb.Range("CQ" & ln)
Range("D41") = fb.Range("CR" & ln)
Range("F41") = fb.Range("CS" & ln)
Range("H41") = fb.Range("CT" & ln)
Range("J41") = fb.Range("CU" & ln)

Range("D49") = fb.Range("CV" & ln)
Range("F49") = fb.Range("CW" & ln)
Range("J49") = fb.Range("CX" & ln)
Range("H49") = fb.Range("CY" & ln)
Range("D51") = fb.Range("CZ" & ln)
Range("F51") = fb.Range("DA" & ln)
Range("H51") = fb.Range("DB" & ln)
Range("J51") = fb.Range("DC" & ln)

Range("B60") = fb.Range("DD" & ln)

For i = 1 To 8
'ln = Choose(i, 12, 13, 14, 15, 16, 17, 18, 19)
lgn = Choose(i, 13, 13, 33, 33, 53, 53, 73, 73)
col = Choose(i, 3, 9, 3, 9, 3, 9, 3, 9)
Cells(lgn, col).Value = fb.Cells(ln, i + 11).Value
Next i
End If
Next ln
Sheets("model 2nde ligne").Visible = True
End Sub

10/08/2017, 08h17
Gfacro

quel est le message d erreur ?

faites un stop sur la ligne en erreur, dans la fenetre d execution du VBE, tapez '?nom & " " & prenom'. Essayez de renommer manuellement votre onglet avec la réponse.

Evitez tout ce qui est "active", souvent lorsque quelque chose ne fonctionne pas, c'est que l'active n'est pas celui qu'on croit, ou alors le nom que vous récupérez est un code erreur.
10/08/2017, 09h25
dediou37

1 pièce(s) jointe(s)

Bonjour,

merci d'avoir pris le temps de regarder. Voici le message d'erreur que j'ai :

Pièce jointe 301939

en fait il me fait tout comme je le voulais (ici feuille auriau romain) mais il me rajoute un onglet sans nom "" et un onglet "model(2)" que je ne souhaite pas. (visible sur l'image au dessus dans la colonne de gauche)

J'aimerais juste créer des onglets avec les nom prénom des personnes présentes sur la feuille "poste general" (comme il l'a fait pour auriau romain d'ailleurs)

ps : je n'ai pas très bien compris ce que je devais faire avec vos consignes...désolé

merci d'avance
10/08/2017, 14h17
Gfacro

Vbe visual basic editor, une recherche Google donne en première réponse Wikipedia qui le dit.
C est l éditeur pour taper le code des macros ms-office.

Le message d erreur est explicite, la feuille existe déjà. Il faut la détruire pour la recréer ou changer son nom ou changer le nom de la nouvelle feuille. Une macro ne peux faire que ce qu un utilisateur peut faire. Utilisateur ou macro, on ne peut pas avoir plusieurs onglets avec le même nom.

Devinez-vous ce qu'il se passe, ce qui ne fonctionne pas dans ce que vous avez fait ?
Pouvez-vous donner les liens qui vous ont servi de modèle pour faire ce que vous avez fait.

Ps: je ne connaissais pas scripting.dictionnary, merci je pense que je vais trouver des occasions de l utiliser (perso, je remarque qu avec on n a pas besoin de redim).

Il n est pas possible de créer un onglet avec un nom vide. Essayez vous verrez un message d erreur explicite.
Quel est à votre avis le nom de ce fameux onglet ?
A mon avis, vous avez peut être une ligne vide au milieu de votre liste de nom, a moins qu elle ne commence en ligne 6.

Pour model(2), que se passe y-il si vous jouez plusieurs fois la macro, que comprenez-vous ?

Essayez de regarder votre code en pas a pas pour voir ce qu il fait. On ne peut pas écrire de macro si on ne connaît pas ca. Suivez un cours d initiation au développement vba et en particulier ne sautez pas les premiers chapitre, ils vous semblent évidents mais on a la preuve la qu ils sont utiles.