[EXL2003] Incrémentation d'une cellule en VBA

Question

Bonjour, 

J'ai un petit problème pour réaliser l'incrémentation d'une cellule en VBA.
Je dispose d'un classeur avec une feuille nommée Initiale qui me sert de référence avec en cellule A3 le chiffre 1 qui doit s'incrémenter au fur et à mesure.
Ce chiffre doit ensuite être copié dans la feuille Nouveau Rapport, dans la cellule A3.

Quelqu'un a une astuce ?

Voilà un bout du code

Sub ref()
Sheets("Initiale").Range("A3").Value = Sheets("Initiale").Range("A3").Value + 1
Sheets("Nouveau Rapport").Range("A3").Value = Sheets("Initiale").Range("A3").Value
End sub

Merci d'avance

Configuration: Windows Vista / Firefox 5.0

Paf · Answer

bonsoir,

Range("xx").Value est lu comme une chaine de caractères, il faut utiliser la fonction val qui force "force" la chaine en numérique.

Donc:
Sheets("Initiale").Range("A3").Value = Val(Sheets("Initiale").Range("A3").Value) + 1 

Bonne suite

[EXL2003] Incrémentation d'une cellule en VBA

1 réponse

Discussions similaires

Newsletters