affection de nom à plage de cellule

Version imprimable

Bonjour,

Je souhaite affecter des noms à différentes plages de cellules

Avec l'enregistrement de macro j'ai codé ca pour le moment
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Macro4() ' ' Macro4 Macro ' Macro enregistrée le 28/01/2008 Sheets("Collecte").Select i = 0 For c = 3 To 255 Step 3 i = i + 1 ActiveWorkbook.Names.Add Name:="mpcol" & i, RefersToR1C1:= _ "=Collecte!R51C5:R64C5" Next End Sub
Mon but est donc dans la feuille collecte jusqu'à la colonne 255 avec un pas de 3 sélectionné les 30 premières lignes et lui affecter le nom mpcol1 puis mpcol2 etc....

Mon Problème est donc de changer la plage de cellule avec la variable c mais je ne sais pas du tout quel syntaxe utilisé

Bonjour

essaye ca :

Code:

1
2
3
4
5
6
7
8
9
dim ncol as integer, i as integer, plage as range
For i = 1 to 255 step 3
     ncol = ncol + 1 
     on error resume next
     ActiveWorkbook.Names(ncol).delete
     on error goto 0
     set plage = sheets("Collecte").range(cells(1,ncol).address & ":" & cells(30,ncol).address)
     activeworkbook.names.Add Name:="mpcol" & ncol, refersto:=plage
next i

Bonne journée

quite a faire compliquer:

Code:

1
2
3
4
5
6
7
8
9
10
 
Compte = 0
i = 0
Do While Compte <= 225
For c = 3 + Compte To 30 + Compte Step 3
i = i + 1
    ActiveWorkbook.Names.Add Name:="mpcol" & i, RefersToR1C1:="=Recap!R" & c
Next
Compte = Compte + 30
Loop

hop EDIT pas tout lu

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Macro8()
Dim ncol As Integer, i As Integer, plage As Range
For i = 1 To 255 Step 3
     ncol = ncol + 1
     On Error Resume Next
     ActiveWorkbook.Names(ncol).Delete
     On Error GoTo 0
     Set plage = Sheets("Collecte").Range(Cells(3, i).Address & ":" & Cells(33, i).Address)
     ActiveWorkbook.Names.Add Name:="mpcol" & ncol, RefersTo:=plage
Next i
End Sub

comme sa, sa marche

29/01/2008, 06h00
AlainTech

Citation:

Envoyé par lord_boromir

comme sa, sa marche

Dans ce cas, peux-tu cliquer sur le bouton :resolu:, en bas de discussion?

Merci