Bonjour,

J'ai créé un fichier avec 5 feuilles et diverses macros,

Dans la feuille "Douchette" j'ai un numéro qui s'inscrit automatiquement en colonne A, à la suite de cette macro et en fonction des diverses données rentrées par le contrôleur, j'ai les colonnes R,S,T,U,V et W qui affichent divers résultats.

J'aimerai que lorsque j'appuie sur F8,


La somme de la colonne R s'incrive dans la cellule D10
La somme de la colonne S s'incrive dans la cellule E10
La somme de la colonne T s'incrive dans la cellule F10
La somme de la colonne U s'incrive dans la cellule G10
La somme de la colonne V s'incrive dans la cellule H10
La somme de la colonne W s'incrive dans la cellule I10


Mais si il y a déjà une valeur dans la cellule D10 alors je veux qu'il écrive dans la ligne suivante..


Un calvaire à écrire pour moi débutante en vba ..

Je ne sais pas par où commencer excepter .."Sub"... :s

J'ai démarré en écrivant ça, même si c'est très peu .. :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Somme()
 
i = 10 'Début du tableau ligne 10 sur la feuille de contrôle 
 
Do While Cells(i, 4) <> "" 'Cherche la pemière cellule vide en colonne 4 à partir de la ligne i
i = i + 1
Loop
 
Sheets("Feuille de contrôle").Cells(i, 4).Value = ActiveCell.FormulaR1C1 = "=SUM(R1C:R" & i - 1 & "C)"
 
End Sub
Mais voilà .. Je me bats avec l'écriture Sheets("...").quelque chose et le .Select ..


J'suis completement perdue avec les conventions d'écriture du code .. :s



Merci d'avance pour vos réponses