Discussion :

[lord_boromir]

Bonjour,

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

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

Code :

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

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é

[wilfried_42]

Bonjour

essaye ca :

Code :

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

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

[Many31]

quite a faire compliquer:

Code :

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

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

[lord_boromir]

Code :

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

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

[AlainTech]

comme sa, sa marche

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

Merci