Discussion :

[Mimosa777]

Bonjour a tous et a toutes,

A partir d'une feuille A d'un classeur , je recopie les lignes de cette feuille A dans une nouvelle feuille B dans le meme classeur . Je souhaite simplement que lorsqu'une nouvelle ligne est ajouté dans la feuille A, que je puisse via une macro ajouter cette nouvelle ligne dans la feuille B mais au debut de la feuille, c'est a dire a partir de la ligne 2 vu que la premiere ligne contient des libellés.
Je ne desire pas a chaque fois recopier tout le contenu de la feuille A dans B (ce qui serait plus simple), mais je desire garder un historique des transactions précédentes dans la feuille B plus les nouvelles uniquement de la feuille A (la feuille A est généré a partir d'une requete sql query)

Je ne sais pas si je suis clair, faites le moi savoir svp et merci d'avance pour votre aide.

[casefayere]

Bonsoir Mimosa,
il faudrait savoir si tu veux que le code s'execute après la saisie de la derniere cellule ou avec un bouton,

Je m'explique, tu dois, par exemple, remplire a3, a4, a5, a6 et on provoque le code après la saisie de a6 ou avec un bouton ou autrement....

[laetitia]

bonjour Mimosa l ami casefayere le forum comme je comprends!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test5()
Application.ScreenUpdating = False
Sheets("b").Select: Rows("2:2").Select: Selection.Insert Shift:=xlDown
Sheets("a").Range("a65536").End(xlUp).EntireRow.Copy _
Destination:=Sheets("b").Range("A2")
 End Sub

ps l ami casefayere d accord avec toi c est du brute on va attendre les news pour voir

[casefayere]

Bonsoir Laetitia,

ton code est parfait, il ne reste plus qu'a savoir quand l'évenement doit etre provoqué, c'etait le but de ma question à Mimosa,

Bonne soirée (tu as toujours des codes clairs et nets)

[Mimosa777]

Salut a vous deux,

le tout s'execute a partir d'un bouton. Lorsque je clique dessus, il va me recopier les nouvelles lignes de la feuille A dans la feuille B. Les nouvelles lignes seront ajoutés a partir du haut et non pas en bas a la suite des donnees deja existantes dans la feuille B. (l'idee est de voir toutes les nouvelles transactions en premier toujours)

A vrai dire, j'ai deja ce code qui fonctionne bien mais seulement lorsque la feuille B est encore vide.. Lorsque la feuille B contient deja des données, c'est la que le probleme se pose et que mon code n'est plus efficace car ce qu'il fait, est qu'il ajoute effectivement la nouvelle ligne en haut mais ecrase mes champs libelllés.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Mise()
 
Dim i, j, x As Integer
Dim temp As Integer
x = 2
 
 
 
        For i = 2 To 18 '18 est la colonne commentaires
        temp = 0
        j = 1
            If Sheet2.Cells(i, j) = Sheet3.Cells(x, j) Then
                For z = 2 To 18 'Sheet3.Cells(Rows.Count, 1).End(xlUp).Row
                    Sheet2.Cells(i, z) = Sheet3.Cells(x, z)
                Next
            x = x + 1
            temp = 1
            Else
            If temp = 0 Then
                If Sheet2.Cells(i, j) = "" Then
                    For j = 1 To 18 'Sheet3.Cells(Rows.Count, 1).End(xlUp).Row
                        Sheet2.Cells(i, j) = Sheet3.Cells(x, j)
                    Next
                Else
                    For j = 1 To 18 'Sheet3.Cells(Rows.Count, 1).End(xlUp).Row
                        Sheet2.Cells(i - 1, j) = Sheet3.Cells(x, j)
                    Next
 
                End If
                x = x + 1
            End If
            End If
        Next
 
End Sub

Merci de votre aide

[casefayere]

Regardes bien le code à Laetitia, il est à executer à partir d'un autre bouton ou d'un évenement