Discussion :

[bernadin.m]

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 :

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

[Daniel.C]

Bonjour,

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

Code :

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

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

[bernadin.m]

En fait je veux juste les coller dans une autre feuille

une feuille cible par exemple

[Daniel.C]

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

Code :

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

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

[bernadin.m]

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.

[Daniel.C]

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 :

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

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