Code VBA Dégression

Version imprimable

24/03/2021, 09h37
Sarah SO

Code VBA Dégression

Bonjour,

J'ai un petit soucis avec un code VBA. En faite, j'entre un nombre de séche-cheveux ( ex 1020).
J'aimerais par la suite, créer une colonne qui parte de 1020 et qui arrive jusqu'à la dernière colonne à 0.

J'ai réalisé cela, cependant, lorsque je varie le nombre de départ, cela ne change pas toute ma colonne.

Comment faire svp ?

Cdl,
24/03/2021, 09h53
ARTURO83

Bonjour,

Citation:

J'aimerais par la suite, créer une colonne qui parte de 1020 et qui arrive jusqu'à la dernière colonne à 0.

Ne serait-ce pas "dernière LIGNE" plutôt que "dernière COLONNE"?

Et si vous montriez le code que vous avez déjà fait?

Cdlt
24/03/2021, 10h21
Sarah SO

Bonjour,

Je vous remercie pour votre réponse.

Non, je travaille bien en colonne.
Etant donnée que le code était complexe et n'était pas juste. J'ai réalisé une macro plutôt. Le seul soucis est que j'aimerais que ma macro continue jusqu'à obtenir le nombre 0.

Comment faire pour prendre en compte cela par le biais d'une macro ?

Cdl,

Bonjour,

Citation:

Envoyé par Sarah SO

... créer une colonne qui parte de 1020 et qui arrive jusqu'à la dernière colonne à 0.
... j'aimerais que ma macro continue jusqu'à obtenir le nombre 0.

Pas sûr d'avoir bien compris, peut-être :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Sub test()
Dim decalageColonne As Long
Dim valeurCellule As Integer
Const colonneDebut As String = "D"
Const numeroLigne = 5
 
  For valeurCellule = 1020 To 0 Step -1
    decalageColonne = 1020 - valeurCellule
    Worksheets("Feuil1").Cells(numeroLigne, colonneDebut).Offset(0, decalageColonne) = valeurCellule
  Next valeurCellule
 
End Sub

ou :

Code:

1
2
3
4
5
6
7
8
9
10
Option Explicit
Sub test()
Dim decalageColonne As Long
Dim valeurCellule As Integer
Const celluleDebut As String = "D5"
 
  For valeurCellule = 1020 To 0 Step -1
    decalageColonne = 1020 - valeurCellule
    Worksheets("Feuil1").Range(celluleDebut).Offset(0, decalageColonne) = valeurCellule
  Next valeurCellule

End Sub

1 pièce(s) jointe(s)

Bonjour,

un petit code

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4:B6")) Is Nothing Then
    If Target.Value2 < 16380 Then
        Range(Cells(Target.Row, 3), Cells(Target.Row, 16384)).ClearContents
        For x = 1 To Target.Value
            Cells(Target.Row, 2 + x) = Target.Value2 - x
        Next
    End If
End If
End Sub

En changeant la valeur dans la plage B4:B6, affiche la quantité décrémentée de 1 jusqu'à afficher 0.

Pièce jointe 594174

Bonne continuation.