Discussion :

[Sarah SO]

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,

[ARTURO83]

Bonjour,

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

[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,

[Patrice740]

Bonjour,

... 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 :

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

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 :

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

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

[PrinceCorwin]

Bonjour,

un petit code

Code :

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

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.



Bonne continuation.