RÉSOLU: Insertion multiple suivant das valeurs

[gonz19]

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

 

[Compte Supprimé 979]

Re : incrémenté en VBA

Bonjour,

Il serait bien de mettre dans une autre feuille le résultat escompté 😉

A+

 

[gonz19]

Re : incrémenté en VBA

je re poste mon fiché avec une explication et une demo supplémentaire.

 

[Compte Supprimé 979]

Re : incrémenté en VBA

Re,

Voici ton fichier avec le code qui devrait fonctionner 😉

A+

 

[gonz19]

Re : incrémenté en VBA

bonjour,

j'ai pas grand chose à dire à par merci, propre net et précis.
merci pour les commentaires qui m'aide à me familiariser un peu plus avec le codage

merci