problème de formule

[ncahma]

Bonjour,
*
J'utilise un formulaire pour enregister le pointage d'une équipe, les informations sont classées dans un tableau à l'aide d'un bouton (macro faite avec l'enregistreur).
La macro insère une ligne dans le tableau de synthèse avant de copier*les informations renseignées.
J'utilise ensuite des formules pour quantifier le temps passé sur différentes tâches.
Le problème c'est que me référence bouge avec l'insertion de ligne, j'ai essayé le fameux $ pour figer mes formules mais ça n'a pas marché.
Quelqu'un aurait une solution, s'il vous plait ?
*
Merci.

 

[13GIBE59]

Re : problème de formule

Bonjour ncahma, et bienvenue sur le forum.

Essaie de joindre un bout de fichier, même simplifié. Cela nous aiderait à t'aider...

A plus.

 

[ncahma]

Re : problème de formule

Voici un exemple.

Merci.

 

[Compte Supprimé 979]

Re : problème de formule

Bonjour nacahma

Pour ton problème, il suffit de partir de la ligne d'entête dans ta formule

=SOMMEPROD((Base!$A$[B]1[/B]:$A$5997=Annexes!$K3)*(Base!$D$[B]1[/B]:$D$5997=Annexes!$M$1)*(Base!$P$[B]1[/B]:$P$5997=Annexes!$L$2);Base!$O$[B]1[/B]:$O$5997)

De plus ton code optimisé donne ça 😉

Sub pointage_technicatome()
'
' pointage_technicatome Macro
' Macro enregistrée le 25/04/2012 par q
'
    Sheets("Base").Rows("2:2").Insert Shift:=xlDown
    Sheets("Nouveau").Range("A2:P2").Copy
    Sheets("Base").Range("A2").PasteSpecial (xlPasteValues)
    With Sheets("Nouveau")
      .Range("C9,C11:C15,C17:C21,C23").ClearContents
      .Range("C9").Select
    End With
    Application.CutCopyMode = False
End Sub

A+

 

[ncahma]

Re : problème de formule

Bonjour,

Je vous remercie pour votre aide précieuse.

 

[Compte Supprimé 979]

Re : problème de formule

Re,

De rien, au plaisir de pouvoir aider 😉