Copier la ligne saisie a la suite des autres lignes
sevy31130
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Voila je saisie (une ligne par jour,suivant les besoins sur une feuille qui se nomme
soit "P"
soit " T"
soit "O"
partant de la je voudrais que la ligne que je viens de saisir aille se copier a la suite des lignes existante dans deux feuilles différentes donc quand je saisie:
-en T je veux que les colonnes ABCDEF se copient après la derniere ligne des feuilles NGT ET NPT
-en P je veux que les colonnes ABCDEF se copient après la derniere ligne des feuilles NGP ET NPP
-en O je veux que les colonnes ABCDEF se copient après la dernière ligne des feuilles NGO ET NPO
soit en matricielle que je connais un peu mieux soit (en macro ou en VBA que je ne connais pas du tout)
Par avance merci
Voila je saisie (une ligne par jour,suivant les besoins sur une feuille qui se nomme
soit "P"
soit " T"
soit "O"
partant de la je voudrais que la ligne que je viens de saisir aille se copier a la suite des lignes existante dans deux feuilles différentes donc quand je saisie:
-en T je veux que les colonnes ABCDEF se copient après la derniere ligne des feuilles NGT ET NPT
-en P je veux que les colonnes ABCDEF se copient après la derniere ligne des feuilles NGP ET NPP
-en O je veux que les colonnes ABCDEF se copient après la dernière ligne des feuilles NGO ET NPO
soit en matricielle que je connais un peu mieux soit (en macro ou en VBA que je ne connais pas du tout)
Par avance merci
1 réponse
-
Bonjour
Option Explicit
Sub archiver()
Dim Onglet As String * 1, Derlig As Integer, T_or()
Dim Ligvide As Integer
With ActiveSheet
Onglet = .Name
Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row
T_or = .Range(.Cells(Derlig, "A"), .Cells(Derlig, "F")).Value
End With
With Sheets("ng" & Onglet)
Ligvide = .Columns("A").Find("*", , , , , xlPrevious).Row + 1
.Cells(Ligvide, "A").Resize(1, 6) = T_or
End With
With Sheets("np" & Onglet)
Ligvide = .Columns("A").Find("*", , , , , xlPrevious).Row + 1
.Cells(Ligvide, "A").Resize(1, 6) = T_or
End With
MsgBox "Copies des saisies en feuille " & Onglet & " effectuées avec succès"
End Sub
Michel
