Discussion :

[rvtoulon]

Bjr le Forum,
j'ai un certain nombre de plage à nommer sur plusieurs feuilles de mon classeur et pour nommer une plage j'ai ce code qui marche bien:

Code :

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

1
2
3
4
5
6
 
Sub nommerplage()
Dim j as Long 
j = 1
 Sheets(j).Range("C2", Range("C2").End(xlDown)).Name = "Noms1"
End Sub

Comme j'ai plusieurs feuilles et donc plusieurs autres plages à nommer, afin de gagner du temps, j'ai essayer de mettre en boucle mais sa coince, j'ai essayé ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub nommerplage()
Dim j As Long
j = 1
 
 For j = 1 To 13
Sheets(j).Range("C2", Range("C2").End(xlDown)).Name = ("Noms & j")
 
Next j
End Sub

je pense que ma syntaxe n'est pas bonne à:

Code :

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

Name = ("Noms & j")

qu'en pensez-vous?
merci de votre aide.

[ucfoutu]

Bonjour,

on concatè-ne ainsi la chaîne "toto" et le chiffre défini par j

Code :

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

"toto" & j

[rvtoulon]

bjr ucfoutu,
merci pour ta réponse j'ai fais la modification que tu m'as donné:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub nommerplage()
 
Dim j As Long
 
Application.ScreenUpdating = False
 
 For j = 1 To 13
Sheets(j).Range("B2", Range("B2").End(xlDown)).Name = "Mois" & j
Next j
 
Application.ScreenUpdating = True
 
End Sub

ça fonctionne une fois et ensuite quand il boucle une deuxième fois j'ai une erreur 1004, définie par l'application ou l'objet.

[rvtoulon]

Re
bon finalement j'ai trouvé l'erreur il fallait juste remplacer:

Code :

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

1
2
 
Sheets(j).Range("B2", Range("B2").End(xlDown)).Name = "Mois" & j

par:

Code :

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

1
2
3
4
5
 
Sheets(j).Select
Range("B2", Range("B2").End(xlDown)).Name = "Mois" & j
Range("C2", Range("C2").End(xlDown)).Name = "Noms" & j
'etc.....

Merci à bientôt sur le Forum

[ucfoutu]

Ton "etc..." m'inquiète.
Si tu en as beaucoup, inspire-toi de ceci :

1)pour tes cellules :

Code :

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

1
2
3
For i = Asc("F") To Asc("K")
  MsgBox Chr(i) & "2"
Next

2)pour la chaîne ("Mois", "noms", etc...)
utilisation d'un array de définition, auquel te référer.
(Ce ne sera qu'un tout petit peu de gymnastique, que je te laisse faire )