Discussion :

[qizRR]

Bonjour à tous, je vous explique mon problème.
J'ai un onglet avec un export qui provient de SAP, et j'aimerais en fonction de ce que je rentre dans ma cellule A que ma ligne se copie / colle soit dans un onglet soit dans un autre.

Mais, tout en gardant mes données de l'onglet avec l'export SAP. J'ai essayé avec le code suivant :

Code :

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

1
2
3
4
5
6
7
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = [A65000].End(xlUp).Row To 1 Step -1
  If Cells(i, 1) = "Laure" Then Sheets("Export").Rows(i).Copy Sheets("Projet").Cells(Rows.Count, 1).End(xlUp)(2)
Next i
 
Application.Calculation = xlCalculationAutomatic

Ce code fonctionne, lorsque j'écris Projet dans la colonne A, cela me transfert bien les lignes dans l'autre onglet mais je souhaite aussi boucler uniquement sur les données que je rajoutent à la suite dans mon onglet Export pour ne pas boucler sur toutes les lignes de mon onglet Export à chaque fois.
De plus, j'aimerais aussi lorsque j'écris CAPEX dans une des lignes de ma colonne A que cela se transfert dans l'onglet CAPEX.

Auriez-vous des idées à me proposer ? Surtout pour éviter de boucler sur toutes mes lignes à chaque fois et boucler uniquement sur celles que je viens de rajouter dans mon onglet Export.

Merci d'avance, n'hésitez pas si je n'ai pas été assez clair, c'est assez compliqué à expliquer.

[Franc]

Salut, essaie ceci, j'utilise l'évènement _Change de la feuille "Export".

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
36
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ExportSheet As Worksheet
    Dim ProjetSheet As Worksheet
    Dim CapexSheet As Worksheet
    Dim LastRow As Long
    Dim Cell As Range
 
    ' Définir les feuilles de travail
    Set ExportSheet = ThisWorkbook.Sheets("Export")
    Set ProjetSheet = ThisWorkbook.Sheets("Projet")
    Set CapexSheet = ThisWorkbook.Sheets("CAPEX")
 
    ' Vérifier si la modification a eu lieu dans la colonne A de la feuille "Export"
    If Not Intersect(Target, ExportSheet.Columns("A")) Is Nothing Then
        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
 
        ' Parcourir chaque cellule modifiée
        For Each Cell In Target
            If Cell.Value = "Projet" Then
                ' Trouver la dernière ligne non vide dans la colonne A de la feuille "Projet"
                LastRow = ProjetSheet.Cells(ProjetSheet.Rows.Count, "A").End(xlUp).Row
                ' Copier la ligne de la feuille "Export" vers la feuille "Projet"
                ExportSheet.Rows(Cell.Row).Copy ProjetSheet.Cells(LastRow + 1, 1)
            ElseIf Cell.Value = "CAPEX" Then
                ' Trouver la dernière ligne non vide dans la colonne A de la feuille "CAPEX"
                LastRow = CapexSheet.Cells(CapexSheet.Rows.Count, "A").End(xlUp).Row
                ' Copier la ligne de la feuille "Export" vers la feuille "CAPEX"
                ExportSheet.Rows(Cell.Row).Copy CapexSheet.Cells(LastRow + 1, 1)
            End If
        Next Cell
 
        Application.Calculation = xlCalculationAutomatic
        Application.ScreenUpdating = True
    End If
End Sub

[qizRR]

Salut, essaie ceci, j'utilise l'évènement _Change de la feuille "Export".

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
36
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ExportSheet As Worksheet
    Dim ProjetSheet As Worksheet
    Dim CapexSheet As Worksheet
    Dim LastRow As Long
    Dim Cell As Range
 
    ' Définir les feuilles de travail
    Set ExportSheet = ThisWorkbook.Sheets("Export")
    Set ProjetSheet = ThisWorkbook.Sheets("Projet")
    Set CapexSheet = ThisWorkbook.Sheets("CAPEX")
 
    ' Vérifier si la modification a eu lieu dans la colonne A de la feuille "Export"
    If Not Intersect(Target, ExportSheet.Columns("A")) Is Nothing Then
        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
 
        ' Parcourir chaque cellule modifiée
        For Each Cell In Target
            If Cell.Value = "Projet" Then
                ' Trouver la dernière ligne non vide dans la colonne A de la feuille "Projet"
                LastRow = ProjetSheet.Cells(ProjetSheet.Rows.Count, "A").End(xlUp).Row
                ' Copier la ligne de la feuille "Export" vers la feuille "Projet"
                ExportSheet.Rows(Cell.Row).Copy ProjetSheet.Cells(LastRow + 1, 1)
            ElseIf Cell.Value = "CAPEX" Then
                ' Trouver la dernière ligne non vide dans la colonne A de la feuille "CAPEX"
                LastRow = CapexSheet.Cells(CapexSheet.Rows.Count, "A").End(xlUp).Row
                ' Copier la ligne de la feuille "Export" vers la feuille "CAPEX"
                ExportSheet.Rows(Cell.Row).Copy CapexSheet.Cells(LastRow + 1, 1)
            End If
        Next Cell
 
        Application.Calculation = xlCalculationAutomatic
        Application.ScreenUpdating = True
    End If
End Sub

Bonjour,

merci beaucoup pour ta solution rapide qui fonctionne merveilleusement bien !
Sais-tu de quelle manière je pourrais copier / coller uniquement les colonnes allant de B à P ? Peut-être en remplaçant Rows par un Range ?

Merci d'avance et bonne soirée

[Franc]

Modifie la ligne de copie comme ceci:

Code :

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

1
2
 ' Copier les données de la colonne B à P de la ligne de la feuille "Export" vers la feuille "Projet"
 ExportSheet.Range("B" & Cell.Row & ":P" & Cell.Row).Copy ProjetSheet.Cells(LastRow + 1, 2) ' 2 correspond à la colonne B dans "Projet"

[qizRR]

Modifie la ligne de copie comme ceci:

Code :

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

1
2
 ' Copier les données de la colonne B à P de la ligne de la feuille "Export" vers la feuille "Projet"
 ExportSheet.Range("B" & Cell.Row & ":P" & Cell.Row).Copy ProjetSheet.Cells(LastRow + 1, 2) ' 2 correspond à la colonne B dans "Projet"

Tout marche parfaitement !
Merci beaucoup et bonne journée