bonjour à tous,
voila cela fait pas mal de temps que je recherche des solution sur le forum. Malgré mes recherche et mes essaye je bloque sur mon code VBA.
Mon bute est de pouvoir intégré rapidement une nouvelle personne dans mon tableau planning, sur un nombre de semaine définie.
Je bloque au moment d'incrémenter une valeur suivant de valeur trouvé dans une autre cellules et de copier un nombre de fois définie dans une cellule.
description de ma méthodologie pour le code VBA:
- copier cellule B2 contenant le prénom, collage en mémoire ex:B100
- copie cellule C2 contenant le numéro de la semaine de début ex:A100
- Incrémentation de la cellule A100 jusqu'à la valeur voulu (situé en D2)
- copier la cellule B100 autant de fois que la valeur de la cellule E2
-trier le tableau A10:X200 suivant la colonne A et après suivant B:B
je colle ci-après mon code:
Sub macro6()
'copier coller
Range("C2").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=81
Range("A100").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-96
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=96
Range("B100").Select
ActiveSheet.Paste
'essaye de code pour incrementé
Dim i As Integer, j As Integer
i = [E6]
If i = "0" Then
Columns("A21:A200").ClearContents
Exit Sub
Else
For j = 1 To i
Range("A" & j) = j
Next
End If
End Sub
'tri
Range("A10:Q42").Select
ActiveWindow.SmallScroll Down:=-18
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A10:A42") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B10:B42") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A10:Q42")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=15
End Sub
Merci de votre aide
voila cela fait pas mal de temps que je recherche des solution sur le forum. Malgré mes recherche et mes essaye je bloque sur mon code VBA.
Mon bute est de pouvoir intégré rapidement une nouvelle personne dans mon tableau planning, sur un nombre de semaine définie.
Je bloque au moment d'incrémenter une valeur suivant de valeur trouvé dans une autre cellules et de copier un nombre de fois définie dans une cellule.
description de ma méthodologie pour le code VBA:
- copier cellule B2 contenant le prénom, collage en mémoire ex:B100
- copie cellule C2 contenant le numéro de la semaine de début ex:A100
- Incrémentation de la cellule A100 jusqu'à la valeur voulu (situé en D2)
- copier la cellule B100 autant de fois que la valeur de la cellule E2
-trier le tableau A10:X200 suivant la colonne A et après suivant B:B
je colle ci-après mon code:
Sub macro6()
'copier coller
Range("C2").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=81
Range("A100").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-96
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=96
Range("B100").Select
ActiveSheet.Paste
'essaye de code pour incrementé
Dim i As Integer, j As Integer
i = [E6]
If i = "0" Then
Columns("A21:A200").ClearContents
Exit Sub
Else
For j = 1 To i
Range("A" & j) = j
Next
End If
End Sub
'tri
Range("A10:Q42").Select
ActiveWindow.SmallScroll Down:=-18
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A10:A42") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B10:B42") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A10:Q42")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=15
End Sub
Merci de votre aide
Pièces jointes
Dernière édition: