Comment recopier feuille avec formule

Bonjour,

j'ai été au plus simple : aucun contrôle comme à-priori ils ont été fait dans la 1ère copie.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Set c = Intersect(Target, Columns(9))
    If Not c Is Nothing Then
        If c.Count > 1 Then Exit Sub
        If c = "oui" Then
            Application.ScreenUpdating = False
            c.EntireRow.Copy
            With Sheets("reception luc")
                .Cells(.Cells(Rows.Count, 9).End(xlUp).Row + 1, 1).PasteSpecial
            End With
            Application.EnableEvents = False
            c.EntireRow.Delete
            Application.EnableEvents = True
        End If
    End If
End Sub 

à mettre dans le module de ' reception camion'
eric

Il s'agit donc d'une macro ? Précise-le toujours dans l'exposé de ta question ...

bonjour
merci pour la réponse
oui il s agit dune macro

bonjour
petit up svp merci

bonjour eriiic
un super grand merci pour la réponse
mais cela ne fonctionne qu a moitie
j ai repris ton code pour l appliquer a un autre fichier similaire
me suis trompe lors de l envois du fichier exemple
en effet lorsque j ouvre la feuille commande et que je passe de suspendu a oui , cela envois bien la ligne vers réception camion mais pas avec le menu déroulant permettant de choisir oui et de l envoyer vers réception luc

voici ce que je souhaiterais avec ce bon fichier exemple
c est que dans la feuille commande lorsque je passe de suspendu a oui que la ligne soit effacer et copier vers réception camion
jusque la cela est ok

ensuite dans la feuille réception camion que la ligne qui a été copier de la feuille commande soit en mode suspendu avec le menu déroulant me permettant de passe du mode suspendu a oui , d effacer la ligne et l envoyer vers réception luc

https://www.cjoint.com/c/ICkurCzfglO

bonjour eriiic
merci pour la réponse
non ce que tu as fais c est nickel
mais pour comprendre ce que tu as fais j ai crée un nouvel onglet expédition
et j ai recopier la macro dans le module réception luc en changeant bien évidement le contenu du code de

 With Sheets("reception luc")

par

 With Sheets("expedition")

mais malheureusement dans le menu déroulant de la feuille reception luc le menu est mis sur oui
j aurais souhaiter savoir ce que je dois changer pour que le menu puisse être non pas sur oui mais sur suspendu
comme tu as fais pour réception camion

Bonjour,

à tester :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, numlig As Long
    ' suite du code
    ' ...
            With Sheets("reception luc")
                numlig = .Cells(Rows.Count, 10).End(xlUp).Row + 1
                .Cells(numlig, 1).PasteSpecial
                ' rétablissement liste déroulate et mise à suspendu
                .Cells(numlig, 10).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="oui,non,suspendu"
                .Cells(numlig, 10) = "suspendu"
    ' suite du code
    ' ...

eric

bonjour eriiic
merci pour la réponse et le code
je le place a quel endroit ?

j ai essaye comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Set c = Intersect(Target, Columns(9))
    If Not c Is Nothing Then
        If c.Count > 1 Then Exit Sub
        If c = "oui" Then
            Application.ScreenUpdating = False
            c.EntireRow.Copy
            With Sheets("reception luc")
                numlig = .Cells(Rows.Count, 10).End(xlUp).Row + 1
                .Cells(numlig, 1).PasteSpecial
                ' rétablissement liste déroulate et mise à suspendu
                .Cells(numlig, 10).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="oui,non,suspendu"
                .Cells(numlig, 10) = "suspendu"
            End With
            Application.EnableEvents = False
            c.EntireRow.Delete
            Application.EnableEvents = True
        End If
    End If
End Sub 

mais cela ne fonctionne pas
si j indique oui rien ne se passe

merci pour la reponse eriiic

