Décaler l'ensemble des formules d"une macro

Bonjour,

J'ai crée une Userform, j'ai un code qui marche bien qui me traite des données. J'aimerai lorsque je clique sur un autre bouton de l'userform que je puisse relancé mon code mais que toutes les formules (dans mon code) soit décalé à la suite de ce que j'ai déjà traité.
Par exemple sur l'image suivante j'aimerai repartir à la colonne N sans avoir à rechanger tout mon code (sachant que mon nombre de colonne et ligne peut varier suivant les données que je traite).

J'espère être compréhensible:mrgreen:
Pièce jointe 200079

En vous remerciant par avance.

Bonjour,

euh, pas super compréhensible malheureusement :weird:

peut être qu'avec le code on y verrait plus clair ? Voir un peu plus de précision dans la façon de décrire.

J'ai plusieurs code de ce type là, à la suite.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

For a = 5 To Profondeurson Step 2   Cells(a, 5).Select With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With Next Dim b As Integer b = 0 While b <= Profondeur * 4 Cells(b + 5, 4).Value = b * 0.25 b = b + 2 Wend

---

Il faudrait donc que lorsque je clique sur un bouton de l'userform ce code puisse s'appliquer à Cells(a,5+le nombre de ligne déjà occupées +2 par exemple). J'aimerai qu'à chaque fois que je reclique sur ce bouton ça se décale automatiquement.

J'espère avoir été plus clair.

Petite amélioration de ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim a As Integer For a = 5 To Profondeurson Step 2 With Cells(a, 5).Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With Next a   For a = 0 to Profondeur * 4 Step 2 Cells(a + 5, 4).Value = a * 0.25 Next a

---

Est-il normale que les limites des boucles soit différentes (Profondeurson et Profondeur * 4) ?
Parce que j'ai la nette impression qu'il y a une forte relation entre les deux et qu'il serait possible d'écrire une seule boucle For.

Pour la fonction que tu souhaites, ceci devrait faire l'affaire (même si, en aveugle, ce n'est pas évident de comprendre ce que tu souhaites) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim a As Integer, Der As Integer   Der = Cells(5,Columns.Count).End(xlToLeft).Row   For a = 5 To Profondeurson Step 2 With Cells(a, Der+3).Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With Next a   For a = 0 to Profondeur * 4 Step 2 Cells(a + 5, Der+2).Value = a * 0.25 Next a

---

Tu auras peut-être à ajuster le +2 et le +3.