Nom de plage de cellules

[gds35]

Bonjour , mes AMIS du Forum , Bon Dimanche ,
Je planche sur un truc depuis 48H Voila :
J'ai 12 Feuilles s'appelant 09 à 12 Année N et 01 à 08 Année N+1
J'ai des zones de saisie C6:C9 et H6:H9 Puis C14:C17 et H14:H17
jusqu'a C126:C129 je voudrais que toutes ces zone de saisies se nomme
ZONESAISIE pour apres sélectionner le nom et faire un .Value = 0 ,
je galere et ni arrive pas dans une boucle . Mes AMIS quelqu'un peut-il m'aider
D'avance Merci Cordialement GDS35

 

[job75]

Re : Nom de plage de cellules

Bonjour,

For i = 6 to 126 Step 8
Range(Cells(i, 3), Cells(i + 3, 3)) =  0
Range(Cells(i, 8), Cells(i + 3, 8)) =  0
Next

Nul besoin de sélectionner.

A+

Edit : pour toutes les feuilles (merci Staple, j'avais oublié) :

For Each ws in Worksheets
With ws
For i = 6 to 126 Step 8
.Range(.Cells(i, 3), .Cells(i + 3, 3)) =  0
.Range(.Cells(i, 8), .Cells(i + 3, 8)) =  0
Next
End With
Next

 

[Staple1600]

Re : Nom de plage de cellules

Bonsoir

EDITION
Après relecture, et en reprenant et modifiant le code de job75
(et si j'ai bien compris le résultat souhaité)

Sub zones_a_zero()
Dim x As String, y As String
For i = 126 To 6 Step -8
For Each Ws In Worksheets
    With Ws
        .Range(Cells(i, 3).Resize(4, 1).Address & "," _
        & Cells(i, 8).Resize(4, 1).Address) = 0
    End With
Next
Next
End Sub

Si c'est pour effacer le contenu

Sub effaces_valeurs_zones()
Dim x As String, y As String
For i = 126 To 6 Step -8
For Each Ws In Worksheets
    With Ws
        .Range(Cells(i, 3).Resize(4, 1).Address & "," _
        & Cells(i, 8).Resize(4, 1).Address).ClearContents
    End With
Next
Next
End Sub

Voici une autre facon de faire (EDITION :solution ne convenant pas entièrement)

Ici prise en compte de toutes les feuilles du classeur

Sub reinit_zones()
Dim i As Byte
zones = Split("C6:C9/H6:H9/C14:C17/H14:H17/C126:C129", "/")
For i = LBound(zones) To UBound(zones)
For Each Ws In Worksheets
Ws.Range(zones(i)).Value = 0
Next
Next
End Sub

 

[gds35]

Re : Nom de plage de cellules

Merci a Vous mes AMIS STAPLE1600 et Job75 , Je vais tester demain vos résolutions a mon PB et vous tient au courant ss PB . Bonne fin de WE
Cordialement GDS35

 

[gds35]

Re : Nom de plage de cellules

Bjr mes AMIS , STAPLE1600 , JB75 et tout le Forum,

vos solutions marchent ss Pb , simplement j'avais oublié de préciser que dans mon classeur j'avais d'autres feuilles BASE DONNEES 09...........12 RESULTAT
et je ne veux remettre à 0 que les feuilles 09 à 12 , donc je ne peux faire For each ws in worksheets..... La le bas blesse , comment faire???
Cordialement GDS

 

[job75]

Re : Nom de plage de cellules

Bonjour gds35, le forum,

Il faut faire un test sur le nom des feuilles. Pour traiter tous les mois :

For Each ws In Worksheets
With ws
[COLOR="Red"]If .Name Like "##" Then[/COLOR]
For i = 6 To 126 Step 8
.Range(.Cells(i, 3), .Cells(i + 3, 3)) = 0
.Range(.Cells(i, 8), .Cells(i + 3, 8)) = 0
Next
[COLOR="Red"]End If[/COLOR]
End With
Next

Voyez l'aide de VBA sur l'opérateur Like.

A+

Edit : si parmi les feuilles des mois vous ne voulez que les feuilles 09 10 11 12, testez autrement :

[COLOR="Red"]On Error Resume Next[/COLOR]
For Each ws In Worksheets
With ws
[COLOR="Red"]If .Name * 1 < 9 Then GoTo 1[/COLOR]
For i = 6 To 126 Step 8
.Range(.Cells(i, 3), .Cells(i + 3, 3)) = 0
.Range(.Cells(i, 8), .Cells(i + 3, 8)) = 0
[COLOR="Red"]1 Next[/COLOR]
End With
Next

 

[gds35]

Re : Nom de plage de cellules

Salut l'AMI , je teste mais si j'ai bien compris la ligne de code :
If .Name Like "##" Then....... l'instruction "##" represente le Nom des feuilles 01 à 12??
c'est bien cela ? Cordialement et MERCI de Nouveau GDS35