Discussion :

[gibba88]

Bonjour

avant tout je vous remercier d'avance pour votre partcipation.
Voici mon probleme .
J'ai un macro qui me permet de faire la somme de 3 plage de Cellules A1,B1 et C1 .Le code marche mais j'aimerais l'adapter a une infinité de plage .
Pour le faire il me faut faire une boucle FOR et le code beugue a chaque fois que je fais la boucle.

Si vous avez des propositions elles seront les bien venues.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Somme()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=SUM(Feuil2!RC:R[20]C)"
 
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=SUM(Feuil2!RC:R[20]C)"
 
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=SUM(Feuil2!RC:R[20]C)"
 
End Sub

[defluc]

Bonjour,

Je veux bien t'aider mais je ne vois pas de boucle dans ta source, donc, impossible de savoir où ça bugge.

Un conseil en passant pour simplifier le code, accélérer l'exécution et éviter les clignotements désagréables de l'écran, ne pas utiliser de "Select".
Remplaces donc

Code :

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

1
2
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=SUM(Feuil2!RC:R[20]C)"

par

Code :

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

    Range("A1").FormulaR1C1 = "=SUM(Feuil2!RC:R[20]C)"