Boucle for avec références dépendant de l'incrément

Bonjour,

J'ai réalisé un petit algorithme que j'aimerais implémenter sous VBA. Le problème c'est que je n'ai aucune idée de comment le réaliser. En effet, certaines référence de cellules contiennent des formules et je ne sais pas faire ça. Voilà à quoi je voudrais que ça ressemble :

Donc on part d'un classeur Excel avec différentes feuilles déjà créées et dont certaines cellules sont déjà remplies. Il y a une feuille Synthèse, une Tr, une Données et un grand nombre de feuille (Nb_mesure) dont le nom est le numéro de la mesure à laquelle elle est associée (feuille "i" pour la ième feuille de ce type).

Voilà l'algorithme que j'aimerais appliquer :

Pour i=1:Nb_mesure
Feuille "i"/R4:AH4=Données/I(10+31(i-1)):I(26+31(i-1))
Feuille "i"/R5:AH5=Données/Q(10+31(i-1)):Q(26+31(i-1))
Feuille "i"/R6:AH6=Données/Y(10+31(i-1)):Y(26+31(i-1))

Feuille"i"/R9:AH9=Tr/E(Synthèse/E(i+1)):U(Synthèse/E(i+1))

Synthèse/R(i)=Feuille "i"/AK18-Feuille "i"/AN18

Fin

Comme vous pouvez le voir, les références de cellule contiennent des formules assez compliquées.

Merci pour vos réponses

Bonjour,

Je ne comprends pas à quoi correspondent les barres de division; à des points d'exclamation ?

Oui, c'est ça, désolé c'était plutôt pour mettre en algo que déjà en language Excel.

Dans l'expression "I(10+31(i-1))", Qu'est-e que représente "I" ? la colonne ? Si oui, les 3 premières lignes peuvent se traduire par :

Code:

---

1 2 3 4 5

For i = 1 To Nb_mesure Sheets(i).[R4:AH4] = Sheets("Données").Range("I" & 10 + 31 * (i - 1) & ":I" & 26 + 31 * (i - 1)) Sheets(i).[R5:AH5] = Sheets("Données").Range("Q" & 10 + 31 * (i - 1) & ":Q" & 26 + 31 * (i - 1)) Sheets(i).[R6:AH6] = Sheets("Données").Range("Y" & 10 + 31 * (i - 1) & ":Y" & 26 + 31 * (i - 1)) Next i

---

Je n'ai pas su interpréter :

Citation:

---

Feuille"i"/R9:AH9=Tr/E(Synthèse/E(i+1)):U(Synthèse/E(i+1))

Synthèse/R(i)=Feuille "i"/AK18-Feuille "i"/AN18

---

Est-ce que tu peux expliquer en français ce que tu veux faire ? Est-ce que tu peux mettre un classeur exemple - sans données confidentielles - avec quelques feuilles ?

Re bonjour,

Dans I(10+31(i-1)), I représente bien le nom de la colonne.

J'ai fais un petit fichier excel pour expliquer plus en détail :
Ici, je pars avec 3 mesures à traiter (pour faire simple, mais j'aimerais pouvoir utiliser ce code pour traiter 200 mesures...). Ces mesures sont copiées dans la feuille Données depuis un logiciel d'acoustique. Certaines données sont copiées dans la feuille Tr et seront utilisées par la suite également. Sur le fichier de base apparaissent déjà les i feuilles (1, 2, 3) avec leurs formules implémentées .Ici, pour simplifier, j'ai gardé les mêmes références de cellules que dans mon algorithme pour que ce soit clair mais je n'ai pas fait apparaître les feuilles de calcul en question qui sont bien plus compliquées.

Ce que je voudrais automatiser par une macro c'est :

1. Copier coller (en transposer) les colonnes surlignées de la feuille Données dans les feuilles de calcul. Il y a 3 séries de données par feuille i à copier (émission, réception, bruit de fond). Si on revient sur ce que j'avais écris en algorithme, ces 3 colonnes correspondent à :
Feuille "i"!R4:AH4=Données!I(10+31(i-1)):I(26+31(i-1))
Feuille "i"!R5:AH5=Données!Q(10+31(i-1)):Q(26+31(i-1))
Feuille "i"!R6:AH6=Données!Y(10+31(i-1)):Y(26+31(i-1))

2. Copier coller la bonne ligne de Tr. Pour cela, il faut aller récupérer dans Synthèse le numéro du Tr correspondant à la mesure pour aller copier la bonne ligne à partir de la feuille Tr. L'algo correspondant avec les bonnes références est :
Feuille"i"!R9:AH9=Tr!E(Synthèse!E(i+1)):U(Synthèse!E(i+1))

3. Récupérer le résultat et le correcteur des feuilles de calcul et les reporter sur la synthèse selon : Synthèse!R(i)=Feuille "i"!AK18-Feuille "i"!AN18

Merci pour votre aide.

Au final, j'ai réussi à m'en sortir avec des formules du type que vous m'aviez conseillé. Je pense que mon code n'est pas vraiment optimisé, par exemple, au lieu d'attribuer les valeurs d'une cellule a une autre, j'ai du les copier/coller en transposée car il ne fait pas la correspondance entre une range en ligne et une range en colonne... ça ressemble à ça :

Code:

---

1 2 3 4 5 6

Sheets("Données").Select Range("I" & 10 + 31 * (i - 1) & ":I" & 26 + 31 * (i - 1)).Select Selection.Copy Sheets(i).Select Range("R4:AH4").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

---

En tout cas merci beaucoup.