Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel décrémenter un compteur de byte...

décrémenter un compteur de byte...

3 réponses
Avatar
galopin01
Bonjour,
XP + Excel2003
Bizarre... Je n'arrive pas à décrémenter un compteur de byte :
Sub test()
Dim a As Byte
For a = 12 To 1 Step -1
MsgBox a
Next
End Sub
... ça ne passe pas. On ne peux qu'incrémenter...
Sub test()
Dim a As Byte
For a = 1 To 12
MsgBox a
Next
End Sub
...pas de problème !
Bah !
Bonne année à tous.
A+
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour,

Avec Dim A as Integer

ça va marcher !



"galopin01" a écrit dans le message de groupe de
discussion :
Bonjour,
XP + Excel2003
Bizarre... Je n'arrive pas à décrémenter un compteur de byte :
Sub test()
Dim a As Byte
For a = 12 To 1 Step -1
MsgBox a
Next
End Sub
... ça ne passe pas. On ne peux qu'incrémenter...
Sub test()
Dim a As Byte
For a = 1 To 12
MsgBox a
Next
End Sub
...pas de problème !
Bah !
Bonne année à tous.
A+
Avatar
isabelle
bonjour,

faut aussi mentionner : et ne peuvent contenir ni caractère de
déclaration de type ni point.

isabelle

Le 2009-12-30 14:29, michdenis a écrit :
Bonjour,

Avec Dim A as Integer

ça va marcher !



"galopin01" a écrit dans le message de groupe de
discussion :
Bonjour,
XP + Excel2003
Bizarre... Je n'arrive pas à décrémenter un compteur de byte :
Sub test()
Dim a As Byte
For a = 12 To 1 Step -1
MsgBox a
Next
End Sub
... ça ne passe pas. On ne peux qu'incrémenter...
Sub test()
Dim a As Byte
For a = 1 To 12
MsgBox a
Next
End Sub
...pas de problème !
Bah !
Bonne année à tous.
A+




Avatar
galopin01
Bonjour,
C'est bien ce que j'avais compris ...après un petit quart d'heure de
recherche !
ça m'a rendu fou de joie, car ma Function elle, elle attendait des bytes...
Bon ça n'empêchera quand même pas d'arroser cette fin d'année (avec
modération !) Mébon.
A+



"michdenis" a écrit dans le message de news:

Bonjour,

Avec Dim A as Integer

ça va marcher !



"galopin01" a écrit dans le message de
groupe de
discussion :
Bonjour,
XP + Excel2003
Bizarre... Je n'arrive pas à décrémenter un compteur de byte :
Sub test()
Dim a As Byte
For a = 12 To 1 Step -1
MsgBox a
Next
End Sub
... ça ne passe pas. On ne peux qu'incrémenter...
Sub test()
Dim a As Byte
For a = 1 To 12
MsgBox a
Next
End Sub
...pas de problème !
Bah !
Bonne année à tous.
A+