Incrémentation Feuille Excel

Bonjour,

Je suis débutante en VBA et j'ai un soucis avec mon programme. Pour faire plus simple je vous le montre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Macro2()   x = "D138" y = "D139" i = 0   While x <> 0 And y <> 0   i = i + 1 Range("A1:J75").Select ActiveWindow.SmallScroll Down:=-105 ActiveCell.FormulaR1C1 = "='Feuil' + i !R[66]C[2]" Range("B6").Select ActiveCell.FormulaR1C1 = "='Feuil' + i !R[67]C[1]" Range("B7").Select ActiveWindow.SmallScroll Down:=39   Wend End Sub

---

Voila alors mon soucis se situe à la ligne 'Feuil' + i
Apparemment Excel n'apprécie pas trop trop
J'aimerai en faite incrémenter mon numéro de feuille à chaque itération de ma boucle while car à chaque nouvelle itération je dois récupérer une valeur dans la feuille précédente.
Exemple : Feuille 2 a comme valeur x & y ; dans ma feuille 3 je veux récupérer ce X et Y et ainsi de suite pour chaque feuille.
J'espère que je suis assez claire dans mes explications
Le titre de ma demande n'est peut-être pas très approprié et je m'en excuse.
J'apprend vraiment sur le tas donc c'est pour cela que je viens solliciter votre aide car malgré avoir chercher je n'ai rien trouvé qui correspondrait à mes attentes :)

Merci d'avance !!

Citation:

---

Envoyé par CeciliaBvx

---

Bonjour,

Une fonction indirect ne suffirait pas ? boisgontierjacques.free.fr

Salut Jacques : Je me servais de tes fichiers (datant du MPFE si je me souviens bien), mais là ton site est une vraie pépite. :applo:

Bonjour,

Tout ce qui est entre guillement est considéré comme du texte.

Remplace

Code:

---

"='Feuil' + i !R[66]C[2]"

---

Par:

Code:

---

"='Feuil" & i &"'!R[66]C[2]"

---

edit: code modifié

Bonjour,

Merci de ta réponse halaster08. Cependant j'ai essayé ce que tu m'avait dit mais cela ne fonctionne pas, il y a une erreur de compilation, la ligne est surligné en jaune.

Eric KERGRESSE, j'ai en effet vu cette fonction indirect mais je crois qu'elle n'est pas approprié à ce que je voudrai faire.

On m'a parlé de :
Sheets ((Sheets.Count)-1)
Mais je n'arrive pas à l'utilisé dans mon code, car moi ce que je voudrai c'est récupéré la cellule B1 de la feuille d'avant à chaque itération.
Mais peut-être qu'avec vos connaissances vous auriez une piste pour moi ?

J'ai édité mon code précédent une aposthrophe était mal placée.
Par contre tu dis vouloir récupérer la cellule B1 mais ce n'est pas du tout ce que fait ton code

Code:

---

activecell.value= sheets(activesheet.index -1).range("B1").value

---

B1 était un exemple donné pour bien vous illustré ce que je cherche à faire
Je vais essayé ton code alors !

Citation:

---

Envoyé par CeciliaBvx

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Macro2()   x = "D138" y = "D139" i = 0   While x <> 0 And y <> 0   i = i + 1 Range("A1:J75").Select ActiveWindow.SmallScroll Down:=-105 ActiveCell.FormulaR1C1 = "='Feuil' + i !R[66]C[2]" Range("B6").Select ActiveCell.FormulaR1C1 = "='Feuil' + i !R[67]C[1]" Range("B7").Select ActiveWindow.SmallScroll Down:=39   Wend End Sub

---

---

Même sans savoir exactement ce que tu veux faire, ton code ne peut pas fonctionner pour plusieurs raisons.

La condition pour sortir de ta boucle est x <> 0 And y <> 0. Or, il n'y a rien dans ta boucle qui modifie l'une ou l'autre de ces variables.
Donc, ta boucle va tourner indéfiniment ou, plus exactement, jusqu'à ce qu'une erreur se produise.
A mon avis, tu devrais remplacer ton While par un simple For To sur la variable i.

Deuxièmement, à chaque tour de boucle, tu écris dans des cellules dont l'adresse ne change pas.
Donc, chaque tour de boucle détruit ce qu'à fait le tour précédent.

Petit détail supplémentaire : supprime les SmallScroll, sans doute issus d'un code obtenu avec l'enregistreur de macro mais totalement inutiles.

Une fois que tu auras réglé ces points majeurs, tu pourras t'attaquer au problème de ta formule (vu que cette erreur est la seule chose qui t'évite d'exécuter une boucle infinie).
Je ne comprends pas exactement ce que tu souhaites faire, mais il serait mieux de remplacer :

Code:

---

1 2 3

Range("A1:J75").Select ActiveWindow.SmallScroll Down:=-105 ActiveCell.FormulaR1C1 = "='Feuil' + i !R[66]C[2]"

---

Par

Code:

---

Range("A1:J75").Formula = "='Feuil'" & i & "!B66"

---

Idem pour le bloc suivant.

J'ai testé ton code et cela a fonctionné super !! Merci beaucoup !!

Comme tu as l'air d'être plutôt doué en VBA, j'ai maintenant un nouveau soucis et je pense que tu pourrai peut-être m'aider (sans abuser de ta gentillesse !). C'est un truc tout bête surement.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Macro4()   x = "D72" y = "D73"   While x > 0 And y > 0   Range("A1:J74").Select Selection.Copy Sheets.Add After:=ActiveSheet Range("A1").Select ActiveSheet.Paste Range("A6").Select Application.CutCopyMode = False ActiveCell.Value = Sheets(ActiveSheet.Index - 1).Range("C72").Value Range("B6").Select ActiveCell.Value = Sheets(ActiveSheet.Index - 1).Range("C73").Value ActiveWindow.SmallScroll Down:=51   Wend   End Sub

