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
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
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
7 sept. 2013 à 07:27
Bonjour,
une facon de faire:
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