donc je reapitule
j ai une feuille "commande" a laquelle j ajoute des lignes qui sont sur le statut "suspendu" dans la colonne J
je souhaitais que lorsque je choisi a travers le menu déroulant de la colonne 10 "oui"
que la ligne soit effacée et copier vers la feuille "reception camion "
a ce moment une nouvelle ligne est ajoutée a la feuille réception camion (celle qui vient d être effacée de "la feuille commande "
a la colonne J de la feuille réception camion je me retrouvais avec le statut a oui
grâce a ta dernière macro ce statut est passe a "suspendu "
et donc lorsque je faisais passer le statut a "oui"
la ligne était efface de la feuille réception camion pour être copiée sur la feuille "réception luc"
donc jusque la tout est nickel super
a présent j ai crée une nouvelle feuille "expedition "
donc je souhaiterais que le statut de la ligne de "reception luc "de la colonne J passe non pas a "oui" mais a "suspendu"
afin que je puisse choisir "oui"afin que la ligne soit effacée de la feuille "reception luc" et copier vers "expedition "
en résume
refaire la meme chose que ce que tu as fait de "reception camion" vers "reception luc"
mais cette fois de "reception luc" vers "expedition"

https://www.cjoint.com/c/IClmihUCHEz

merci pour la reponse
j ai essaye avec le code que j ai tente de remettre comme indique au post 13
mais cela ne fonctionne pas
j ai essaye de mettre le code au post 13 dans les feuilles
reception camion
et
reception luc
en adaptant les noms

bonsoir eriiic
voila super nickel , cela fonctionne a merveille et en plus je peux ajouter des feuilles
j ai essaye de supprimer la ligne des titres en double sur la feuille commande
ou il y a comme titre
date /plaque ect...
mais sans suces
j ai toujours une erreur
peux tu y jeter un oeil merci
je souhaiterais ne garder que la ligne 1 ou la 2 , mais pas les deux

merci pour la reponse
mais de mon cote lorsque je supprime la ligne 2 de la feuille commande
et que prends n importe quelle ligne de la feuille de commande
que je passe le mode "suspendu" de la colonne J en "oui"
j ai une erreur de debogage
qui est la suivante
erreur d exécution 91
variable objet ou variable de bloc with non définie
et lorsque je clique sur debogage
j atterris dans la code suivant

Const Nom_Col As String = "certifié"

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Plage As Range

    If Target.Count > 1 Then Exit Sub    'si on modifie plusieurs cellules simultanément
    adDC = Cells(2, Columns.Count).End(xlToLeft).Address
    If Not Intersect(Columns("B"), Target) Is Nothing Then
        If Target.Value = "" Then Exit Sub
        Range("A" & Target.Row).Value = Date
        Range("A" & Target.Row).NumberFormat = "dd/mm/yyyy"
    End If
    LDCol = Split(adDC, "$")(1)    'lettre derniere colonne ligne 2
    NDCol = Range(Split(adDC, "$")(1) & 1).Column    'derniere colonne en nombre
    Set Plage = Range("A2:" & LDCol & 2)    'plage de colonnes ligne 2
    LCol = Chr(Plage.Find(Nom_Col, lookat:=xlWhole).Column + 64)    'lettre colonne "certifié"
    If Application.CountIf(Plage, Nom_Col) > 0 Then    'existe
        If Not Intersect(Target, Range(LCol & "2:" & LCol & "50")) Is Nothing Then    'plage à adapter
            If UCase(Target) = "OUI" Then
                noEvents = True
                nouvlig = Sheets(" reception camion").Cells(Rows.Count, 1).End(xlUp).Row + 1    'index de la première ligne vide dans "Archives"
                Cells(Target.Row, 1).Resize(1, NDCol).Copy
                With Sheets(" reception camion")
                    .Cells(nouvlig, 1).Resize(1, NDCol).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                    ' rétablissement liste déroulate et mise à suspendu
                    .Cells(nouvlig, 10).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="oui,non,suspendu"
                    .Cells(nouvlig, 10) = "suspendu"
                End With
                noEvents = False
                Application.EnableEvents = False    'désactiver les événements
                Cells(Target.Row, 1).EntireRow.Delete
                Application.EnableEvents = True
            End If
        End If
    Else
        MsgBox "Attention: " & Nom_Col & " n'extiste pas !!!!!!!"
    End If
    Set Plage = Nothing

l erreur colorie en jaune la ligne suivante dans la code

LCol = Chr(Plage.Find(Nom_Col, lookat:=xlWhole).Column + 64) 'lettre colonne "certifié"

voici le fichier
https://www.cjoint.com/c/IClqCQsukz6

bonjour eriiic
merci pour la reponse
il est vrai que celui qui m aide n est pas devant mon écran et donc peux pas deviner
et donc c est pas toujours évident de bien explique
car on peux aussi noyer celui qui t aide dans le détail de la chose
donc il faut trouver la bonne méthode
enfin soit je ferais plus attention

en fait c est un code que j ai trouve et que j ai essaye de mettre en place pour mon besoin
et c est vrai qu en y regardant de plus prés que tout est calculé avec la ligne 2
donc j ai changer quelques valeurs et voila cela fonctionne a merveille encore merci
par contre je n ai pas bien compris l histoire avec la feuille "réception camion "
en fait en VBA j y connais que très peu de choses donc je ne peux pas dire que j ai fait ça ou ça
car mon seul but est d aider mon amie
quand je vois les lignes de code cela me parait une montagne a franchir pour apprendre
mais bon l hiver prochain je compte m y mettre
faudrait que je sache par ou commencer ...

bonjour
ah oui juste merci de me le signaler
j avais pas fait attention et je savais pas que cela pouvait influencer quoi que ce soit
apparemment j ai du tout faire correctement puisque tout fonctionne bien