VBA
guillaume
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
