Aide macro pour excel svp!!!!!

Fermé
fpouzou Messages postés 8 Date d'inscription mercredi 30 mai 2007 Statut Membre Dernière intervention 1 juin 2007 - 31 mai 2007 à 09:31
 DJDAV - 24 oct. 2007 à 15:51
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

3 réponses

xjl Messages postés 232 Date d'inscription mardi 27 mars 2007 Statut Membre Dernière intervention 12 juin 2007 183
31 mai 2007 à 09:56
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... ;-)
1
fpouzou Messages postés 8 Date d'inscription mercredi 30 mai 2007 Statut Membre Dernière intervention 1 juin 2007
31 mai 2007 à 12:04
merci pour ta reponse :) c'est cool ca marche super bien merci encore
0
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
0