---

En faite dans mon calcul, je définis x et y en variable global en haut et lorsque ma boucle while s’exécute, il compare x à 0 et y à 0. Cependant, à chaque fois que j'ai de nouveaux calculs, x et y sont recalculés à chaque itération.
Comment je pourrai faire pour qu'à chaque nouvelle itération, mon x et mon y soit redéfini ?

Exemple : premier tour - > x = D72 & y = D73 on compare dans le while, si ce n'est pas le cas on rentre dans la boucle. A ce moment là x est recalculé et y est recalculé. Deuxième tour - > x = D72(bis) et y = D73(bis)
(Les valeurs de x et y sont en faite celles de la feuille de calcul actuelle, comme à chaque itération une nouvelle feuille est crée)

Voila j'espère que tu as bien compris ce que j'ai cherché à faire et que j'ai été assez clair dans mes explications.
Je pense qu'une boucle sera nécessaire.

Citation:

---

Envoyé par CeciliaBvx

B1 était un exemple donné pour bien vous illustré ce que je cherche à faire

---

Un exemple ne suffit pas pour comprendre ce qu'un code doit faire. Il faut donner la règle complète.
Si tu n'arrives pas à exprimer clairement cette règle, c'est qu'elle n'est pas claire et donc que tu dois travailler dessus pour la préciser.

Bonjour Menhir,

Je te remercie pour ta réponse,
Je viens de poster un message qui reprend bien le problème que tu as soulevé.
Je tourne effectivement dans le vide car il faudrait que j'arrive à redéfinir x et y à chaque nouvelle itération.
Pour ce qui concerne le deuxième problème que tu as souligné "tu écris dans des cellules dont l'adresse ne change pas." tout va bien pour cela car à chaque nouvelle itération une nouvelle feuille de calcul est crée donc je ne perd rien.
J'ai en effet enregistré une macro car je n'ai pas du tout les connaissances pour pouvoir tout développer en VBA. L’enregistrement de la macro était donc la solution la plus simple.
Merci pour le conseil je vais supprimer SmallScroll

Pour mon problème précédant je l'ai bien résolu. Merci halaster08 encore !

Si tu écris la boucle comme ceci le calcul se refait a chaque itération.

Code:

---

While range("D72").value > 0 And range("D73").value > 0

---

Mais ça ne résoud pas ton problème de boucle infinie, puisque ces cellules sont copiées a chaque fois ici

Code:

---

1 2 3 4 5

Range("A1:J74").Select Selection.Copy Sheets.Add After:=ActiveSheet Range("A1").Select ActiveSheet.Paste

---

Et je ne vois rien dans le reste du code qui les modifie.
Donc si c'est vrai une fois ça le sera toujours.

Citation:

---

Envoyé par CeciliaBvx

En faite dans mon calcul, je définis x et y en variable global en haut et lorsque ma boucle while s’exécute, il compare x à 0 et y à 0. Cependant, à chaque fois que j'ai de nouveaux calculs, x et y sont recalculés à chaque itération.
Comment je pourrai faire pour qu'à chaque nouvelle itération, mon x et mon y soit redéfini ?

---

Non. Tes deux variables x et y ne contiennent pas des références à des cellule mais simplement du texte (même si ce texte ressemble à une référence de cellule).

Pour que ce soit des références de cellules, il faudrait écrire :

Code:

---

1 2 3

Dim x As Range, y As Range Set x = Range("D72") Set y = Range("D73")

---

Au passage, profite-en pour remarqué que j'ai pris la peine de déclarer ces variables avec leur type.
Quant on veut coder proprement, il est indispensable de définir toutes les variable en début de code.

Autre conseil : lorsque tu récupères du code à l'aide de l'enregistreur automatique, prends le temps d'étudier chaque élément de ce code pour le "débarbouiller" en enlevant ce qui est inutile.

Par exemple au lieux d'écrire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Range("A1:J74").Select Selection.Copy Sheets.Add After:=ActiveSheet Range("A1").Select ActiveSheet.Paste Range("A6").Select Application.CutCopyMode = False ActiveCell.Value = Sheets(ActiveSheet.Index - 1).Range("C72").Value Range("B6").Select ActiveCell.Value = Sheets(ActiveSheet.Index - 1).Range("C73").Value ActiveWindow.SmallScroll Down:=51

---

Il serait plus propre d'avoir :

Code:

---

1 2 3 4 5

Range("A1:J74").Copy Sheets.Add After:=ActiveSheet Range("A1").PasteSpecial(xlPasteValue) Range("A6")..Value = Sheets(ActiveSheet.Index - 1).Range("C72").Value Range("B6").Value = Sheets(ActiveSheet.Index - 1).Range("C73").Value

---

La solution que tu m'as donné halaster08 fonctionne!
Je n'ai pas de boucle infini dans mon code, il s'arrête bien comme prévu!

J'ai juste un petit soucis, la boucle s'arrête lorsque que x < 0 mais pas lorsque x ET y sont < 0
C'est comme s'il ne comprenait pas mon AND et qu'il le remplaçait par un OR.

C'est toi qui a un problème de logique:

Code:

---

not(x>0 and y>0) = not(x>0 ) or not(y>0) = x<0 or y<0

---

Ok merci. J'ai résolu mon soucis