Formule qui ne reste pas

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.

Hello lebeniste,

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

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

Salut lebeniste et le forum
Excel fait toujours ce que tu lui demandes, rarement ce que tu veux :mouarf:
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:

---

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+

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

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

voici la macro :

Code:

---

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......

J'AI TROUVER LE PROBLEME , JE SUIS UN PEUX TATA:roll:
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