Re : Incrémente un tableau avec vba FOR et TO
Bonsoir à tous,
En cliquant sur le bouton GO les mois de Janvier et Février se font !
En cellule A1 il y a la somme de NB de Janvier ( à ne pas supprimer)
En cellule A2 il y a la somme de NB de Février ( à ne pas supprimer)
Pour les autres mois, il faut adapter les lignes et les colonnes correspondantes et faire des autres sommes pour les mois !
En gras les rectifs a faire selon mois ( ici janvier )
Sub trie_lundi()
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
With Sheets("PDS")
If .Range("B17") = 0 Then
"""" si la cellule B17 = 0 alors cellules suivantes effacées
Range("C14
163") = ""
Range("F14:G163") = ""
Exit Sub
End If
Range("C14163") = ""
'''' cellules effacées
Range("F14:G163") = ""
'''' cellules effacées
For i = 4 To 16
If .Cells(i, 11) = "" Then Exit Sub
.Cells(i, 11).Copy
Sheets("Planning").Cells(
14 + Range("A1"), 3).Select
'''''' 14 Premiere Ligne et Range("A1")=somme du Lundi ( Range("A2") étant celle du Mardi
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Cells(i, 12).Copy
Sheets("Planning").Cells(
14 + Range("A1"), 4).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If .Cells(i,
2) = "" Then
"" 2 correspondant à la colonne B ( Janvier de PDS)
Sheets("Planning").Cells(
14 + Range("A1"), 6) = 1
Else
Sheets("Planning").Cells(
14 + Range("A1"), 6) = .Cells(i,
2)
"" 2 correspondant à la colonne B ( Janvier de PDS)
End If
For j = 1 To .Cells(i,
2) - 1
"" 2 correspondant à la colonne B ( Janvier de PDS)
Sheets("Planning").Cells(j +
13 + Range("A1") - ActiveCell.Offset(0, 2) + 1, 3) = Sheets("Planning").Cells(j +
13 + Range("A1") - ActiveCell.Offset(0, 2), 3)
'''' 13 une ligne en dessous de la premiere ligne
Sheets("Planning").Cells(j +
13 + Range("A1") - ActiveCell.Offset(0, 2) + 1, 4) = Sheets("Planning").Cells(j +
13 + Range("A1") - ActiveCell.Offset(0, 2), 4)
Sheets("Planning").Cells(j +
13 + Range("A1") - ActiveCell.Offset(0, 2), 7) = j
Sheets("Planning").Cells(j +
13 + Range("A1") - ActiveCell.Offset(0, 2) + 1, 7) = j + 1
Next j
Application.CutCopyMode = False
Next i
Range("C14:G163").Select
With Selection.Font
.Name = "Arial"
.Size = 12
.Color = 255
End With
End With
Application.ScreenUpdating = True
End Sub
bonne nuit !