Code VBA recherchant une valeur et la reportant ailleurs

Bonjour le Forum,

J'ai une macro affectée à un bouton qui va chercher la valeur de la cellule CM352 et qui la reporte en C4.

Sub Macro4()
'
' Retour vers le haut ET REPORT DU MONTANT

    Range("CM352").Copy
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

https://www.excel-pratique.com/~files/doc2/1MYDOessai_20090919.zip

Je désirerais que ce code aille en plus chercher la dernière valeur de la plage CH307:CH351 et la reporte dans la cellule C6. Pouvez-vous m'aider à réaliser cela ?

De plus, est-il possible qu'aucune cellule ne soit sélectionnée à la fin de la macro ?

Avec mes bonnes salutations.

Bonjour

essai cela

Sub Macro4()
 ActiveWorkbook.Names.Add Name:="Essai", RefersToR1C1:= _
        "=OFFSET(LPP!R307C86,COUNT(LPP!R307C86:R351C86)-1,,)"

    [C4] = [CM352]
    [C6] = Range("essai").Value
End Sub

Bonjour à tous,

Salut CB60

tu peux aussi mettre en CH352

=MAX(CH307:CH351)

et le code

Sub Macro5()
  Range("c4") = Range("Cm352")
  Range("c6") = Range("Ch352")
End Sub

Bonne journée

Claude.

Bonjour à vous tous !

Claude,

Je n'ai pas pensé de préciser qu'il pouvait y avoir une baisse de salaire après quelques années (par exemple suite à une réduction du temps de travail) et que la dernière valeur ne correspond pas spécialement à la valeur la plus élevée. C'est par contre bien la dernière valeur qui doit être reportée.

Bruno,

Ta solution répond exactement à ma demande.

Merci infiniment à tous deux pour votre aide et bonne fin de semaine.

Ah, peut-être encore quelque chose !

Vous n'avez pas répondu à ma deuxième question : De plus, est-il possible qu'aucune cellule ne soit sélectionnée à la fin de la macro ?

N'y a-t-il vraiment pas de solution ?

A vous relire.

Re

il me semble qu'excel garde la derniere cellule selectionné.

Sinon pour C6 tu peux mettre cette formule dans la cellule:

=DECALER(LPP!$CH$307;NB(LPP!$CH$307:$CH$351)-1;;)

Merci Bruno pour ces dernières précisions.

Effectivement que même à l'ouverture d'un fichier il y a une cellule sélectionnée !

Amicalement