VBA

Fermé
guillaume - 7 sept. 2013 à 00:28
f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 - 7 sept. 2013 à 07:27
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

1 réponse

f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 1 680
7 sept. 2013 à 07:27
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
0