Resolu : garder la derniere saisi

[Mitch]

Bonjour , sur mon tableau cellule A1 j'ai cette formule =RECHERCHEV(99^99;A2:A2217;1) qui fonctionne très bien mais j'aurais voulu que lorsque j'efface mes données la cellule A1 garde la derniere saisi
je vous joint mon tableau pour mieux comprendre
Merci

 

[david84]

Re : garder la derniere saisi

Bonjour,
pour cela, il te faut passer par une macro : lance l'enregistreur de macro,copie la cellule A1 et fais en A1 un collage spécial Valeur, clique ailleurs puis arrête l'enregistreur de macro.
Alt+F11 pour aller dans l'éditeur VBE et récupérer le code obtenu que tu pourras au besoin épurer par la suite.
A+

 

[Mitch]

Re : garder la derniere saisi

Bonjour david84 , oui je sais qu'il faut passer par une macro , j'ai suivi tes explications mais quand j'efface les données j'ai un message : reference circulaire
Sub Macro3()
'
' Macro3 Macro
'

'
Range("A11").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A11").Select
End Sub

 

[david84]

Re : garder la derniere saisi

Re
Plutôt comme cela je pense :

Sub test()
Range("A1").Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("B1").Select
End Sub

Après, il y a plus court

Sub test2()
[A1] = [A1]
End Sub

mais le fait de manipuler l'enregistreur de macro permet de progresser lorsque l'on débute en VBA.
A+

 

[Si...]

Re : garder la derniere saisi

salut tous

Si... j'ai bien compris, plus de formule mais une macro évènementielle(dans le module de la feuille)

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column > 1 Or Target.Row = 1 Then Exit Sub
  [A1] = Range("A" & Cells(Rows.Count, 1).End(xlUp).Row)
End Sub

 

[Mitch]

Re : garder la derniere saisi

Bon il vas falloir que je progresse serieusement car ja n'y arrive pas , je doit louper quelque chose 😕
Oups tu as etait plus rapide qu moi , c'est super ça marche
Merci a tous de votre aide