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
Ceci est la première macro.
La deuxième macro est identique, sauf qu'au lieu de prendre BU6=A, je fais la même manip avec BV6=M
Et il faudrait une troisième macro pour transférer les lignes de BM6 à BT6 avec :
BU6 = A, et ainsi de suite
puis,
BU6-="" BV6=M et ainsi de suite
En sachant que si il n'y a rien à transférer, il met un message rien à transférer.
J'ai un début de code pour faire le transfert des lignes
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
Je met le fichier ou j'ai préparé les boutons pour affecter les macros.
C'est plus facile à comprendre comme cela
Merci pour votre aide, et bonne année à tous.
Je crois que j'ai oublié de mettre le fichier