Détection insertion ligne
mayna2607
-
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je voulais savoir s'il existe un moyen sous excel pour détection l'insertion d'une nouvelle ligne dans une feuille. En effet, ce que je désire faire c'est: en détectant l'insertion dans une feuille, dans une autre un remplissage automatique (avec certains champs de la ligne insérée) soit fait.
Merci pour votre aide je suis vraiment bloquée :(
Je voulais savoir s'il existe un moyen sous excel pour détection l'insertion d'une nouvelle ligne dans une feuille. En effet, ce que je désire faire c'est: en détectant l'insertion dans une feuille, dans une autre un remplissage automatique (avec certains champs de la ligne insérée) soit fait.
Merci pour votre aide je suis vraiment bloquée :(
A voir également:
- Détection insertion ligne
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Insertion sommaire word - Guide
- Insertion liste déroulante excel - Guide
- Insertion signature word - Guide
1 réponse
Bonjour
Cette macro mise dans le Worksheet de la feuille où doivent se faire des insertions met dans une variable le nombre de lignes de la feuille à son activation
Private nl As Long
Private Sub Worksheet_Activate()
nl = ActiveSheet.UsedRange.Rows.Count
End Sub
Cette macro mise dans le Worksheet de la feuille où doivent se faire des insertions affiche dans une fenetre le numero de la ligne modifiée (Target.Row)
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.UsedRange.Rows.Count > nl Then
MsgBox "insertion ligne " & Target.Row
end if
nl = ActiveSheet.UsedRange.Rows.Count
End Sub
Il suffit de remplacer l'instruction Msgbox par celle que tu désire , par exemple pour copier la cellule insérée en colonne A dans la cellule A1 de Feuille 2 :
Sheets("Feuille2").range("A1")=activesheet.cells(target.row,1).value
Cdlmnt
Cette macro mise dans le Worksheet de la feuille où doivent se faire des insertions met dans une variable le nombre de lignes de la feuille à son activation
Private nl As Long
Private Sub Worksheet_Activate()
nl = ActiveSheet.UsedRange.Rows.Count
End Sub
Cette macro mise dans le Worksheet de la feuille où doivent se faire des insertions affiche dans une fenetre le numero de la ligne modifiée (Target.Row)
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.UsedRange.Rows.Count > nl Then
MsgBox "insertion ligne " & Target.Row
end if
nl = ActiveSheet.UsedRange.Rows.Count
End Sub
Il suffit de remplacer l'instruction Msgbox par celle que tu désire , par exemple pour copier la cellule insérée en colonne A dans la cellule A1 de Feuille 2 :
Sheets("Feuille2").range("A1")=activesheet.cells(target.row,1).value
Cdlmnt
