Optimisation formule VBA

Fermé
Momosenpai Messages postés 24 Date d'inscription lundi 17 mars 2014 Statut Membre Dernière intervention 24 juillet 2014 - 25 mars 2014 à 15:29
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 25 mars 2014 à 17:55
Bonjour,

Je vais vous presenter un code que je viens de faire (débutant en VBA ) et je voudrais trouver le moyen de l'optimiser (le rendre plus propre)
Auriez vous des suggestions ?

'donnée se trouvant dans sheets(3)

sem1 = WorksheetFunction.Sum(Range(Cells(2, semaine + 1), Cells(2, Dligne)))
sem2 = WorksheetFunction.Sum(Range(Cells(2, semaine + 2), Cells(2, Dligne)))
sem3 = WorksheetFunction.Sum(Range(Cells(2, semaine + 3), Cells(2, Dligne)))

'mettre la valeur de ces données dans des cellules sheets(2)

Sheets(2).Activate

Cells(5, 4).Value = sem1
Cells(5, 5).Value = sem2
Cells(5, 6).Value = sem3
etc ....



Merci d'avance
A voir également:

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 311
25 mars 2014 à 16:26
Bonjour,

Difficile de t'aider avec des variables inconnues comme Dligne: ques aco ?

pourquoi etc à la fin ?
0
Momosenpai Messages postés 24 Date d'inscription lundi 17 mars 2014 Statut Membre Dernière intervention 24 juillet 2014
25 mars 2014 à 17:14
Désolé de ne pas avoir été clair :
Dligne c'est la dernière ligne que j'ai déjà identifié.
Semaine est une variable qui est connue aussi .

Ce que je cherche c'est un moyen de mettre une boucle qui pourra me faire la somme de données se trouvant dans la 3eme feuille et les mettres dans la 2eme feuille. ( pour le etc )

merci
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 311
25 mars 2014 à 17:55
La syntaxe de cells est
cells(ligne, colonne)

donc pourquoi
Cells(2, Dligne) ?

et si je comprends bien tu peux avoir N colonnes ?

le mieux serait que tu joignes ton classeur

pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe sur
http://cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse
0