Couper coller avec condition sur deux feuilles...

zezechacha · 7 Mai 2018

Bonjour,
Déjà j'ai cherché sur plusieurs discussion la solution à mon problème mais je ne trouve pas.
Alors voila j'ai deux feuilles l'une à_venir et l'autre en_cours_PAO. Dans la feuille à_venir il y a le même nombre de colonne et le même genre d'informations que sur en_cours_PAO (numéro de dossier, client, info, format, dossier maquette,...). J'aimerais que lorsque je tape le numéro de dossier dans en_cours_PAO excel trouve la ligne dans à_venir, la coupe et me la colle dans en_cours_PAO. J'ai essayer de faire avec RechercheV mais le problème c'est que quand je supprime les infos dans à_venir elles se suppriment aussi dans en_cours_PAO.
Merci de votre aide!!

Staple1600 · 7 Mai 2018

Re

@zezechacha
La macro proposée par job75 fonctionne si tu corriges le nom des feuilles
soit dans le code
soit en renommant les onglets

PS: j'ai testé sur le fichier exemple que tu as joint.
Ici j'ai juste modifié les noms des onglets pour qu'ils correspondent au noms des onglets tel que tu les as écrit dans ton fichier exemple

VB:

Sub CouperColler()
Dim x$, c As Range
Do
    x = InputBox("Entrez le numéro du dossier :", , x)
    If x = "" Then Exit Sub
'nom corrigé pour correspondre au nom exact de l'onglet
    Set c = Sheets("A venir").[A:A].Find(x, , xlValues, xlWhole) 'recherche en colonne A
Loop While c Is Nothing
'nom corrigé pour correspondre au nom exact de l'onglet
With Sheets("En cours PAO")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    c.EntireRow.Copy .Cells(.Rows.Count, 1).End(xlUp)(2)
    c.EntireRow.Delete
    .Activate 'facultatif
End With
End Sub

Oranger · 7 Mai 2018

ok j'ai compris ce qui clochait. Le problème devrait être résolu.

Oranger

Staple1600 · 7 Mai 2018

Bonjour Oranger

Le problème était résolu dès midi
(cf mon précédent message)

job75 · 7 Mai 2018

Bonjour JM,

Staple1600 à dit:
La macro proposée par job75 fonctionne si tu corriges le nom des feuilles
soit dans le code
soit en renommant les onglets

Bah évidemment qu'elle fonctionne

Et les noms des feuilles que j'utilise sont ceux que zezechacha indique au post #1.

Mais zezechacha ne sait peut-être pas exécuter une macro (Alt+F8) ou simplement créer un bouton.

A+

Staple1600 · 7 Mai 2018

Re

@job75
Je savais pertinemment que ton code fonctionnait
Mais les noms des onglets différaient entre le message de zezechacha et sa PJ.
D'ou mon petit coup de pouce à l'intention de zezechacha.

PS: Pour être précis, j'aurai du écrire
"Le code de job75 fonctionne.
zezechacha
Mais pour qu'il fonctionne sur ton ordinateur, il faut que tu veilles à ce que les noms des feuilles du classeur et les noms des feuilles dans le code de la macro soient rigoureusement identique."

Couper coller avec condition sur deux feuilles...

zezechacha

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Oranger

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires