Discussion :

[d.hinbec]

Bonsoir,

Je suis nouvelle sur le forum et totalement novice en VBA. Dans le cadre de mes études je suis censée faire un projet d'informatique sur VBA mais je ne connais pas du tout le logiciel. J'ai tout de même réussi à faire un petit bout du projet en question. MAIIIS aujourd'hui je suis bloquée.
Je voudrais savoir s'il est possible, et si oui comment faire, pour additionner terme à terme les valeurs de 2 plages de cellules. En sachant que les 2 plages sont dans 2 feuilles différentes et que je voudrais faire apparaître le résultat sur une troisième feuille...

Je vous mets en pièce jointe un schéma d'une des additions que je souhaite faire.

Merci d'avance pour votre aide et désolé de ne rien avoir à vous proposer mais je ne sais vraiment pas comment faire (la programmation c'est vraiment pas mon truc, déjà au lycée mes programmes sur calculatrice étaient un peu hasardeux ^^).

PS : si la pièce jointe ne passe pas c'est que je ne suis pas douée pour ça non plus donc dites le moi

[halaster08]

Bonjour,

En supposant que tes plages soient de la même taille:

Code :

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

1
2
3
4
5
for ligne=1 to plage1.rows.count
  for colonne=1 to plage1.columns.count
    plage3.cells(ligne,colonne).value=plage1.cells(ligne,colonne).value+plage2.cells(ligne,colonne).value
  next colonne
next ligne

[d.hinbec]

Alors mes plages sont bien de la même taille. Mais ça ne marche pas et vu que je ne comprends rien je ne sais pas pourquoi ^^

Dès la première ligne ça coince : il met erreur d'exécution 424 objet requis... Avant ton code j'ai défini mes plages 1,2 et 3 en mettant :

Code :

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

1
2
3
plage1 = Sheets("Barre1").Range("E44:G46").Value
plage2 = Sheets("Barre2").Range("B41:D43").Value
plage3 = Sheets("Globale").Range("E8:G10")

Je ne sais pas si c'est que je l'ai mal fait...

[halaster08]

Code :

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

1
2
3
plage1 = Sheets("Barre1").Range("E44:G46").Value
 plage2 = Sheets("Barre2").Range("B41:D43").Value
 plage3 = Sheets("Globale").Range("E8:G10")

Pourquoi le .value sur tes deux premières plages et pas sur la troisième ? et surtout pourquoi des .value ?

Tes plages doivent être des objets de type range

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim plage1 As Range, plage2 As Range, plage3 As Range
Set plage1 = Range("E44:G46")
Set plage2 = Range("B4143")
Set plage3 = Range("E8:G10")
 
For ligne = 1 To plage1.Rows.Count
  For colonne = 1 To plage1.Columns.Count
    plage3.Cells(ligne, colonne).Value = plage1.Cells(ligne, colonne).Value + plage2.Cells(ligne, colonne).Value
  Next colonne
Next ligne

[eriiic]

Bonjour à tous,

autre façon :

Code :

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

1
2
3
4
5
    Dim pl As Range
    Set pl = Sheets("Globale").Range("E8:G10")
    pl.FormulaR1C1 = "='Barre1'!R[36]C+'Barre2'!R[33]C[-3]"
    ' si besoin d'éliminer la formule :
    pl.Value = pl.Value

eric