Copier ligne sur une autre feuille avec condition

[JPsaga]

Bonjour,

J'ai un fichier excel dans lequel j'ai des commandes client. Ces commandes sont reprises ligne par ligne et au bout de chaque ligne j'ai un menu déroulant avec plusieurs possibilités.

J'aimerais trouvé une solution pour envoyer les lignes qui sont dans le menu déroulant avec un statut "Ready for upload" vers une nouvelle feuille "Commande traitée";. Mais je voudrais replacer ces informations sur des colonnes précies. Et le plus difficile est que je voudrais que cela se fasse automatiquement quand je place le statut sur "Ready for Upload"


Je ne sais pas si quelqu'un peut m'aider mais je me suis permis de joindre un exemple avec le résultat que j'essaye d'obtenir.

Merci d'avance pour votre aide.

JP

[SergiO]

Bonjour JPSaga,

Voici ton fichier contenant une macro événementielle qui répond à ta demande.

@+

[JPsaga]

Bonjour Sergio,

Un tout grand merci parce que c'est vraiment ca que je recherchais et le résultat est parfait!

Par simple curiosité j'aimerais savoit comment cette macro fonctionne mais je ne la trouve pas?

Pourrais-tu me donner une petite explication si tu as le temps?


Merci pour ton aide précieuse et pour cette réponse si rapide

A++

[Spitnolan08]

Bonjour le fil,

Etant de passage, et Sergio n'étant pas dans le coin...

Si bien compris : tu trouveras la macro dans le module de la feuille 1 après avoir fait Alt + F11

La macro intercepte une modification de saisie dans la feuille "Comandes" et renseigne la feuille "Commandes traitées" les données de la feuille "Comandes".

Cordialement

[JPsaga]

Bonjour,

Oui mais je voulais voir comment Sergio avait procédé mais j'ai vu la Macro était protégée, chose que je comprends très bien.

En tout cas, un tout grand merci pour votre aide.

A+
JP

[SergiO]

Bonjour JPsaga, spit

Merci Spit pour ta réponse en mon absence

Ma macro n'est pas protégée, elle est accessible comme l'explique Spinolan dans son message précédent

Pour info, voici son contenu:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2:E65536")) Is Nothing Then
If Target.Value = "Ready for upload" Then
With Sheets("Commande traitée")
LigVide = .Range("B65536").End(xlUp).Row + 1
.Cells(LigVide, 2) = Target.Offset(0, -4).Value
.Cells(LigVide, 3) = Target.Offset(0, -3).Value
.Cells(LigVide, 4) = Target.Offset(0, -2).Value
.Cells(LigVide, 10) = Target.Offset(0, -1).Value
End With
End If
End If
End Sub

@+

[JPsaga]

Bonjour Sergio,

J'ai encore une petite question; j'aimerais pouvoir écrire des informations manuelles sur la deuxième feuille. Mais si la Macro tourne quand je place une ligne sur"Ready for upload" elle copie la ligne sur celle que j'avais précédemment écrite manuellement.

Je pense que je dois modifier qqch dans la macro; dans la ligne ci-dessous :

LigVide = .Range("B65536").End(xlUp).Row + 1

Mais je sais pas comment...

Pourrais-je encore abuser de ton aide?

Merci
A+
JP

[SergiO]

Bonjour,

La macro teste la première ligne vide en colonne B.
Si dans ta saisie manuelle, tu ne mets rien en B, en effet, elle sera écrasée.
La solution :

1. Soit tu renseignes la colonne B
2. Soit tu modifies le test de la ligne vide en remplaçant B65536 par C65536, D65536 ou J65536 si tu utilises ces colonnes pour ta saisie manuelle.

@+

[giuliano_m13]

Bonjour à tous,

je relance ce sujet car j'ai trouvé là un outil qui fonctionne parfaitement dans mon cas sauf pour un petit détail.

En effet lorsque l'on modifie la valeur cible par "Ready for upload" tout marche nickel mais si on s'aperçoit que l'on s'est trompé et que l'on revient sur une donnée cible différente la copie dans l'autre feuille ne s'efface pas et crée un doublon lorsque l'on refait "ready for upload"

J'espère avoir réussi à être clair...

Merci de votre aide si vous avez une petite idée.

Ju