Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

faire une somme en VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion seb631
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

seb631

Guest
salut
voilà mon problème

j'ai un même tableau sur 3 feuilles.
Je dois effectuer une somme (colonne C = Col A + Col B)

j'ai fait le programme suivant.

Sub Somme()
For i = 1 To 3
With Worksheets("Feuil" & i)
.Range("C1").Select
.Range("C1") = "=SUM(A1:B1)"
.Range("C1").Select
Selection.AutoFill Destination:=.Range("C1:C5"), Type:=xlFillDefault
.Range("C1:C5").Select
End With
Next

End Sub


Mais le code ne fonctionne pas? Pourquoi?

PS j'ai modifié le programme, oublie des guillemets à "Feuil" mais ça marche toujours pas.
l'erreur est : la méthode Select de la classe range a échoué.
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : faire une somme en VBA

Bsr à tous

Essaye ainsi


Code: 
Sub Somme()
For i = 1 To 3
With Worksheets("Feuil" & i)
.Activate
.Range("C1") = "=SUM(A1:B1)"
.Range("C1").AutoFill Destination:=.Range("C1:C5"), Type:=xlFillDefault
End With
Next
End Sub

NB: Les feuilles doivent se nommées Feuil1, Feuil2, Feuil3

A+
 
Vote positif 0 Vote négatif
Re : faire une somme en VBA

bonsoir seb631,
un essai si j'ai bien compris le probleme,


#
Sub Somme()
Dim Ws As Worksheet
Dim a, i As Integer
For Each Ws In ActiveWorkbook.Worksheets
a = Application.CountA(Ws.Range("A1:A65536"))
For i = 1 To a
Ws.Range("C" & i) = Application.Sum(Ws.Range("A" & i & ":B" & i))
Next i
Next
End Sub
#

bonne soirée
 
Vote positif 0 Vote négatif
Re : faire une somme en VBA

Bonjour le fil, le forum,

En VBA la sélection de cellules ou feuilles est presque toujours inutile :

Code: 
Sub Somme()
Dim i As Byte
For i = 1 To 3
Worksheets("Feuil" & i).Range("C1:C5").FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Next
End Sub

ou encore :

Code: 
Sub Somme()
Dim i As Byte
For i = 1 To 3
With Worksheets("Feuil" & i)
.Range("C1:C5").FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
.Range("C1:C5").Value = .Range("C1:C5").Value 'ne conserve que les valeurs
End With
Next
End Sub

Bonne journée.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
548
xavieralvaro
X
M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
434
MOLY_
M
G
  • Résolu(e)
XL 2021 Transformer une formule en vba
2
Réponses
20
Affichages
1 K
kiki29
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
347
job75
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
767
Dranreb
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
640
spike29
S
M
  • Question Question
Autres Problème de sélection
Réponses
14
Affichages
487
fanch55
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
800
AtTheOne
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
245
vazvaz
V
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
931
TooFatBoy
K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
442
vgendron
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
756
patricktoulon
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
517
job75
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
755
Piment
P
  • Question Question
XL 2021 Code manufacturier et fabricant (Ram) suite projet en cours ( à tester s'il vous plait )
2 3
Réponses
42
Affichages
2 K
TooFatBoy
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
824
thunder23
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
2 K
jurassic pork
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…