aide macro pour excel svp!!!!!

Question

comme faire pour modifier la macro de armojax. 
afin que la valeur recupere ne sois pas la derniere ligne +1 mais plutot quelle reste sur a2 et que les ancienne valeur soit dessous merci pour vorte aide 


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  ' Adapter :
  ' - le nom de la feuille archive ("HistoVal" dans l'exemple)
  ' - l'adresse de la cellule à surveiller ("B5") dans l'exemple)
  
  Dim Dernièreligne As Long
  Dernièreligne = Sheets("HistoVal").Cells(1, 1).CurrentRegion.Rows.Count
  If Me.Range("B5").Value <> Sheets("HistoVal").Cells(Dernièreligne, 1).Value Then
    Sheets("HistoVal").Cells(Dernièreligne + 1, 1).Value = Me.Range("B5").Value
  End If
  
End Sub

xjl · Answer

Salut, voilà une suggestion:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

' Adapter : 
' - le nom de la feuille archive ("HistoVal" dans l'exemple) 
' - l'adresse de la cellule à surveiller ("B5") dans l'exemple) 

If Me.Range("B5").Value <> Sheets("HistoVal").Cells(2, 1).Value Then
Sheets("HistoVal").Cells(2, 1).Insert(xlShiftDown)
Sheets("HistoVal").Cells(2, 1).Value = Me.Range("B5").Value 
End If 

End Sub

Bonne continuation... ;-)

fpouzou · Answer

merci pour ta reponse :) c'est cool ca marche super bien merci encore

DJDAV · Answer

bonjour

je me suis servi de cette macro qui fonctionne tres bien

parcontre j'ai besoin de recopier dans une autre feuille la valeur stocké en A3

mais lorsque je met une formule classique, a chaque nouvelle insertion ça decale (ça prends A4 puis A5...)
comment faire pour fixer cela

j'ai essayer avec les $ mais rien n'y fait

Aide macro pour excel svp!!!!!

3 réponses

Discussions similaires

Newsletters