Discussion :

[kewan]

Salut tout le forum,

j'ai besoin de votre aide.

Dans mon classeur j'ai une feuille récapitulative qui va contenir des données de plusieurs personnes et 1 feuille par personne.

Le nom des feuilles "personnelles" est un chiffre de 1 à x

Je voudrais que sur chaque feuille "personnelle" la cellule B7 indique la valeur d'une cellule de la colonne D de la feuille récapitulative.

Je souhaite donc parcourir mes feuilles "personnelles" tout en parcourant la colonne D de la feuille récapitulative.

Voilà mon code pour l'instant :

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
Sub test()
 
Dim numFeuille As Integer
Dim numLigne As Integer
 
numLigne = 4
 
For numFeuille = 1 To 20
 
    Sheets("" & numFeuille & "").Range("B7").Formula = "=recap!(D" & numLigne & ")"
 
    numLigne = numLigne + 1
 
 Next
 
 End Sub

Merci pour vodre aide.

Edit Resolu :

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
Sub test()
 
    Dim numFeuille As Integer
    Dim numLigne As Integer
 
    numLigne = 4
 
    For numFeuille = 1 To 20
 
        Sheets("" & numFeuille & "").Range("B7").Formula = "=recap!D" & numLigne
 
        numLigne = numLigne + 1
 
    Next
 
End Sub

[Alex020181]

Salut

Tu peux simplifier ton code.

Code VBA :

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
 
Sub test()
 
    Dim numFeuille As Integer
    Dim numLigne As Integer
 
    numLigne = 4
 
    For numFeuille = 1 To 20
 
        Sheets(numFeuille).Range("B7").Formula = "=recap!D" & numLigne
 
        numLigne = numLigne + 1
 
    Next numFeuille
 
End Sub

Les doubles guillemets te sont inutiles puisqu'ils ne contiennent aucune valeur.
Conseil: derrière tes Next reprécise toujours le nom de la variable concernée par la boucle for. Cela te permettra de savoir où tu en est. Dans le cas présent tu n'as qu'une seule boucle mais dans un code avec plusieurs boucles imbriquées ce sera plus facile de t'y retrouver.

[kewan]

Bonjour Alex020181


Merci pour ton aide.

Code :

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

1
2
3
4
5
    For numFeuille = 1 To 20
 
        Sheets(numFeuille)._ _ _ _ _ __ _ _       
 
    Next numFeuille

J'avais mis les doubles guillemets parce qu'avec Sheets(numFeuille) il me semble que la feuille est sélectionnée en fonction de son index et pas de son nom (qui est un chiffre).

Je vais réessayer.

[Alex020181]

Oui.

Sheets("blabla") travaille sur la feuille nommée "blabla".

Sheets(1) travaille sur la feuille d'index 1.

Code :

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

1
2
3
Dim nom_feuille as string
nom_feuille = "blabla"
Sheets(nom_feuille)

travaille sur la feuille dont le nom est la valeur de la variable nom_feuille (donc ici la feuille "blabla").