Copie lignes dans autres onglet du fichier.

jose.carreira à dit:

je souhaiterais copier les cellules de ma feuil1 ver les onglets dont le nom est en colonne (I)
Si pas de nom ou onglet manquant ligne non copié.
A savoir qu’en colonne (A) il y a des dates et en copiant les lignes il serait bien de les classer de la plus petite à la plus grande.

Cliquez pour agrandir...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet, T, dl&
If Target.Row < 6 Or Target.Column <> 9 Or IsEmpty(Target) Then Exit Sub
Cancel = True
T = Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Value
On Error GoTo erreur
Set ws = Sheets(Target.Text)
With ws
    dl = .Range("a65000").End(xlUp).Row + 1
    .Range(.Cells(dl, 1), .Cells(dl, 8)).Value = T
    .Range("A5:H" & dl).Sort Key1:=.Range("A6"), Order1:=xlAscending, Header:=xlGuess
    MsgBox "Ligne copiée vers " & Target
End With
Exit Sub

erreur:
MsgBox "l'onglet n'existe pas !"

End Sub

jose.carreira à dit:

Impératif : si une ligne est supprimer en feuil1 elle doit l’être aussi dans l’onglet cible par mise a jour automatique ou bouton de mise à jour.

Cliquez pour agrandir...

jose.carreira à dit:

Oui cela marche bien, toute fois merci Kjin, mais est-il possible que la copie se fasse pour toutes les lignes en une seule fois ?

Cliquez pour agrandir...

jose.carreira à dit:

Pour la suppression des lignes c’est sur la possibilité d’une annulation tout est gérer sur la feuil1.
Les feuilles de route sont les onglets suivant, cela permet de les supprimer directement sur la feuil1 si exécuter ou supprimer dans ce cas les onglets sont mis a jours.

Cliquez pour agrandir...