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

Fermé

Steve411 - 24 juil. 2011 à 19:22
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

A voir également:

[EXL2003] Incrémentation d'une cellule en VBA
Aller à la ligne dans une cellule excel - Guide
Excel compter cellule couleur sans vba - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Faites en sorte que la cellule a1 affiche exactement ce qui est montré sur cette image. quel mot apparaît en b1 ? - Forum Excel

1 réponse

Réponse 1 / 1

Paf
24 juil. 2011 à 22:36

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 VBA : Récupérer la valeur d'une cellule

recopier une formule sans décalage

Excel si cellule contient texte alors...

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

"L'indice n'appartient à la sélection" + VBA

Discussions similaires

Newsletters