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

Steve411 -
Paf - 24 juil. 2011 à 22:36

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

Afficher la suite

A voir également:

[EXL2003] Incrémentation d'une cellule en VBA
Excel compter cellule couleur sans vba - Guide
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Proteger cellule excel - Guide
Diviser une cellule excel en deux horizontalement - Forum Excel

1 réponse

Réponse 1 / 1

Paf

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

Discussions similaires

excel fractionner une cellule horizontalement

Remplir une cellule (texte) en fonction d'une autre (texte).

Excel : colorer une cellule sous condition d'une autre ?

Excel VBA : Récupérer la valeur d'une cellule

Excel formule : savoir si une cellule contient partie texte

Votre réponse

Discussions similaires