Lise Dupont
XLDnaute Nouveau
Bonjour cher forum,
J'ai un besoin:
Celons la valeur de la cellule S d'une ligne dans ma feuille principal, j'aimerais copier la ligne dans la feuille de son nom à partir de F
En S, deux valeur son disponible: PRISE A CHARGE ou NON
Si Prise à charge est sélectionné, j'aimerais que la ligne soit copié dans la feuille prise a charge à partir de la cell F.
Naturellement, dans la prochaine cell F disponible et de manière automatique et non pas par un bouton.
Question: Si la valeur de F change et qu'elle passe de prise à charge à non dans ma feuille principal, Est-ce possible d'annuler le copier/coller
J'ai tenté d'arriver à quelque chose avec ceci mais j'arrive à bout de nerfs.
Dim PRISE A CHARGE As String, Cell As Range
For Each Cell In Sheets("LISTES ACHAT").Range("S3:" & Range("S3").End(xlDown).Address)
Sheets("LISTES ACHAT").Range("A" & Cell.Row & ":" & "S" & Cell.Row).Copy
Cible = Cell.Value
Sheets(PRISE A CHARGE).Select
Range("A" & ActiveCell.SpecialCells(xlLastCell).Row).End(xlUp).Offset(1, 0).Select
Sheets(Cible).Paste
Application.CutCopyMode = False
Next Cell
End Sub
Merci de bien vouloir m'aider.
Lise
J'ai un besoin:
Celons la valeur de la cellule S d'une ligne dans ma feuille principal, j'aimerais copier la ligne dans la feuille de son nom à partir de F
En S, deux valeur son disponible: PRISE A CHARGE ou NON
Si Prise à charge est sélectionné, j'aimerais que la ligne soit copié dans la feuille prise a charge à partir de la cell F.
Naturellement, dans la prochaine cell F disponible et de manière automatique et non pas par un bouton.
Question: Si la valeur de F change et qu'elle passe de prise à charge à non dans ma feuille principal, Est-ce possible d'annuler le copier/coller
J'ai tenté d'arriver à quelque chose avec ceci mais j'arrive à bout de nerfs.
Dim PRISE A CHARGE As String, Cell As Range
For Each Cell In Sheets("LISTES ACHAT").Range("S3:" & Range("S3").End(xlDown).Address)
Sheets("LISTES ACHAT").Range("A" & Cell.Row & ":" & "S" & Cell.Row).Copy
Cible = Cell.Value
Sheets(PRISE A CHARGE).Select
Range("A" & ActiveCell.SpecialCells(xlLastCell).Row).End(xlUp).Offset(1, 0).Select
Sheets(Cible).Paste
Application.CutCopyMode = False
Next Cell
End Sub
Merci de bien vouloir m'aider.
Lise
Pièces jointes
Dernière édition: