Discussion :

[CeciliaBvx]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[Invité]

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.

[halaster08]

Bonjour,

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

Remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

edit: code modifié

[CeciliaBvx]

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 ?

[halaster08]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[CeciliaBvx]

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

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Idem pour le bloc suivant.