Langage VBA et boucle

Résolu/Fermé

sycsmdiydlms Messages postés 4 Date d'inscription lundi 19 janvier 2015 Statut Membre Dernière intervention 18 mars 2015 - 18 mars 2015 à 10:50
sycsmdiydlms Messages postés 4 Date d'inscription lundi 19 janvier 2015 Statut Membre Dernière intervention 18 mars 2015 - 18 mars 2015 à 11:16

Bonjour à tous,

Je débute en langage VBA, et je rencontre quelques problèmes de syntaxe.

J'aurais besoin de calculer des sommes sur une ligne, en utilisant la commande Sum. Cela fonctionne quand je rentre manuellement les coordonnées de la cellule qui compte le total, et de la plage de cellule à sommer.

Cependant, cette somme à calculer est nécessaire sur plusieurs lignes.

Voici le bout de code que j'ai testé (sans succès, erreur 1004).

Sub test_1()

Dim i

For i = 4 To 28

Range("K" & i) = Application.WorksheetFunction.Sum(Range("B&i:K&i"))
i = i + 1
Next i

End Sub

Quelqu'un pourrait m'éclaircir quant à mon erreur, s'il vous plait ?

Je vous remercie d'avance pour les réponses apportées.

Bien cordialement.

A voir également:

Langage VBA et boucle
Langage ascii - Guide
Langage binaire - Guide
Pascal langage - Télécharger - Édition & Programmation
Mon pc s'allume et s'éteint en boucle - Forum Matériel & Système
Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi

2 réponses

Réponse 1 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 525
18 mars 2015 à 11:00

Bonjour,

Avant de t'intéresser au problème de syntaxe, commencer par régler celui de logique.
Tel que rédigé, ton code demande que
K4 contienne la somme de B4:K4,
K5 contienne la somme de B5:K5,
etc...
Tu obtiens une référence circulaire dans la colonne K (le calcul se mord la queue).

A+

sycsmdiydlms Messages postés 4 Date d'inscription lundi 19 janvier 2015 Statut Membre Dernière intervention 18 mars 2015
Modifié par sycsmdiydlms le 18/03/2015 à 11:17

Arf effectivement j'avais écrit trop vite. La somme s'arrête à J.
Merci

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
18 mars 2015 à 11:02

Bonjour
je débute en langage VBA
Bienvenue à bord du Titanic !

tu as plusieurs erreurs
-une référence circulaire puisque tu demandes en K la somme de B à K

-une mauvaise syntaxe dans Range("B&i:K&i")
écris
Range("B" & i & "J" & i)
les espaces sont obligatoires
ou
range(cells(i,"B"), cells(i,"J"))

sycsmdiydlms Messages postés 4 Date d'inscription lundi 19 janvier 2015 Statut Membre Dernière intervention 18 mars 2015
Modifié par sycsmdiydlms le 18/03/2015 à 11:16

Il n'y avait pas de problème de boucle (j'ai simplement recopié trop vite ..), et j'ai testé les deux syntaxes, mais c'est seulement la deuxième écriture qui a fonctionné..

Je reçois l'erreur 1004 en utilisant les &

Ce qui compte, c'est que l'une des deux fonctionne !

Merci beaucoup

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

tele s'eteind et s'allume en boucle

bonjour, mon televiseur samsung led UE46D5700 (2011) s'allume et s'eteind en boucle j'ai enleve les piles de la telecommande, c'est pareil j'ai mis des pile neuves , meme probleme j'ai eteind la tele pendant 5 minutes et remis en route sans piles sur la telecommande, meme probleme ..idem avec les piles remises comment faire ? un conseil serai le bienvenu, par avance merci j'ai essaye avec une autre telecommande samsung qui fonctionnait avec auparavent , probleme idem

Redmi redémarre en boucle - Fastboost impossible

Bonjour, Depuis hier après midi, mon téléphone redémarre en boucle sans jamais se lancer. L'écran Redmi apparaît puis se ré éteind et ainsi de suite ... quand la batterie est épuisée c'est au tour de l'écran avec batterie vide d'apparaître et de disparaître. J'ai tenté de passer en mode fastboost. L'écran fastboost apparaît quelques secondes puis se ré eteind et revient sur L'écran Redmi... Auriez vous une idée pour m'aider à solutionner ce problème ? Merci par avance.

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Mon ordinateur s'allume et s'eteint en boucle

Bonjour/Bonsoir

J'ai un ami a moi qui a un pc qui s'allume et s'eteint en boucle puis se r'allume apres 5 seconde puis s'eteint en boucle.Pouvez vous m'aidez et essayer de trouver avec moi la sources du probleme s'il vous plait.