Discussion :

[amorapa]

Bonjour,

J'ai des lignes dans une feuille de Calcul que je dois transférer dans une autre feuille Alertes.

Ces lignes de la feuille Calcul vont de la colonne BM6 à BT6.

Les lignes à transférer peuvent être variables. Il peut en avoir 0, comme il peut en avoir 1000 par exemple.

Le transfert de ces lignes se fait selon la valeur d'une colonne BU6 de la feuille calcul.

Exemple :

si BU6 = A, alors transfère la ligne BM6 à BT6 dans la feuille Alerte à partir de C6 jusqu'à J6
si BU7 = A, alors transfère la ligne BM7 à BT7 dans la feuille Alerte à partir de C7 jusqu'à J7
Et ainsi de suite

J'ai un début de code d'une macro que j'avais qui faisait quelques chose un peu du mêm genre, mais sans la condition

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
 
Sub transfert_des_A()
    Application.ScreenUpdating = False
 
    dlf_final = Range("b" & Rows.Count).End(xlUp).Row
 
        If dlf_final > 6 Then
 
        With Sheets("Calcul")
            dlf_Alertes = .Range("b" & Rows.Count).End(xlUp).Row + 1
            Range("bm6:bt" & dlf_final).Copy
 
 
        End With
        MsgBox "Opération effectuée avec succés", 64, "Statut"
    Else
        MsgBox "Avertissement : rien à transférer", 64, "Statut"
    End If
End Sub

Merci de votre aide, car je bloque depuis un moment