addition de donnée cyclique dans un liste

Bonjour j'ai une liste de donnée dans laquelle je m'interesse particulière à deux tipe d'information qui vont apparaite chaque celle 7+12

et chaque cellule 9 +12

concretement les premiers type données sont en A7 B7 ensuite les données de m^me type sont en A19:B19, A31:B31 +12 à chaque fois ETC
les seconde dans A9:B9 A21:B21 A33:B33 + 12 à chaque etc


en fait ce que je cherche à faire c'est la somme à chaque fois des données A7+A9 B7+B9 ensuite A19+A21 et B19+B21 chaque fois +12 en decallant

là j'ai un code qui peut me ramenant les valeur qui m'interesse mais ce qu'il me faudrais c'est la somme

Code:

---

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

Sheets("temporaire").Select         For P = 7 To 151 Step 12   Q = Q + 1 Range("J" & P & ":K" & P).Copy Sheets("temporaire2").Range("E" & Q)   Next P       For U = 9 To 151 Step 12   V = V + 1 Range("J" & U & ":K" & U).Copy Sheets("temporaire2").Range("G" & V) Next U end sub

---

Bonjour,

J'ai mis les résultats des additions en msgbox parce que je ne sais pas ce que tu veux en faire :

Code:

---

1 2 3 4 5 6

Sub test1() For P = 7 To 151 Step 12 MsgBox Cells(P, 10).Value + Cells(P, 10).Offset(2).Value MsgBox Cells(P, 11).Value + Cells(P, 11).Offset(2).Value Next P End Sub

---

En fait je veux juste les coller dans une autre feuille

une feuille cible par exemple

La somme A7+A9 en colonne A, la somme B7+B9 en colonne B.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test1() Dim P As Integer, Ligne As Integer With Sheets("Cible") For P = 7 To 151 Step 12 Ligne = Ligne + 1 .Cells(Ligne, 1) = Cells(P, 10).Value + Cells(P, 10).Offset(2).Value .Cells(Ligne, 2) = Cells(P, 11).Value + Cells(P, 11).Offset(2).Value Next P End With End Sub

---

Bonjour

ce code là ne marche pas parce que les données se trouvent sur une feuille source, je fais les calculs ensuite je les transfère sur la feuille cible.

or avec ce code, la feuille cible sur laquelle y a pas de données va recevoir que des 0 parce que la boucle se fait sur la feuille cible or la boucle doit se faire sur la feuille source et ramener les données dans la feuille cible.
merci d'avance pour tte suggestion.

Mais non, malin ! Le code doit s’exécuter avec la feuille source activée ! Comme tu ne m'as pas donné le nom de cette feuille, je ne l'ai pas mis. D'autre part, tu es censé connaître suffisamment de VBA pour faire les quelques modifications que tu désires. Mettons que la feuille contenant les données s'appelle "Source" :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test1() Dim P As Integer, Ligne As Integer With Sheets("Source") For P = 7 To 151 Step 12 Ligne = Ligne + 1 Sheets("Cible").Cells(Ligne, 1) = .Cells(P, 10).Value + .Cells(P, 10).Offset(2).Value Sheets("Cible").Cells(Ligne, 2) = .Cells(P, 11).Value + .Cells(P, 11).Offset(2).Value Next P End With End Sub

---

c'est bon c'est parfait ça marche !

Merci encore Daniel