Aide macro pour excel svp!!!!!
fpouzou
Messages postés
8
Statut
Membre
-
DJDAV -
DJDAV -
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
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
A voir également:
- Aide macro pour excel svp!!!!!
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
3 réponses
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... ;-)
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... ;-)
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
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
