Discussion :

[lebeniste]

SALUT
j'ai fais un petit programe de calcul d'heures , avec une macro qui garde les heures de la semaine sur une autre onglet.
quand j'active le bouton d'ajout les heures se transfer mais il modifie la formule qui calcule les heures cumuler ,

la formule initial ex. k15+ k50+k85, devient k50 +k81 elle decale a chaque click sur le bouton macro ??????

c'est quoi le probleme ????

merci

si ca peux aider , je joint une copie du doc.

[ouskel'n'or]

Hello lebeniste,

Plutôt que mettre le fichier, mets-nous la macro

(nous somme nombreux à ne pas ouvrir les fichiers joints)

[Gorfael]

Salut lebeniste et le forum
Excel fait toujours ce que tu lui demandes, rarement ce que tu veux
Tu lui demandes de copier une cellule qui contient une formule, il copie la cellule est adapte la formule si elle st en relatif
J'ai pas envie de chercher ce que tu veux faire, mais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Sheets("TOTAL DES HEURES").Select
    Rows("1:35").Select
    Selection.Insert Shift:=xlDown
    Sheets("HEURES").Select
    Range("A1:G33").Copy
    Sheets("TOTAL DES HEURES").Select
    Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
    Sheets("HEURES").Select
    Range("C2:C5").ClearContents
    Range("F2:F5").ClearContents
    Range("F7:F10").ClearContents
    Range("C7:C10").ClearContents
    Range("C12:C15").ClearContents
    Range("F12:F15").ClearContents
    Range("C17:C20").ClearContents
    Range("F17:F20").ClearContents
    Range("F22:F25").ClearContents
    Range("C22:C25").ClearContents
    Range("C27:C30").ClearContents
    Range("F27:F30").ClearContents
    Range("C2").Select
End Sub

On pourrait encore simplifier
- évites les SELECT (j'ai laissé celles des feuilles, mais ça sert à rien)
- supprimes les instructions inutiles : smallscroll,sert à bouger l'ascenseur. CutCopyMode= false sert enlever l'encadrement clignotant suite à un copy/cut.

Pour ton problème, existe-t-il quand tu fais les opérations manuellement ?
A+

[lebeniste]

oui voici la macro,
et oui il le fait meme manuellement,et je verrer a simplifier la macro

en inserrent une ligne il decale la formule .....pourtant ne fond pas parti de la selection????

voici la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub teste2()
'
' teste2 Macro
' Macro enregistrée le 2009-01-21 par André
'
 
'
    Sheets("TOTAL DES HEURES").Select
    Rows("2:36").Select
    Selection.Insert Shift:=xlDown
    Sheets("HEURES").Select
    Range("A4:L37").Select
    Selection.Copy
    Sheets("TOTAL DES HEURES").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("HEURES").Select
    Range("A4").Select
    Application.CutCopyMode = False
    Range("C6:C9").Select
    Selection.ClearContents
    Range("C11:C14").Select
    Selection.ClearContents
    Range("C16:C19").Select
    Selection.ClearContents
    Range("C21:C24").Select
    Selection.ClearContents
    Range("C26:C29").Select
    Selection.ClearContents
    Range("C31:C34").Select
    Selection.ClearContents
    Range("F31:F34").Select
    Selection.ClearContents
    Range("F26:F29").Select
    Selection.ClearContents
    Range("F21:F24").Select
    Selection.ClearContents
    Range("F16:F19").Select
    Selection.ClearContents
    Range("F11:F14").Select
    Selection.ClearContents
    Range("F6:F9").Select
    Selection.ClearContents
    Range("J16:J20").Select
    Selection.ClearContents
        Range("C6").Select
End Sub

j'espere que ca va vous aider.....

si ca peut vous eclairer:

a chaque fois que j'active la macro j'insert des ligne et copie les cellule ,la cellule qui se trouve ex. en k15 se reporte en k51 suite a un autre clic de la macro… mais j'ai un calcul relier a ces cellule . Pour chaque clic si je verifie la formule la k15 devient k50, clic suivant la k50 devient une autre et ainsi suite......

[lebeniste]

J'AI TROUVER LE PROBLEME , JE SUIS UN PEUX TATA
JE DEMANDAIS DANS MA MACRO D'INSERER 30 LIGNE AVANT DE COPIER, DE SE FAIS MA FORMULE DE CALCUL NE TENAIT PLUS COMPTE DE LA CELLULE QUI VENAIS DE SE COPIE ELLE ETAIT DONC DECALER .....

JE NE SAIS PAS SI VOUS AVEZ TOUTE COMPRIS , JE M'EXPLIQUE PEUT-ETRE MAL , MAIS BON ..... JE COCHE RESOLUE MERCI A TOUS