Incrémentation et boucle VBA

Bonjour,

J’ai un petit souci concernant mon code VBA.

==> Pour faire simple : en A4, j’ai une valeur. Toute ma colonne est par la suite incrémentée en fonction de A4. Je ne sais pas comment expliquer cela, mais si vous voulez :
A4 = 2000
A5 = A4 – 1
Etc…

==> Par la suite, j’ai utilisé un code me permettant de copier la valeur de A4 en P14.
Je souhaiterais réaliser une boucle : tant que ma dimension totale est inférieure à ma contrainte de superficie, P14 prendra la valeur suivante, c’est-à-dire A5.

Savez-vous comment pourrais-je m’y prendre svp ?

Cdl

Bonjour Chloé, bonjour le forum,

Citation:

---

Envoyé par Chloé Ma

Toute ma colonne est par la suite incrémentée en fonction de A4.

---

Toutes ?!... Tu dois bien quand même avoir une limite, tu ne vas pas aller jusqu'à A1048576. Comment connaître cette limite ?

Idem pour la suite, tu donnes des noms mais pas des adresses ! Où va-t-on trouver la dimension totale et la contrainte de superficie ?...

Salut Chloé, pour la première partie j'ai compris mais la seconde pas trop.

Le code pour incrémenter les cellules en fonction de a4 jusqu’à 0 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub incr() Dim a As Integer Dim i As Integer a = Feuil1.Range("a4").Value Feuil1.Cells.ClearContents Feuil1.Range("a4").Value = a For i = 5 To a + 4 Feuil1.Range("a" & i).Value = Feuil1.Range("a" & i - 1).Value - 1 Next End Sub

---

Par contre effectivement fais attention de pas dépasser la capacité d'excel, mais dans tout les cas si tu le fais cela fera planter la macro.

Et fais également attention car je vide toute les cellules de la feuille donc si t'as d’autres données il faudra changer ce morceau de code. Il faudrait ton fichier pour faire un script plus précis.