Optimisation formule VBA

Momosenpai Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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   Statut Membre Dernière intervention  
 
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
Réponse 2 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Démarrage d'Android en cours - Optimisation de l'application
baissaoui -
baissaoui -

0 réponse