Discussion :

[Alex86]

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


En vous remerciant par avance.

[joe.levrai]

Bonjour,

euh, pas super compréhensible malheureusement

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.

[Alex86]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Menhir]

Petite amélioration de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.