Macro de synthèse après déclenchement touche Résolu

Question

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; grâce à une macro; en colonne A, à la suite de cette macro et en fonction des diverses données rentrées par l'utilisateur, j'ai les colonnes R,S,T,U,V et W qui affichent divers chiffres.

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

Merci d'avance !

J'ai cru voir une piste dans le Keyup ou le Keydown mais les règles d'écritures ne me sont toujours pas familières ..



Configuration: Windows XP / Internet Explorer 7.0

melanie1324 · Answer

Bonjour,

je ne sais pas l'associer à un bouton mais voici la macro que tu demandes :

sub somme

i = 1   'si ton tableau commence en ligne 2, mets i=2
 do while cells(i,4)<>""  'va chercher la première ligne vide en colonne D, il ne faut pas que tu ais de trou 
i=i+1
loop
    cells(i,4).Select
    ActiveCell.FormulaR1C1 = "=SUM(R1C:R" & i -1 & "C)"
    cells(i,4).copy
range(cells(i,4),cells(i,9)).select
activesheet.paste
cells(1,1).select
end sub

Edaine · Answer

MErci pour la réponse,

Qu'est-ce que tu entends par " il ne faut pas qu'il y ait de trou ? " 

En faite je peux sur une ligne avoir des trous et des valeurs :s

melanie1324 · Answer

do while cells(i,4)<>"" 'va chercher la première ligne vide en colonne D, il ne faut pas que tu ais de trou
i=i+1
loop 


signifie je regarde la ligne i et la colonne 4 si elle est vide.
Si elle est pleine, elle passe à la ligne suivante.
si la ligne i+1 et la colonne 5 est vide, la macro s'arrête.

si tu as un tableau qui est :

1
vide
3
4
vide

la boucle s'arrêtera en 2ème ligne et fera ta somme en 2è ligne
par contre, si tu as :
1
2
3
4
5
vide
vide
vid

la macro s'arrête en ligne 6 et fera ta somme en ligne 6.

Donc si tu as des trous en colonne4 (D), choisis une autre colonne ou tu es sure que tu n'as pas de trou. sinon, je sais pas faire.

Edaine · Answer

Ah d'accord !

Désolée j'avais pas bien compris !

je vais essayer ça :)

Edaine · Answer

En faite ça ne fonctionne pas du tout :s

J'essaie de "triturer" la macro en vain ...

melanie1324 · Answer

bonjour,

as-tu compris ce que faisait la boucle au moins??
Mets ce code et appuies sur F8, tu comprendras mieux ce qu'elle fait:


sub somme

'permet de trouver la première ligne vide de la colonne 4
i = 1 'si ton tableau commence en ligne 2, mets i=2
do while cells(i,4)<>"" 'va chercher la première ligne vide en colonne D, il ne faut pas que tu ais de trou
cells(i,4).select
i=i+1
loop


'lorsque la ligne est vide, il te mets la somme
cells(i,4).Select
ActiveCell.FormulaR1C1 = "=SUM(R1C:R" & i -1 & "C)"
cells(i,4).copy
range(cells(i,4),cells(i,9)).select
activesheet.paste
cells(1,1).select
end sub

Edaine · Answer

oui justement,

Ca ne fait pas du tout ce que j'attendai ^^

Il faut que je fasse le lien entre les différentes feuilles au niveau du code et je rame..

Edaine · Answer

La boucle fonctionen très bien

melanie1324 · Answer

Explique moi ce que tu veux qu'elle fasse en me donnant un exemple.

je n'ai aps accès à cijoint donc fait le à la barbare comme je l'ai fait.

Edaine · Answer

en appuyant 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.. 




Par exemple si 


Sur la feuille "Douchette" j'ai trois ligne contenant le chiffre 1 en colonne R alors,

je veux que sur la feuille "Feuille de contrôle" soit inscrit 3 en D10

Ainsi de suite ..

et si j'ai déjà une entrée dans la ligne d'arrivée, je passe à D11

melanie1324 · Answer

Bonjour,

j'ai compris.


sub somme

'permet de trouver la première ligne vide de la colonne 4
i = 10 'si ton tableau commence en ligne 2, mets i=2
do while cells(i,4)<>"" 'va chercher la première ligne vide en colonne D, il ne faut pas que tu ais de trou
cells(i,4).select
i=i+1
loop


'lorsque la ligne est vide, il te mets la somme
cells(i,4).Select
ActiveCell.FormulaR1C1 = "=SUM(C18:C18)"
cells(i,4).copy
range(cells(i,4),cells(i,9)).select
activesheet.paste
cells(1,1).select
end sub

Edaine · Answer

Le truc pour passer de la ligne vide à la prochaine fnoctionen très bien !

Par contre je voudrais faire les sommes en passant de feuille à feuille :s

Sur la feuille 2 j'ai mes colonnes R..S... etc 
Sur la feuille 1 je veux les sommes de ces colonnes,

le code que tu m'as donné est :

Cells(i, 4).Select 
ActiveCell.FormulaR1C1 = "=SUM(C[14])" 
Cells(i, 4).Copy 
Range(Cells(i, 4), Cells(i, 9)).Select 
ActiveSheet.Paste 
Cells(1, 1).Select 
End Sub


Mais là tout se fait sur la même feuille :s 

J'ai essayé de modifié en mettant des

Sheets("DOuchette").Cells(....)

Mais rien n'y fait, je n'ai toujours pas compris les conventions d'écritures ! :x

melanie1324 · Answer

re,

on va y arriver :

Sub somme()

'permet de trouver la première ligne vide de la colonne 4
i = 10 'si ton tableau commence en ligne 2, mets i=2
Do While Cells(i, 4) <> "" 'va chercher la première ligne vide en colonne D, il ne faut pas que tu ais de trou
Cells(i, 4).Select
i = i + 1
Loop



Cells(i, 4).Select
ActiveCell.FormulaR1C1 = "=SUM(douchettes!C[14])"
Cells(i, 4).Copy
Range(Cells(i, 4), Cells(i, 9)).Select
ActiveSheet.Paste
Cells(1, 1).Select
End Sub

Edaine · Answer

Ca fonctionne !

Plus qu'à "fixer" la feuille d'arrivée ^^ Pour que ça se mette toujours dans la même !


Merci beaucoup pour ta patience :)

Merci merci !

melanie1324 · Answer

Pour ca :


Sub somme()

sheets("Feuille de controle").select

'permet de trouver la première ligne vide de la colonne 4
i = 10 'si ton tableau commence en ligne 2, mets i=2
Do While Cells(i, 4) <> "" 'va chercher la première ligne vide en colonne D, il ne faut pas que tu ais de trou
Cells(i, 4).Select
i = i + 1
Loop



Cells(i, 4).Select
ActiveCell.FormulaR1C1 = "=SUM(douchettes!C[14])"
Cells(i, 4).Copy
Range(Cells(i, 4), Cells(i, 9)).Select
ActiveSheet.Paste
Cells(1, 1).Select
End Sub

Edaine · Answer

j'ai écris comme ça ^^


Sub Somme()

'permet de trouver la première ligne vide de la colonne 4
i = 10 'si ton tableau commence en ligne 2, mets i=2

Do While Cells(i, 4) <> "" 'va chercher la première ligne vide en colonne D, il ne faut pas que tu ais de trou
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

Macro de synthèse après déclenchement touche

16 réponses

Discussions similaires

Newsletters