VBA
Bonjour,
Je voudrais incrémenter les cellules d'une colonne avec des nombres que je saisis dans une inputbox.
Voici mon code:
Sub depense()
Dim depense As Integer
Dim i As Integer
depense = InputBox("Dépense ?", "compta")
i = 5
While IsNumeric(Cells(i, 2))
Cells(i + 1, 2) = depense
Wend
La macro s'exécute mais le programme ne s'arrête jamais. Le nombre s'inscrit dans la cellule désirée mais le programme se plante. (aucun msg d'erreur je précise)
Quelqu'un peut me dire d'ou vient le bug? ou une autre façon de faire.
merci d'avance
Je voudrais incrémenter les cellules d'une colonne avec des nombres que je saisis dans une inputbox.
Voici mon code:
Sub depense()
Dim depense As Integer
Dim i As Integer
depense = InputBox("Dépense ?", "compta")
i = 5
While IsNumeric(Cells(i, 2))
Cells(i + 1, 2) = depense
Wend
La macro s'exécute mais le programme ne s'arrête jamais. Le nombre s'inscrit dans la cellule désirée mais le programme se plante. (aucun msg d'erreur je précise)
Quelqu'un peut me dire d'ou vient le bug? ou une autre façon de faire.
merci d'avance
1 réponse
-
Bonjour,
une facon de faire:
Sub depense()
Dim depense
Dim i As Integer
'init pointeur de ligne cellule
i = 5
'boucle infinie
While -1
'entree info
depense = InputBox("Dépense ?", "compta")
'annuler, ok vide, croix rouge
If depense = "" Then Exit Sub
'conversion chaine inputbox en entier et ecriture cellule
Cells(i, 2) = CInt(depense)
'incrementation pointeur cellule
i = i + 1
Wend
End Sub
