Macro de synthèse avec report de données

Version imprimable

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:

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 :)

Bonjour,

Je ne suis pas sûr d'avoir tout compris. Mais, j'ai cru comprendre que les numéros seraient en colonne A.

Je te proposais donc ce code (Mon approche est légèrement différente) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub Somme() ThisWorkbook.Worksheets("Feuille de contrôle").Activate ActiveSheet.Range("A10").Select 'J'ai cru comprendre que l'utilisation de la ligne était visible en colonne A Do While Not IsEmpty(ActiveCell) 'Cherche la première cellule vide en colonne A à partir de la ligne de la cellule sélectionnée ActiveCell.Offset(1, 0).Select Loop ligne_vide = ActiveCell.Row 'On récupère le numéro de la première ligne vide ActiveCell.Offset(0, 3).Select 'On se positionne sur la première ligne vide, en colonne D ActiveCell.FormulaLocal = "=SOMME(R1:R" & (ligne_vide - 1) & ")" 'On remplit la première formule ActiveCell.AutoFill Destination:=Range("D" & ligne_vide & ":I" & ligne_vide), Type:=xlFillDefault 'On étend la formule sur les colonnes adjacentes. End Sub
Par contre, je n'ai aucune idée de comment faire activer cette macro sur pression de F8, il me semble que cette touche est déjà utilisée par Excel.
Pour moi, il serait plus adapté de l'exécuter en dernier lors de la dernière macro exécutée (Par l'intermédiaire de l'instruction : Call Somme() )

14/06/2011, 17h32
Edaine

Merci beaucoup d'avoir répondu :)

En faite j'ai une série de données rentrées en A qui me permettent de dire "cette ligne est bien occupée"

Ca n'a pas grande utilité dans ce que je veux faire, je me suis mal exprimée :s

Donc par exemple j'ai en colonne R de la feuille "douchette" 15 lignes donc la valeur des cellules en R toujours est 1 (pour faire simple ^^) je voudrai donc que sur la feuille "feuille de contrôle" en D10 vienne s'inscrire 15. et la même pour les colonnes suivantes S avec E10 etc...

Mais si jamais il y a déjà quelque chose d'écrit en D10 alors j'écris ma somme à la ligne. (En faite dans ma colonne R, j'aurai toujours des valeurs à chaque ligne, donc je me base sur cette cellule pour le "retour à la ligne").

Je ne sais pas si c'ets mieux expliqué :s
14/06/2011, 17h48
FcL.Laplace
ReBonjour,

Le nombre de ligne de la feuille douchette à sommer est-il toujours de 15 ?

Auquel cas la ligne de code suivante devrait être satisfaisante pour remplacer la ligne 11 du code j'ai proposé la première fois (ou je n'ai toujours pas bien compris) :
Code:

1 2 3 'Si il y a toujours 15 lignes : ActiveCell.FormulaLocal = "=SOMME(douchette!R1:R15)" 'On remplit la première formule
15/06/2011, 09h50
Edaine

Non il n'est pas toujours de 15 :s

Il est aléatoire,

Il peut aller de 2 à 200 ..

J'ai un bug sur cette ligne

Code:

ActiveCell.AutoFill Destination:=Range("D" & ligne_vide & ":I" & ligne_vide), Type:=xlFillDefault 'On étend la formule sur les colonnes adjacentes.

"La méthode a échoué" :s

Bonjour
Une proposition

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TEST()
Dim NewLig As Long
 
Application.ScreenUpdating = False
With Sheets("Feuille de contrôle")
    NewLig = .Cells(.Rows.Count, "D").End(xlUp).Row
    NewLig = IIf(NewLig >= 10, NewLig + 1, 10)
    With .Range("D" & NewLig & ":I" & NewLig)
        .FormulaR1C1 = "=SUM(Douchette!C[14])"
        .Value = .Value
    End With
End With
End Sub

Voilà le code que j'ai testé et qui fonctionne très bien !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Somme()
 
'permet de trouver la première ligne vide de la colonne 4
i = 10 
 
Do While Cells(i, 4) <> "" 'va chercher la première ligne vide en colonne D
Cells(i, 4).Select
i = i + 1
Loop
 
Cells(i, 4).Select
ActiveCell.FormulaR1C1 = "=SUM(Douchette!C[14])"
Cells(i, 4).Copy
Range(Cells(i, 4), Cells(i, 9)).Select
Sheets("Feuille de contrôle").Paste
Cells(1, 1).Select
 
End Sub

Je pense qu'il y a mieux qu'avec tout les Select :P
Après je ne sais pas si c'est mieux d'utiliser ton code,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Somme()
 
ThisWorkbook.Worksheets("Feuille de contrôle").Activate
ActiveSheet.Range("A10").Select 'J'ai cru comprendre que l'utilisation de la ligne était visible en colonne A
Do While Not IsEmpty(ActiveCell) 'Cherche la première cellule vide en colonne A à partir de la ligne de la cellule sélectionnée
    ActiveCell.Offset(1, 0).Select
Loop
ligne_vide = ActiveCell.Row 'On récupère le numéro de la première ligne vide
ActiveCell.Offset(0, 3).Select 'On se positionne sur la première ligne vide, en colonne D
ActiveCell.FormulaLocal = "=SOMME(R1:R" & (ligne_vide - 1) & ")" 'On remplit la première formule
ActiveCell.AutoFill Destination:=Range("D" & ligne_vide & ":I" & ligne_vide), Type:=xlFillDefault 'On étend la formule sur les colonnes adjacentes.
 
End Sub

Peut être que je peux tenter le mix des deux ! ^^

Oh mercatog merci,

Je n'avais pas vu ta réponse,

Par contre qand je test la macro, ca ne fait rien :s

Je me suis permise d'ajouter le
Application.ScreenUpdating = True

et je n'y comprends pas grand chose ^^'

15/06/2011, 10h37
mercatog

Exécute la macro pas à pas et ergarde (à l'aide de F8)

PS: J'ai testé avant de poster
15/06/2011, 10h42
Edaine

Oula,

Pourquoi ca fonctionne maintenant ? :s

(merci!)

J'avais masqué mes colonnes sur une des feuilles et je viens de voir que les sommes s'affichent d'abord sur la feuille Douchette de la colonne D à I et ensuite sur la feuille feuille de contrôle.

Est-ce qu'il faut forcément passer par cette étape intermédiaire de noter les sommes dans la feuille Douchette ?
15/06/2011, 16h48
mercatog

La réponse #6 ne passe par aucune feuille intermédiaire.
15/06/2011, 16h57
Edaine

Bizarre,

Bon c'pas grave :)

Merci en tout cas !